Profile of Pod/Simple/LinkSection.pm

Filename	/usr/lib64/perl5/5.16.0/Pod/Simple/LinkSection.pm
Statements	Executed 14 statements in 2.88ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	51.1ms	51.7ms	Pod::Simple::LinkSection::::BEGIN@9Pod::Simple::LinkSection::BEGIN@9
1	1	1	94µs	256µs	Pod::Simple::LinkSection::::BEGIN@5Pod::Simple::LinkSection::BEGIN@5
1	1	1	73µs	216µs	Pod::Simple::LinkSection::::BEGIN@10Pod::Simple::LinkSection::BEGIN@10
1	1	1	59µs	289µs	Pod::Simple::LinkSection::::BEGIN@13Pod::Simple::LinkSection::BEGIN@13
1	1	1	52µs	144µs	Pod::Simple::LinkSection::::BEGIN@8Pod::Simple::LinkSection::BEGIN@8
0	0	0	0s	0s	Pod::Simple::LinkSection::::as_stringPod::Simple::LinkSection::as_string
0	0	0	0s	0s	Pod::Simple::LinkSection::::newPod::Simple::LinkSection::new
0	0	0	0s	0s	Pod::Simple::LinkSection::::stringifyPod::Simple::LinkSection::stringify
0	0	0	0s	0s	Pod::Simple::LinkSection::::tack_onPod::Simple::LinkSection::tack_on

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

Line	State ments	Time on line	Calls	Time in subs	Code
1
2	1	125µs			require 5;
3					package Pod::Simple::LinkSection;
4					# Based somewhat dimly on Array::Autojoin
5	2	211µs	2	419µs	# spent 256µs (94+163) within Pod::Simple::LinkSection::BEGIN@5 which was called: # once (94µs+163µs) by Pod::Simple::BEGIN@9 at line 5 use vars qw($VERSION ); # spent 256µs making 1 call to Pod::Simple::LinkSection::BEGIN@5 # spent 163µs making 1 call to vars::import
6	1	3µs			$VERSION = '3.20';
7
8	2	142µs	2	237µs	# spent 144µs (52+93) within Pod::Simple::LinkSection::BEGIN@8 which was called: # once (52µs+93µs) by Pod::Simple::BEGIN@9 at line 8 use strict; # spent 144µs making 1 call to Pod::Simple::LinkSection::BEGIN@8 # spent 93µs making 1 call to strict::import
9	2	716µs	1	51.7ms	# spent 51.7ms (51.1+609µs) within Pod::Simple::LinkSection::BEGIN@9 which was called: # once (51.1ms+609µs) by Pod::Simple::BEGIN@9 at line 9 use Pod::Simple::BlackBox; # spent 51.7ms making 1 call to Pod::Simple::LinkSection::BEGIN@9
10	2	290µs	2	360µs	# spent 216µs (73+143) within Pod::Simple::LinkSection::BEGIN@10 which was called: # once (73µs+143µs) by Pod::Simple::BEGIN@9 at line 10 use vars qw($VERSION ); # spent 216µs making 1 call to Pod::Simple::LinkSection::BEGIN@10 # spent 143µs making 1 call to vars::import
11	1	900ns			$VERSION = '3.20';
12
13					# spent 289µs (59+230) within Pod::Simple::LinkSection::BEGIN@13 which was called: # once (59µs+230µs) by Pod::Simple::BEGIN@9 at line 19 use overload( # So it'll stringify nice
14	1	43µs	1	230µs	'""' => \&Pod::Simple::BlackBox::stringify_lol, # spent 230µs making 1 call to overload::import
15					'bool' => \&Pod::Simple::BlackBox::stringify_lol,
16					# '.=' => \&tack_on, # grudgingly support
17
18					'fallback' => 1, # turn on cleverness
19	1	1.33ms	1	289µs	); # spent 289µs making 1 call to Pod::Simple::LinkSection::BEGIN@13
20
21					sub tack_on {
22					$_[0] = ['', {}, "$_[0]" ];
23					return $_[0][2] .= $_[1];
24					}
25
26					sub as_string {
27					goto &Pod::Simple::BlackBox::stringify_lol;
28					}
29					sub stringify {
30					goto &Pod::Simple::BlackBox::stringify_lol;
31					}
32
33					sub new {
34					my $class = shift;
35					$class = ref($class) \|\| $class;
36					my $new;
37					if(@_ == 1) {
38					if (!ref($_[0] \|\| '')) { # most common case: one bare string
39					return bless ['', {}, $_[0] ], $class;
40					} elsif( ref($_[0] \|\| '') eq 'ARRAY') {
41					$new = [ @{ $_[0] } ];
42					} else {
43					Carp::croak( "$class new() doesn't know to clone $new" );
44					}
45					} else { # misc stuff
46					$new = [ '', {}, @_ ];
47					}
48
49					# By now it's a treelet: [ 'foo', {}, ... ]
50					foreach my $x (@$new) {
51					if(ref($x \|\| '') eq 'ARRAY') {
52					$x = $class->new($x); # recurse
53					} elsif(ref($x \|\| '') eq 'HASH') {
54					$x = { %$x };
55					}
56					# otherwise leave it.
57					}
58
59					return bless $new, $class;
60					}
61
62					# Not much in this class is likely to be link-section specific --
63					# but it just so happens that link-sections are about the only treelets
64					# that are exposed to the user.
65
66	1	16µs			1;
67
68					__END__