← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:12 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/parent.pm
StatementsExecuted 20 statements in 208µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11120µs30µsparent::::importparent::import
11111µs23µsparent::::BEGIN@2parent::BEGIN@2
21110µs10µsparent::::CORE:substparent::CORE:subst (opcode)
1118µs29µsparent::::BEGIN@3parent::BEGIN@3
1117µs17µsparent::::BEGIN@25parent::BEGIN@25
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package parent;
2224µs235µs
# spent 23µs (11+12) within parent::BEGIN@2 which was called: # once (11µs+12µs) by File::Temp::BEGIN@32 at line 2
use strict;
# spent 23µs making 1 call to parent::BEGIN@2 # spent 12µs making 1 call to strict::import
32103µs251µs
# spent 29µs (8+22) within parent::BEGIN@3 which was called: # once (8µs+22µs) by File::Temp::BEGIN@32 at line 3
use vars qw($VERSION);
# spent 29µs making 1 call to parent::BEGIN@3 # spent 22µs making 1 call to vars::import
41500ns$VERSION = '0.225';
5
6
# spent 30µs (20+10) within parent::import which was called: # once (20µs+10µs) by File::Temp::BEGIN@32 at line 32 of File/Temp.pm
sub import {
71400ns my $class = shift;
8
91400ns my $inheritor = caller(0);
10
111800ns if ( @_ and $_[0] eq '-norequire' ) {
12 shift @_;
13 } else {
1412µs for ( my @filename = @_ ) {
152300ns if ( $_ eq $inheritor ) {
16 warn "Class '$inheritor' tried to inherit from itself\n";
17 };
18
19216µs210µs s{::|'}{/}g;
# spent 10µs making 2 calls to parent::CORE:subst, avg 5µs/call
2022µs require "$_.pm"; # dies if the file is not found
21 }
22 }
23
24 {
25350µs226µs
# spent 17µs (7+10) within parent::BEGIN@25 which was called: # once (7µs+10µs) by File::Temp::BEGIN@32 at line 25
no strict 'refs';
# spent 17µs making 1 call to parent::BEGIN@25 # spent 10µs making 1 call to strict::unimport
2616µs push @{"$inheritor\::ISA"}, @_;
27 };
28};
29
3012µs"All your base are belong to us"
31
32__END__
 
# spent 10µs within parent::CORE:subst which was called 2 times, avg 5µs/call: # 2 times (10µs+0s) by parent::import at line 19, avg 5µs/call
sub parent::CORE:subst; # opcode