| Filename | /home/mickey/git_tree/PONAPI/Server/lib/PONAPI/DAO/Request/UpdateRelationships.pm |
| Statements | Executed 9 statements in 233µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 18µs | 3.13ms | PONAPI::DAO::Request::UpdateRelationships::BEGIN@4 |
| 1 | 1 | 1 | 9µs | 94µs | PONAPI::DAO::Request::UpdateRelationships::BEGIN@35 |
| 0 | 0 | 0 | 0s | 0s | PONAPI::DAO::Request::UpdateRelationships::check_data_type_match |
| 0 | 0 | 0 | 0s | 0s | PONAPI::DAO::Request::UpdateRelationships::execute |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # ABSTRACT: DAO request - update relationships | ||||
| 2 | package PONAPI::DAO::Request::UpdateRelationships; | ||||
| 3 | |||||
| 4 | 2 | 155µs | 2 | 6.24ms | # spent 3.13ms (18µs+3.11) within PONAPI::DAO::Request::UpdateRelationships::BEGIN@4 which was called:
# once (18µs+3.11ms) by PONAPI::DAO::BEGIN@13 at line 4 # spent 3.13ms making 1 call to PONAPI::DAO::Request::UpdateRelationships::BEGIN@4
# spent 3.11ms making 1 call to Moose::import |
| 5 | |||||
| 6 | 1 | 14µs | 1 | 621µs | extends 'PONAPI::DAO::Request'; # spent 621µs making 1 call to Moose::extends |
| 7 | |||||
| 8 | 1 | 4µs | 1 | 14.9ms | with 'PONAPI::DAO::Request::Role::UpdateLike', # spent 14.9ms making 1 call to Moose::with |
| 9 | 'PONAPI::DAO::Request::Role::HasDataMethods', | ||||
| 10 | 'PONAPI::DAO::Request::Role::HasID', | ||||
| 11 | 'PONAPI::DAO::Request::Role::HasRelationshipType'; | ||||
| 12 | |||||
| 13 | 1 | 3µs | 1 | 3.90ms | has data => ( # spent 3.90ms making 1 call to Moose::has |
| 14 | is => 'ro', | ||||
| 15 | isa => 'Maybe[HashRef|ArrayRef]', | ||||
| 16 | predicate => 'has_data', | ||||
| 17 | ); | ||||
| 18 | |||||
| 19 | sub check_data_type_match { 1 } # to avoid code duplications in HasDataMethods | ||||
| 20 | |||||
| 21 | sub execute { | ||||
| 22 | my $self = shift; | ||||
| 23 | if ( $self->is_valid ) { | ||||
| 24 | my @ret = $self->repository->update_relationships( %{ $self } ); | ||||
| 25 | |||||
| 26 | $self->_add_success_meta(@ret) | ||||
| 27 | if $self->_verify_update_response(@ret); | ||||
| 28 | } | ||||
| 29 | |||||
| 30 | return $self->response(); | ||||
| 31 | } | ||||
| 32 | |||||
| 33 | |||||
| 34 | 1 | 3µs | 2 | 11.0ms | __PACKAGE__->meta->make_immutable; # spent 11.0ms making 1 call to Class::MOP::Class::make_immutable
# spent 16µs making 1 call to PONAPI::DAO::Request::UpdateRelationships::meta |
| 35 | 3 | 54µs | 2 | 178µs | # spent 94µs (9+85) within PONAPI::DAO::Request::UpdateRelationships::BEGIN@35 which was called:
# once (9µs+85µs) by PONAPI::DAO::BEGIN@13 at line 35 # spent 94µs making 1 call to PONAPI::DAO::Request::UpdateRelationships::BEGIN@35
# spent 85µs making 1 call to Moose::unimport |
| 36 | |||||
| 37 | __END__ |