← 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:00 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep/MM.pm
StatementsExecuted 491 statements in 7.87ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
330412.42ms2.42msTest::Deep::MM::::__ANON__[:25] Test::Deep::MM::__ANON__[:25]
18111.14ms4.14msTest::Deep::MM::::new Test::Deep::MM::new
1811452µs452µsTest::Deep::MM::::__ANON__[:28] Test::Deep::MM::__ANON__[:28]
1811346µs346µsTest::Deep::MM::::init Test::Deep::MM::init
111274µs298µsTest::Deep::MM::::import Test::Deep::MM::import
11155µs66µsTest::Deep::Stack::::BEGIN@1Test::Deep::Stack::BEGIN@1
11139µs91µsTest::Deep::MM::::BEGIN@16 Test::Deep::MM::BEGIN@16
11128µs51µsTest::Deep::Stack::::BEGIN@2Test::Deep::Stack::BEGIN@2
11125µs61µsTest::Deep::MM::::BEGIN@31 Test::Deep::MM::BEGIN@31
41123µs23µsTest::Deep::MM::::CORE:match Test::Deep::MM::CORE:match (opcode)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
12143µs278µs
# spent 66µs (55+12) within Test::Deep::Stack::BEGIN@1 which was called: # once (55µs+12µs) by Test::Deep::Stack::BEGIN@9 at line 1
use strict;
# spent 66µs making 1 call to Test::Deep::Stack::BEGIN@1 # spent 12µs making 1 call to strict::import
22371µs274µs
# spent 51µs (28+23) within Test::Deep::Stack::BEGIN@2 which was called: # once (28µs+23µs) by Test::Deep::Stack::BEGIN@9 at line 2
use warnings;
# spent 51µs making 1 call to Test::Deep::Stack::BEGIN@2 # spent 23µs making 1 call to warnings::import
3
4package Test::Deep::MM;
5
6sub import
7
# spent 298µs (274+23) within Test::Deep::MM::import which was called: # once (274µs+23µs) by Test::Deep::Stack::BEGIN@9 at line 9 of Test/Deep/Stack.pm
{
826304µs my $self = shift;
9
10 my ($pkg) = caller();
11 my $mpkg = $pkg."::Methods";
12 foreach my $attr (@_)
13 {
14423µs if ($attr =~ /^[a-z]/)
# spent 23µs making 4 calls to Test::Deep::MM::CORE:match, avg 6µs/call
15 {
162473µs2143µs
# spent 91µs (39+52) within Test::Deep::MM::BEGIN@16 which was called: # once (39µs+52µs) by Test::Deep::Stack::BEGIN@9 at line 16
no strict 'refs';
# spent 91µs making 1 call to Test::Deep::MM::BEGIN@16 # spent 52µs making 1 call to strict::unimport
17 *{$mpkg."::$attr"} = \&{$attr};
18 }
19 else
20 {
21 my $get_name = $mpkg."::get$attr";
22 my $set_name = $mpkg."::set$attr";
23
# spent 2.42ms within Test::Deep::MM::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep/MM.pm:25] which was called 330 times, avg 7µs/call: # 144 times (1.04ms+0s) by Test::Deep::Stack::push at line 24 of Test/Deep/Stack.pm, avg 7µs/call # 144 times (814µs+0s) by Test::Deep::Stack::pop at line 31 of Test/Deep/Stack.pm, avg 6µs/call # 24 times (184µs+0s) by Test::Deep::Stack::getLast at line 65 of Test/Deep/Stack.pm, avg 8µs/call # 18 times (377µs+0s) by Test::Deep::Stack::init at line 17 of Test/Deep/Stack.pm, avg 21µs/call
my $get_sub = sub {
243303.85ms return $_[0]->{$attr};
25 };
26
# spent 452µs within Test::Deep::MM::__ANON__[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Test/Deep/MM.pm:28] which was called 18 times, avg 25µs/call: # 18 times (452µs+0s) by Test::Deep::Stack::init at line 17 of Test/Deep/Stack.pm, avg 25µs/call
my $set_sub = sub {
2718448µs return $_[0]->{$attr} = $_[1];
28 };
29
30 {
312645µs296µs
# spent 61µs (25+35) within Test::Deep::MM::BEGIN@31 which was called: # once (25µs+35µs) by Test::Deep::Stack::BEGIN@9 at line 31
no strict 'refs';
# spent 61µs making 1 call to Test::Deep::MM::BEGIN@31 # spent 35µs making 1 call to strict::unimport
32 *$get_name = $get_sub;
33 *$set_name = $set_sub;
34 push(@{$pkg."::ISA"}, $mpkg);
35 }
36 }
37 }
38}
39
40sub new
41
# spent 4.14ms (1.14+3.00) within Test::Deep::MM::new which was called 18 times, avg 230µs/call: # 18 times (1.14ms+3.00ms) by Test::Deep::cmp_details at line 147 of Test/Deep.pm, avg 230µs/call
{
42721.19ms my $pkg = shift;
43
44 my $self = bless {}, $pkg;
45
46183.00ms $self->init(@_);
# spent 3.00ms making 18 calls to Test::Deep::Stack::init, avg 167µs/call
47
48 return $self;
49}
50
51sub init
52
# spent 346µs within Test::Deep::MM::init which was called 18 times, avg 19µs/call: # 18 times (346µs+0s) by Test::Deep::Stack::init at line 15 of Test/Deep/Stack.pm, avg 19µs/call
{
5336437µs my $self = shift;
54
55 while (@_)
56 {
57 my $name = shift || confess("No name");
58
59 my $method = "set$name";
60 $self->$method(shift);
61 }
62}
63
64110µs1;
 
# spent 23µs within Test::Deep::MM::CORE:match which was called 4 times, avg 6µs/call: # 4 times (23µs+0s) by Test::Deep::MM::import at line 14, avg 6µs/call
sub Test::Deep::MM::CORE:match; # opcode