← Index
NYTProf Performance Profile   « line view »
For fastest.pl
  Run on Fri Jan 31 20:48:16 2014
Reported on Fri Jan 31 20:49:41 2014

Filename/opt/perl-5.18.1/lib/5.18.1/parent.pm
StatementsExecuted 17 statements in 312µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs39µsparent::::importparent::import
11115µs31µsparent::::BEGIN@2parent::BEGIN@2
11113µs13µsparent::::CORE:substparent::CORE:subst (opcode)
11110µs37µsparent::::BEGIN@3parent::BEGIN@3
11110µs24µ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;
2234µs247µs
# spent 31µs (15+16) within parent::BEGIN@2 which was called: # once (15µs+16µs) by Typed::BEGIN@14 at line 2
use strict;
# spent 31µs making 1 call to parent::BEGIN@2 # spent 16µs making 1 call to strict::import
32162µs264µs
# spent 37µs (10+27) within parent::BEGIN@3 which was called: # once (10µs+27µs) by Typed::BEGIN@14 at line 3
use vars qw($VERSION);
# spent 37µs making 1 call to parent::BEGIN@3 # spent 27µs making 1 call to vars::import
41700ns$VERSION = '0.225';
5
6
# spent 39µs (26+13) within parent::import which was called: # once (26µs+13µs) by Typed::BEGIN@14 at line 14 of Typed.pm
sub import {
71500ns my $class = shift;
8
91600ns my $inheritor = caller(0);
10
1111µs if ( @_ and $_[0] eq '-norequire' ) {
12 shift @_;
13 } else {
1412µs for ( my @filename = @_ ) {
151200ns if ( $_ eq $inheritor ) {
16 warn "Class '$inheritor' tried to inherit from itself\n";
17 };
18
19121µs113µs s{::|'}{/}g;
# spent 13µs making 1 call to parent::CORE:subst
2012µs require "$_.pm"; # dies if the file is not found
21 }
22 }
23
24 {
25376µs239µs
# spent 24µs (10+14) within parent::BEGIN@25 which was called: # once (10µs+14µs) by Typed::BEGIN@14 at line 25
no strict 'refs';
# spent 24µs making 1 call to parent::BEGIN@25 # spent 14µs making 1 call to strict::unimport
2618µs push @{"$inheritor\::ISA"}, @_;
27 };
28};
29
3014µs"All your base are belong to us"
31
32__END__
 
# spent 13µs within parent::CORE:subst which was called: # once (13µs+0s) by parent::import at line 19
sub parent::CORE:subst; # opcode