Filename	/usr/share/perl/5.14/parent.pm
Statements	Executed 17 statements in 239µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	2.22ms	3.03ms	parent::::importparent::import
1	1	1	9µs	11µs	parent::::BEGIN@2parent::BEGIN@2
1	1	1	5µs	12µs	parent::::BEGIN@25parent::BEGIN@25
1	1	1	4µs	18µs	parent::::BEGIN@3parent::BEGIN@3
1	1	1	1µs	1µs	parent::::CORE:substparent::CORE:subst (opcode)

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package parent;
2	2	19µs	2	13µs	# spent 11µs (9+2) within parent::BEGIN@2 which was called: # once (9µs+2µs) by NewBoard::BEGIN@21 at line 2 use strict; # spent 11µs making 1 call to parent::BEGIN@2 # spent 2µs making 1 call to strict::import
3	2	104µs	2	31µs	# spent 18µs (4+13) within parent::BEGIN@3 which was called: # once (4µs+13µs) by NewBoard::BEGIN@21 at line 3 use vars qw($VERSION); # spent 18µs making 1 call to parent::BEGIN@3 # spent 13µs making 1 call to vars::import
4	1	400ns			$VERSION = '0.225';
5
6					# spent 3.03ms (2.22+807µs) within parent::import which was called: # once (2.22ms+807µs) by NewBoard::BEGIN@21 at line 21 of NewBoard.pm sub import {
7	9	68µs			my $class = shift;
8
9					my $inheritor = caller(0);
10
11					if ( @_ and $_[0] eq '-norequire' ) {
12					shift @_;
13					} else {
14					for ( my @filename = @_ ) {
15					if ( $_ eq $inheritor ) {
16					warn "Class '$inheritor' tried to inherit from itself\n";
17					};
18
19			1	1µs	s{::|'}{/}g; # spent 1µs making 1 call to parent::CORE:subst
20					require "$_.pm"; # dies if the file is not found
21					}
22					}
23
24					{
25	2	45µs	2	20µs	# spent 12µs (5+7) within parent::BEGIN@25 which was called: # once (5µs+7µs) by NewBoard::BEGIN@21 at line 25 no strict 'refs'; # spent 12µs making 1 call to parent::BEGIN@25 # spent 7µs making 1 call to strict::unimport
26					push @{"$inheritor\::ISA"}, @_;
27					};
28					};
29
30	1	2µs			"All your base are belong to us"
31
32					__END__
					# spent 1µs within parent::CORE:subst which was called: # once (1µs+0s) by parent::import at line 19 sub parent::CORE:subst; # opcode