File | /usr/local/lib/perl5/5.10.1/Test/Deep/Array.pm |
Statements Executed | 19 |
Statement Execution Time | 203µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 21µs | 2.01ms | descend | Test::Deep::Array::
1 | 1 | 1 | 7µs | 19µs | BEGIN@6 | Test::Deep::Array::
1 | 1 | 1 | 2µs | 2µs | init | Test::Deep::Array::
0 | 0 | 0 | 0s | 0s | reset_arrow | Test::Deep::Array::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | 3 | 23µs | 2 | 24µs | use strict; # spent 21µs making 1 call to Test::Deep::BEGIN@1
# spent 3µs making 1 call to strict::import |
2 | 3 | 27µs | 2 | 26µs | use warnings; # spent 17µs making 1 call to Test::Deep::BEGIN@2
# spent 9µs making 1 call to warnings::import |
3 | |||||
4 | package Test::Deep::Array; | ||||
5 | |||||
6 | 3 | 130µs | 2 | 32µs | # spent 19µs (7+13) within Test::Deep::Array::BEGIN@6 which was called
# once (7µs+13µs) by Test::Deep::__ANON__[/usr/local/lib/perl5/5.10.1/Test/Deep.pm:92] at line 6 # spent 19µs making 1 call to Test::Deep::Array::BEGIN@6
# spent 13µs making 1 call to Test::Deep::Cmp::import |
7 | |||||
8 | sub init | ||||
9 | # spent 2µs within Test::Deep::Array::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 2.01ms (21µs+1.99) within Test::Deep::Array::descend which was called
# once (21µs+1.99ms) by Test::Deep::descend at line 312 of Test/Deep.pm | ||||
19 | 6 | 14µs | my $self = shift; | ||
20 | my $got = shift; | ||||
21 | |||||
22 | my $exp = $self->{val}; | ||||
23 | |||||
24 | return 0 unless Test::Deep::descend($got, Test::Deep::arraylength(scalar @$exp)); # spent 394µs making 1 call to Test::Deep::__ANON__[Test/Deep.pm:92]
# spent 863µs making 1 call to Test::Deep::descend, recursion: max depth 3, time 863µs | ||||
25 | |||||
26 | return 0 unless $self->test_class($got); # spent 167µs making 1 call to Test::Deep::Ref::test_class | ||||
27 | |||||
28 | return Test::Deep::descend($got, Test::Deep::arrayelementsonly($exp)); # spent 446µs making 1 call to Test::Deep::__ANON__[Test/Deep.pm:92]
# spent 122µs making 1 call to Test::Deep::descend, recursion: max depth 3, time 122µs | ||||
29 | } | ||||
30 | |||||
31 | sub reset_arrow | ||||
32 | { | ||||
33 | return 0; | ||||
34 | } | ||||
35 | |||||
36 | 1 | 3µs | 1; |