Profile of DateTime/Helpers.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:10 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/DateTime/Helpers.pm
Statements | Executed 12 statements in 120µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 12µs | 14µs | DateTime::Helpers::::BEGIN@6DateTime::Helpers::BEGIN@6
1 | 1 | 1 | 11µs | 18µs | DateTime::Helpers::::BEGIN@7DateTime::Helpers::BEGIN@7
1 | 1 | 1 | 3µs | 3µs | DateTime::Helpers::::BEGIN@9DateTime::Helpers::BEGIN@9
0 | 0 | 0 | 0s | 0s | DateTime::Helpers::::canDateTime::Helpers::can
0 | 0 | 0 | 0s | 0s | DateTime::Helpers::::isaDateTime::Helpers::isa

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package DateTime::Helpers;
2 |  |  |  |  | {
3 | 2 | 1µs |  |  | $DateTime::Helpers::VERSION = '0.74';
4 |  |  |  |  | }
5 |  |  |  |  |
6 | 3 | 16µs | 2 | 16µs | # spent 14µs (12+2) within DateTime::Helpers::BEGIN@6 which was called: # once (12µs+2µs) by DateTime::BEGIN@12 at line 6 use strict; # spent 14µs making 1 call to DateTime::Helpers::BEGIN@6 # spent 2µs making 1 call to strict::import
7 | 3 | 19µs | 2 | 25µs | # spent 18µs (11+7) within DateTime::Helpers::BEGIN@7 which was called: # once (11µs+7µs) by DateTime::BEGIN@12 at line 7 use warnings; # spent 18µs making 1 call to DateTime::Helpers::BEGIN@7 # spent 7µs making 1 call to warnings::import
8 |  |  |  |  |
9 | 3 | 82µs | 1 | 3µs | # spent 3µs within DateTime::Helpers::BEGIN@9 which was called: # once (3µs+0s) by DateTime::BEGIN@12 at line 9 use Scalar::Util (); # spent 3µs making 1 call to DateTime::Helpers::BEGIN@9
10 |  |  |  |  |
11 |  |  |  |  | sub can {
12 |  |  |  |  | my $object = shift;
13 |  |  |  |  | my $method = shift;
14 |  |  |  |  |
15 |  |  |  |  | return unless Scalar::Util::blessed($object);
16 |  |  |  |  | return $object->can($method);
17 |  |  |  |  | }
18 |  |  |  |  |
19 |  |  |  |  | sub isa {
20 |  |  |  |  | my $object = shift;
21 |  |  |  |  | my $method = shift;
22 |  |  |  |  |
23 |  |  |  |  | return unless Scalar::Util::blessed($object);
24 |  |  |  |  | return $object->isa($method);
25 |  |  |  |  | }
26 |  |  |  |  |
27 | 1 | 2µs |  |  | 1;