Filename | /usr/local/share/perl/5.18.2/Plack/Util/Accessor.pm |
Statements | Executed 1400063 statements in 9.45s |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1200014 | 14 | 6 | 3.32s | 3.32s | __ANON__[:19] | Plack::Util::Accessor::
5 | 1 | 1 | 62µs | 62µs | mk_accessors | Plack::Util::Accessor::
5 | 5 | 5 | 32µs | 95µs | import | Plack::Util::Accessor::
1 | 1 | 1 | 9µs | 18µs | BEGIN@2 | Plack::Util::Accessor::
1 | 1 | 1 | 6µs | 15µs | BEGIN@14 | Plack::Util::Accessor::
1 | 1 | 1 | 6µs | 9µs | BEGIN@3 | Plack::Util::Accessor::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Plack::Util::Accessor; | ||||
2 | 2 | 18µs | 2 | 27µs | # spent 18µs (9+9) within Plack::Util::Accessor::BEGIN@2 which was called:
# once (9µs+9µs) by Plack::Middleware::BEGIN@7 at line 2 # spent 18µs making 1 call to Plack::Util::Accessor::BEGIN@2
# spent 9µs making 1 call to strict::import |
3 | 2 | 58µs | 2 | 12µs | # spent 9µs (6+3) within Plack::Util::Accessor::BEGIN@3 which was called:
# once (6µs+3µs) by Plack::Middleware::BEGIN@7 at line 3 # spent 9µs making 1 call to Plack::Util::Accessor::BEGIN@3
# spent 3µs making 1 call to warnings::import |
4 | |||||
5 | # spent 95µs (32+62) within Plack::Util::Accessor::import which was called 5 times, avg 19µs/call:
# once (10µs+15µs) by Plack::Middleware::BEGIN@7 at line 7 of Plack/Middleware.pm
# once (6µs+17µs) by Plack::Middleware::AccessLog::BEGIN@5 at line 5 of Plack/Middleware/AccessLog.pm
# once (8µs+13µs) by Plack::Middleware::StackTrace::BEGIN@9 at line 9 of Plack/Middleware/StackTrace.pm
# once (4µs+10µs) by Plack::Response::BEGIN@6 at line 6 of Plack/Response.pm
# once (4µs+7µs) by Plack::Middleware::MethodOverride::BEGIN@11 at line 11 of Plack/Middleware/MethodOverride.pm | ||||
6 | 5 | 1µs | shift; | ||
7 | 5 | 3µs | return unless @_; | ||
8 | 5 | 5µs | my $package = caller(); | ||
9 | 5 | 26µs | 5 | 62µs | mk_accessors( $package, @_ ); # spent 62µs making 5 calls to Plack::Util::Accessor::mk_accessors, avg 12µs/call |
10 | } | ||||
11 | |||||
12 | # spent 62µs within Plack::Util::Accessor::mk_accessors which was called 5 times, avg 12µs/call:
# 5 times (62µs+0s) by Plack::Util::Accessor::import at line 9, avg 12µs/call | ||||
13 | 5 | 1µs | my $package = shift; | ||
14 | 2 | 78µs | 2 | 24µs | # spent 15µs (6+9) within Plack::Util::Accessor::BEGIN@14 which was called:
# once (6µs+9µs) by Plack::Middleware::BEGIN@7 at line 14 # spent 15µs making 1 call to Plack::Util::Accessor::BEGIN@14
# spent 9µs making 1 call to strict::unimport |
15 | 5 | 20µs | foreach my $field ( @_ ) { | ||
16 | # spent 3.32s within Plack::Util::Accessor::__ANON__[/usr/local/share/perl/5.18.2/Plack/Util/Accessor.pm:19] which was called 1200014 times, avg 3µs/call:
# 100001 times (550ms+0s) by Plack::Middleware::ContentLength::call at line 10 of Plack/Middleware/ContentLength.pm, avg 6µs/call
# 100001 times (434ms+0s) by Plack::Response::new at line 20 of Plack/Response.pm, avg 4µs/call
# 100001 times (349ms+0s) by Plack::Response::content at line 14 of Plack/Response.pm, avg 3µs/call
# 100001 times (310ms+0s) by Plack::Middleware::AccessLog::log_line at line 54 of Plack/Middleware/AccessLog.pm, avg 3µs/call
# 100001 times (310ms+0s) by Plack::Middleware::Lint::call at line 24 of Plack/Middleware/Lint.pm, avg 3µs/call
# 100001 times (285ms+0s) by Plack::Middleware::StackTrace::try {...} at line 38 of Plack/Middleware/StackTrace.pm, avg 3µs/call
# 100001 times (232ms+0s) by Plack::Middleware::MethodOverride::call at line 37 of Plack/Middleware/MethodOverride.pm, avg 2µs/call
# 100001 times (228ms+0s) by Plack::Middleware::AccessLog::call at line 29 of Plack/Middleware/AccessLog.pm, avg 2µs/call
# 100001 times (206ms+0s) by Plack::Middleware::AccessLog::call at line 24 of Plack/Middleware/AccessLog.pm, avg 2µs/call
# 100001 times (145ms+0s) by Plack::Response::finalize at line 87 of Plack/Response.pm, avg 1µs/call
# 100001 times (136ms+0s) by Plack::Response::_body at line 115 of Plack/Response.pm, avg 1µs/call
# 100001 times (135ms+0s) by Plack::Response::finalize at line 101 of Plack/Response.pm, avg 1µs/call
# once (44µs+0s) by Plack::Middleware::AccessLog::prepare_app at line 15 of Plack/Middleware/AccessLog.pm
# once (4µs+0s) by Plack::Middleware::AccessLog::prepare_app at line 17 of Plack/Middleware/AccessLog.pm | ||||
17 | 1200014 | 7.83s | return $_[0]->{ $field } if scalar( @_ ) == 1; | ||
18 | 200003 | 1.62s | return $_[0]->{ $field } = scalar( @_ ) == 2 ? $_[1] : [ @_[1..$#_] ]; | ||
19 | 9 | 50µs | }; | ||
20 | } | ||||
21 | } | ||||
22 | |||||
23 | 1 | 2µs | 1; | ||
24 | |||||
25 | __END__ |