Profile of Pod/Simple/LinkSection.pm

Filename	/usr/local/lib/perl5/5.24/Pod/Simple/LinkSection.pm
Statements	Executed 14 statements in 1.25ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	22.7ms	23.0ms	Pod::Simple::LinkSection::::BEGIN@9Pod::Simple::LinkSection::BEGIN@9
1	1	1	47µs	116µs	Pod::Simple::LinkSection::::BEGIN@5Pod::Simple::LinkSection::BEGIN@5
1	1	1	30µs	201µs	Pod::Simple::LinkSection::::BEGIN@13Pod::Simple::LinkSection::BEGIN@13
1	1	1	26µs	112µs	Pod::Simple::LinkSection::::BEGIN@10Pod::Simple::LinkSection::BEGIN@10
1	1	1	23µs	37µ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	20µs			require 5;
3					package Pod::Simple::LinkSection;
4					# Based somewhat dimly on Array::Autojoin
5	2	95µs	2	184µs	# spent 116µs (47+69) within Pod::Simple::LinkSection::BEGIN@5 which was called: # once (47µs+69µs) by Pod::Simple::BEGIN@9 at line 5 use vars qw($VERSION ); # spent 116µs making 1 call to Pod::Simple::LinkSection::BEGIN@5 # spent 69µs making 1 call to vars::import
6	1	2µs			$VERSION = '3.32';
7
8	2	81µs	2	51µs	# spent 37µs (23+14) within Pod::Simple::LinkSection::BEGIN@8 which was called: # once (23µs+14µs) by Pod::Simple::BEGIN@9 at line 8 use strict; # spent 37µs making 1 call to Pod::Simple::LinkSection::BEGIN@8 # spent 14µs making 1 call to strict::import
9	2	356µs	1	23.0ms	# spent 23.0ms (22.7+266µs) within Pod::Simple::LinkSection::BEGIN@9 which was called: # once (22.7ms+266µs) by Pod::Simple::BEGIN@9 at line 9 use Pod::Simple::BlackBox; # spent 23.0ms making 1 call to Pod::Simple::LinkSection::BEGIN@9
10	2	124µs	2	198µs	# spent 112µs (26+86) within Pod::Simple::LinkSection::BEGIN@10 which was called: # once (26µs+86µs) by Pod::Simple::BEGIN@9 at line 10 use vars qw($VERSION ); # spent 112µs making 1 call to Pod::Simple::LinkSection::BEGIN@10 # spent 86µs making 1 call to vars::import
11	1	2µs			$VERSION = '3.32';
12
13					# spent 201µs (30+171) within Pod::Simple::LinkSection::BEGIN@13 which was called: # once (30µs+171µs) by Pod::Simple::BEGIN@9 at line 19 use overload( # So it'll stringify nice
14	1	2µs			'""' => \&Pod::Simple::BlackBox::stringify_lol,
15					'bool' => \&Pod::Simple::BlackBox::stringify_lol,
16					# '.=' => \&tack_on, # grudgingly support
17
18					'fallback' => 1, # turn on cleverness
19	1	553µs	2	373µs	); # spent 201µs making 1 call to Pod::Simple::LinkSection::BEGIN@13 # spent 171µs making 1 call to overload::import
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	12µs			1;
67
68					__END__