← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:11 2016

Filename/home/mickey/git_tree/PONAPI/Server/lib/PONAPI/DAO/Request/Delete.pm
StatementsExecuted 8 statements in 255µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11120µs7.09msPONAPI::DAO::Request::Delete::::BEGIN@4PONAPI::DAO::Request::Delete::BEGIN@4
1118µs75µsPONAPI::DAO::Request::Delete::::BEGIN@28PONAPI::DAO::Request::Delete::BEGIN@28
0000s0sPONAPI::DAO::Request::Delete::::executePONAPI::DAO::Request::Delete::execute
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# ABSTRACT: DAO request - delete
2package PONAPI::DAO::Request::Delete;
3
42190µs214.2ms
# spent 7.09ms (20µs+7.07) within PONAPI::DAO::Request::Delete::BEGIN@4 which was called: # once (20µs+7.07ms) by PONAPI::DAO::BEGIN@14 at line 4
use Moose;
# spent 7.09ms making 1 call to PONAPI::DAO::Request::Delete::BEGIN@4 # spent 7.07ms making 1 call to Moose::import
5
6113µs1628µsextends 'PONAPI::DAO::Request';
# spent 628µs making 1 call to Moose::extends
7
812µs12.99mswith 'PONAPI::DAO::Request::Role::HasID';
# spent 2.99ms making 1 call to Moose::with
9
10sub execute {
11 my $self = shift;
12 my $doc = $self->document;
13
14 if ( $self->is_valid ) {
15 $self->repository->delete( %{ $self } );
16 $doc->add_meta(
17 detail => "successfully deleted the resource /"
18 . $self->type
19 . "/"
20 . $self->id
21 );
22 }
23
24 return $self->response();
25}
26
2715µs29.74ms__PACKAGE__->meta->make_immutable;
# spent 9.72ms making 1 call to Class::MOP::Class::make_immutable # spent 14µs making 1 call to PONAPI::DAO::Request::Delete::meta
28345µs2142µs
# spent 75µs (8+67) within PONAPI::DAO::Request::Delete::BEGIN@28 which was called: # once (8µs+67µs) by PONAPI::DAO::BEGIN@14 at line 28
no Moose; 1;
# spent 75µs making 1 call to PONAPI::DAO::Request::Delete::BEGIN@28 # spent 67µs making 1 call to Moose::unimport
29
30__END__