Profile of /usr/local/lib/perl5/5.10.1/Test/Deep/ArrayLength.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For 05.Domain_and_Item.t
Run on Tue May 4 17:21:41 2010
Reported on Tue May 4 17:22:19 2010

File | /usr/local/lib/perl5/5.10.1/Test/Deep/ArrayLength.pm
Statements Executed | 18
Statement Execution Time | 205µs

Subroutines — ordered by exclusive time
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 16µs | 752µs | Test::Deep::ArrayLength::::descendTest::Deep::ArrayLength::descend
1 | 1 | 1 | 8µs | 21µs | Test::Deep::ArrayLength::::BEGIN@6Test::Deep::ArrayLength::BEGIN@6
1 | 1 | 1 | 2µs | 2µs | Test::Deep::ArrayLength::::initTest::Deep::ArrayLength::init

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

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 | 3 | 36µs | 2 | 29µs | use strict; # spent 25µs making 1 call to Test::Deep::BEGIN@1 # spent 4µs making 1 call to strict::import
2 | 3 | 38µs | 2 | 36µs | use warnings; # spent 23µs making 1 call to Test::Deep::BEGIN@2 # spent 13µs making 1 call to warnings::import
3 |  |  |  |  |
4 |  |  |  |  | package Test::Deep::ArrayLength;
5 |  |  |  |  |
6 | 3 | 112µs | 2 | 35µs | # spent 21µs (8+14) within Test::Deep::ArrayLength::BEGIN@6 which was called # once (8µs+14µs) by Test::Deep::__ANON__[/usr/local/lib/perl5/5.10.1/Test/Deep.pm:92] at line 6 use Test::Deep::Ref; # spent 21µs making 1 call to Test::Deep::ArrayLength::BEGIN@6 # spent 14µs making 1 call to Test::Deep::Cmp::import
7 |  |  |  |  |
8 |  |  |  |  | sub init
9 |  |  |  |  | # spent 2µs within Test::Deep::ArrayLength::init which was called # once (2µs+0s) by Test::Deep::Cmp::new at line 32 of Test/Deep/Cmp.pm {
10 | 3 | 6µs |  |  | my $self = shift;
11 |  |  |  |  |
12 |  |  |  |  | my $val = shift;
13 |  |  |  |  |
14 |  |  |  |  | $self->{val} = $val;
15 |  |  |  |  | }
16 |  |  |  |  |
17 |  |  |  |  | sub descend
18 |  |  |  |  | # spent 752µs (16+736) within Test::Deep::ArrayLength::descend which was called # once (16µs+736µs) by Test::Deep::descend at line 312 of Test/Deep.pm {
19 | 5 | 10µs |  |  | my $self = shift;
20 |  |  |  |  | my $got = shift;
21 |  |  |  |  |
22 |  |  |  |  | my $exp = $self->{val};
23 |  |  |  |  |
24 |  |  |  |  | return 0 unless $self->test_reftype($got, "ARRAY"); # spent 186µs making 1 call to Test::Deep::Ref::test_reftype
25 |  |  |  |  |
26 |  |  |  |  | return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp)); # spent 431µs making 1 call to Test::Deep::__ANON__[Test/Deep.pm:92] # spent 119µs making 1 call to Test::Deep::descend, recursion: max depth 4, time 119µs
27 |  |  |  |  | }
28 |  |  |  |  |
29 | 1 | 3µs |  |  | 1;