← 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:23 2010

File /usr/local/lib/perl5/5.10.1/Test/Deep/Blessed.pm
Statements Executed 37
Statement Execution Time 302µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31126µs134µsTest::Deep::Blessed::::descendTest::Deep::Blessed::descend
1118µs37µsTest::Deep::Blessed::::BEGIN@8Test::Deep::Blessed::BEGIN@8
1117µs21µsTest::Deep::Blessed::::BEGIN@6Test::Deep::Blessed::BEGIN@6
3116µs6µsTest::Deep::Blessed::::initTest::Deep::Blessed::init
0000s0sTest::Deep::Blessed::::renderGotTest::Deep::Blessed::renderGot
0000s0sTest::Deep::Blessed::::render_stackTest::Deep::Blessed::render_stack
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1326µs225µsuse strict;
# spent 22µs making 1 call to Test::Deep::BEGIN@1 # spent 4µs making 1 call to strict::import
2332µs230µsuse warnings;
# spent 19µs making 1 call to Test::Deep::BEGIN@2 # spent 11µs making 1 call to warnings::import
3
4package Test::Deep::Blessed;
5
6337µs234µs
# spent 21µs (7+13) within Test::Deep::Blessed::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
use Test::Deep::Cmp;
# spent 21µs making 1 call to Test::Deep::Blessed::BEGIN@6 # spent 14µs making 1 call to Test::Deep::Cmp::import
7
83170µs266µs
# spent 37µs (8+29) within Test::Deep::Blessed::BEGIN@8 which was called # once (8µs+29µs) by Test::Deep::__ANON__[/usr/local/lib/perl5/5.10.1/Test/Deep.pm:92] at line 8
use Scalar::Util qw( blessed );
# spent 37µs making 1 call to Test::Deep::Blessed::BEGIN@8 # spent 29µs making 1 call to Exporter::import
9
10sub init
11
# spent 6µs within Test::Deep::Blessed::init which was called 3 times, avg 2µs/call: # 3 times (6µs+0s) by Test::Deep::Cmp::new at line 32 of Test/Deep/Cmp.pm, avg 2µs/call
{
12912µs my $self = shift;
13
14 my $val = shift;
15
16 $self->{val} = $val;
17}
18
19sub descend
20
# spent 134µs (26+108) within Test::Deep::Blessed::descend which was called 3 times, avg 45µs/call: # 3 times (26µs+108µs) by Test::Deep::descend at line 312 of Test/Deep.pm, avg 45µs/call
{
211522µs my $self = shift;
22 my $got = shift;
23
24 my $exp = $self->{val};
25 my $blessed = blessed($got);
# spent 1µs making 3 calls to Scalar::Util::blessed, avg 400ns/call
26
27 return Test::Deep::descend($blessed, Test::Deep::shallow($exp));
# spent 31µs making 3 calls to Test::Deep::__ANON__[Test/Deep.pm:92], avg 10µs/call # spent 76µs making 3 calls to Test::Deep::descend, avg 25µs/call, recursion: max depth 4, time 76µs
28}
29
30sub render_stack
31{
32 my $self = shift;
33 my $var = shift;
34
35 return "blessed($var)"
36}
37
38sub renderGot
39{
40 my $self = shift;
41
42 my $got = shift;
43
44 $self->SUPER::renderGot(blessed($got));
45}
46
4713µs1;