Filename | /home/mickey/git_tree/PONAPI/Server/lib/PONAPI/DAO/Request/Role/UpdateLike.pm |
Statements | Executed 13 statements in 612µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 802µs | 26.1ms | BEGIN@7 | PONAPI::DAO::Request::Role::UpdateLike::
1 | 1 | 1 | 234µs | 455µs | BEGIN@6 | PONAPI::DAO::Request::Role::UpdateLike::
1 | 1 | 1 | 18µs | 2.34ms | BEGIN@4 | PONAPI::DAO::Request::Role::UpdateLike::
1 | 1 | 1 | 18µs | 115µs | BEGIN@80 | PONAPI::DAO::Request::Role::UpdateLike::
1 | 1 | 1 | 11µs | 11µs | BEGIN@79 | PONAPI::DAO::Request::Role::UpdateLike::
0 | 0 | 0 | 0s | 0s | __ANON__[lib/PONAPI/DAO/Request/Role/UpdateLike.pm:21] | PONAPI::DAO::Request::Role::UpdateLike::
0 | 0 | 0 | 0s | 0s | _add_success_meta | PONAPI::DAO::Request::Role::UpdateLike::
0 | 0 | 0 | 0s | 0s | _get_resource_for_meta | PONAPI::DAO::Request::Role::UpdateLike::
0 | 0 | 0 | 0s | 0s | _verify_update_response | PONAPI::DAO::Request::Role::UpdateLike::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # ABSTRACT: DAO request role - `update` & like related functionality | ||||
2 | package PONAPI::DAO::Request::Role::UpdateLike; | ||||
3 | |||||
4 | 2 | 48µs | 2 | 4.67ms | # spent 2.34ms (18µs+2.33) within PONAPI::DAO::Request::Role::UpdateLike::BEGIN@4 which was called:
# once (18µs+2.33ms) by Module::Runtime::require_module at line 4 # spent 2.34ms making 1 call to PONAPI::DAO::Request::Role::UpdateLike::BEGIN@4
# spent 2.33ms making 1 call to Moose::Role::import |
5 | |||||
6 | 2 | 105µs | 2 | 563µs | # spent 455µs (234+222) within PONAPI::DAO::Request::Role::UpdateLike::BEGIN@6 which was called:
# once (234µs+222µs) by Module::Runtime::require_module at line 6 # spent 455µs making 1 call to PONAPI::DAO::Request::Role::UpdateLike::BEGIN@6
# spent 108µs making 1 call to Exporter::import |
7 | 2 | 374µs | 1 | 26.1ms | # spent 26.1ms (802µs+25.3) within PONAPI::DAO::Request::Role::UpdateLike::BEGIN@7 which was called:
# once (802µs+25.3ms) by Module::Runtime::require_module at line 7 # spent 26.1ms making 1 call to PONAPI::DAO::Request::Role::UpdateLike::BEGIN@7 |
8 | |||||
9 | 1 | 2µs | 1 | 141µs | has respond_to_updates_with_200 => ( # spent 141µs making 1 call to Moose::Role::has |
10 | is => 'ro', | ||||
11 | isa => 'Bool', | ||||
12 | ); | ||||
13 | |||||
14 | has update_nothing_status => ( | ||||
15 | is => 'ro', | ||||
16 | isa => 'Int', | ||||
17 | # http://jsonapi.org/format/#crud-updating-relationship-responses-204 | ||||
18 | # Basically, we return a 204, UNLESS it's an ->update() call, in which | ||||
19 | # case it has to return a 404: | ||||
20 | # http://jsonapi.org/format/#crud-updating-responses-404 | ||||
21 | default => sub { 204 }, | ||||
22 | 1 | 3µs | 1 | 71µs | ); # spent 71µs making 1 call to Moose::Role::has |
23 | |||||
24 | sub _verify_update_response { | ||||
25 | my ( $self, $ret, @extra ) = @_; | ||||
26 | |||||
27 | PONAPI::Exception->throw( | ||||
28 | internal => 1, | ||||
29 | message => "update-like operation returned an unexpected value" | ||||
30 | ) unless exists $PONAPI_UPDATE_RETURN_VALUES{$ret}; | ||||
31 | |||||
32 | my $doc = $self->document; | ||||
33 | return if $doc->has_errors or $doc->has_status; | ||||
34 | |||||
35 | if ( $self->respond_to_updates_with_200 ) { | ||||
36 | $doc->set_status(200); | ||||
37 | $self->repository->retrieve( | ||||
38 | type => $self->type, | ||||
39 | id => $self->id, | ||||
40 | document => $doc, | ||||
41 | ) if $ret == PONAPI_UPDATED_EXTENDED; | ||||
42 | return 1; | ||||
43 | } | ||||
44 | else { | ||||
45 | $doc->set_status(202); | ||||
46 | } | ||||
47 | |||||
48 | return 1; | ||||
49 | } | ||||
50 | |||||
51 | sub _add_success_meta { | ||||
52 | my ($self, $return_status) = @_; | ||||
53 | |||||
54 | my $resource = $self->_get_resource_for_meta; | ||||
55 | |||||
56 | my $detail = "successfully modified $resource"; | ||||
57 | if ( $return_status == PONAPI_UPDATED_NOTHING ) { | ||||
58 | my $status = $self->update_nothing_status; | ||||
59 | $self->document->set_status($status); | ||||
60 | # This should NEVER show up in a response, because it would | ||||
61 | # mean a 204 with a body; I'm still leaving it here because | ||||
62 | # a 204+body is preferable to a server error due to an empty | ||||
63 | # document. | ||||
64 | $detail = "modified nothing for $resource" | ||||
65 | } | ||||
66 | |||||
67 | $self->document->add_meta( detail => $detail ); | ||||
68 | } | ||||
69 | |||||
70 | sub _get_resource_for_meta { | ||||
71 | my $self = shift; | ||||
72 | |||||
73 | my $link = $self->document->req_path | ||||
74 | // ( join "/" => grep defined, '', @{$self}{qw/type id rel_type/} ); | ||||
75 | |||||
76 | return $link . " => " . $self->json->encode( $self->data ); | ||||
77 | } | ||||
78 | |||||
79 | 2 | 29µs | 1 | 11µs | # spent 11µs within PONAPI::DAO::Request::Role::UpdateLike::BEGIN@79 which was called:
# once (11µs+0s) by Module::Runtime::require_module at line 79 # spent 11µs making 1 call to PONAPI::DAO::Request::Role::UpdateLike::BEGIN@79 |
80 | 3 | 52µs | 2 | 213µs | # spent 115µs (18+97) within PONAPI::DAO::Request::Role::UpdateLike::BEGIN@80 which was called:
# once (18µs+97µs) by Module::Runtime::require_module at line 80 # spent 115µs making 1 call to PONAPI::DAO::Request::Role::UpdateLike::BEGIN@80
# spent 97µs making 1 call to Moose::Role::unimport |
81 | |||||
82 | __END__ |