← Index
NYTProf Performance Profile   « block view • line view • sub view »
For t/app_dpath.t
  Run on Tue Jun 5 15:25:28 2012
Reported on Tue Jun 5 15:26:13 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep/Hash.pm
StatementsExecuted 62 statements in 3.58ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
3112.29ms3.57msTest::Deep::Hash::::hash_elements Test::Deep::Hash::hash_elements
3111.91ms3.25msTest::Deep::Hash::::hash_keys Test::Deep::Hash::hash_keys
311275µs23.0msTest::Deep::Hash::::descend Test::Deep::Hash::descend
11196µs131µsTest::Deep::::BEGIN@1.21 Test::Deep::BEGIN@1.21
31185µs85µsTest::Deep::Hash::::init Test::Deep::Hash::init
11168µs176µsTest::Deep::::BEGIN@2.22 Test::Deep::BEGIN@2.22
11155µs528µsTest::Deep::SuperHash::::BEGIN@60Test::Deep::SuperHash::BEGIN@60
11142µs196µsTest::Deep::Hash::::BEGIN@6 Test::Deep::Hash::BEGIN@6
11129µs303µsTest::Deep::SubHash::::BEGIN@83 Test::Deep::SubHash::BEGIN@83
0000s0sTest::Deep::Hash::::reset_arrow Test::Deep::Hash::reset_arrow
0000s0sTest::Deep::SubHash::::hash_elements Test::Deep::SubHash::hash_elements
0000s0sTest::Deep::SubHash::::hash_keys Test::Deep::SubHash::hash_keys
0000s0sTest::Deep::SuperHash::::hash_elementsTest::Deep::SuperHash::hash_elements
0000s0sTest::Deep::SuperHash::::hash_keysTest::Deep::SuperHash::hash_keys
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
12153µs2166µs
# spent 131µs (96+35) within Test::Deep::BEGIN@1.21 which was called: # once (96µs+35µs) by Test::Deep::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep.pm:80] at line 1
use strict;
# spent 131µs making 1 call to Test::Deep::BEGIN@1.21 # spent 35µs making 1 call to strict::import
22172µs2285µs
# spent 176µs (68+109) within Test::Deep::BEGIN@2.22 which was called: # once (68µs+109µs) by Test::Deep::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep.pm:80] at line 2
use warnings;
# spent 176µs making 1 call to Test::Deep::BEGIN@2.22 # spent 109µs making 1 call to warnings::import
3
4package Test::Deep::Hash;
5
621.12ms2350µs
# spent 196µs (42+154) within Test::Deep::Hash::BEGIN@6 which was called: # once (42µs+154µs) by Test::Deep::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep.pm:80] at line 6
use Test::Deep::Ref;
# spent 196µs making 1 call to Test::Deep::Hash::BEGIN@6 # spent 154µs making 1 call to Test::Deep::Cmp::import
7
8sub init
9
# spent 85µs within Test::Deep::Hash::init which was called 3 times, avg 28µs/call: # 3 times (85µs+0s) by Test::Deep::Cmp::new at line 33 of Test/Deep/Cmp.pm, avg 28µs/call
{
1035µs my $self = shift;
11
1234µs my $val = shift;
13
14377µs $self->{val} = $val;
15}
16
17sub descend
18
# spent 23.0ms (275µs+22.7) within Test::Deep::Hash::descend which was called 3 times, avg 7.67ms/call: # 3 times (275µs+22.7ms) by Test::Deep::descend at line 328 of Test/Deep.pm, avg 7.67ms/call
{
1934µs my $self = shift;
20
2133µs my $got = shift;
22
2338µs my $exp = $self->{val};
24
25363µs3264µs my $data = $self->data;
# spent 264µs making 3 calls to Test::Deep::Cmp::data, avg 88µs/call
26
273105µs63.25ms return 0 unless Test::Deep::descend($got, $self->hash_keys($exp));
# spent 3.25ms making 3 calls to Test::Deep::Hash::hash_keys, avg 1.08ms/call # spent 11.0ms making 3 calls to Test::Deep::descend, avg 3.65ms/call, recursion: max depth 1, sum of overlapping time 11.0ms
28
29344µs32.60ms return 0 unless $self->test_class($got);
# spent 2.60ms making 3 calls to Test::Deep::Ref::test_class, avg 867µs/call
30
31367µs63.57ms return Test::Deep::descend($got, $self->hash_elements($exp));
# spent 3.57ms making 3 calls to Test::Deep::Hash::hash_elements, avg 1.19ms/call # spent 2.07ms making 3 calls to Test::Deep::descend, avg 692µs/call, recursion: max depth 1, sum of overlapping time 2.07ms
32}
33
34sub hash_elements
35
# spent 3.57ms (2.29+1.28) within Test::Deep::Hash::hash_elements which was called 3 times, avg 1.19ms/call: # 3 times (2.29ms+1.28ms) by Test::Deep::Hash::descend at line 31, avg 1.19ms/call
{
363378µs require Test::Deep::HashElements;
37
3835µs my $self = shift;
39
40367µs3379µs return Test::Deep::HashElements->new(@_);
# spent 379µs making 3 calls to Test::Deep::Cmp::new, avg 126µs/call
41}
42
43sub hash_keys
44
# spent 3.25ms (1.91+1.34) within Test::Deep::Hash::hash_keys which was called 3 times, avg 1.08ms/call: # 3 times (1.91ms+1.34ms) by Test::Deep::Hash::descend at line 27, avg 1.08ms/call
{
453318µs require Test::Deep::HashKeys;
46
4735µs my $self = shift;
4833µs my $exp = shift;
49
50376µs3494µs return Test::Deep::HashKeys->new(keys %$exp);
# spent 494µs making 3 calls to Test::Deep::Cmp::new, avg 165µs/call
51}
52
53sub reset_arrow
54{
55 return 0;
56}
57
58package Test::Deep::SuperHash;
59
602517µs21.00ms
# spent 528µs (55+473) within Test::Deep::SuperHash::BEGIN@60 which was called: # once (55µs+473µs) by Test::Deep::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep.pm:80] at line 60
use base 'Test::Deep::Hash';
# spent 528µs making 1 call to Test::Deep::SuperHash::BEGIN@60 # spent 473µs making 1 call to base::import
61
62sub hash_elements
63{
64 require Test::Deep::HashElements;
65
66 my $self = shift;
67
68 return Test::Deep::SuperHashElements->new(@_);
69}
70
71sub hash_keys
72{
73 require Test::Deep::HashKeys;
74
75 my $self = shift;
76 my $exp = shift;
77
78 return Test::Deep::SuperHashKeys->new(keys %$exp);
79}
80
81package Test::Deep::SubHash;
82
832383µs2576µs
# spent 303µs (29+273) within Test::Deep::SubHash::BEGIN@83 which was called: # once (29µs+273µs) by Test::Deep::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep.pm:80] at line 83
use base 'Test::Deep::Hash';
# spent 303µs making 1 call to Test::Deep::SubHash::BEGIN@83 # spent 273µs making 1 call to base::import
84
85sub hash_elements
86{
87 require Test::Deep::HashElements;
88
89 my $self = shift;
90
91 return Test::Deep::SubHashElements->new(@_);
92}
93
94sub hash_keys
95{
96 require Test::Deep::HashKeys;
97
98 my $self = shift;
99 my $exp = shift;
100
101 return Test::Deep::SubHashKeys->new(keys %$exp);
102}
103
10418µs1;