Profile of Pod/Simple/LinkSection.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	22.8ms	23.1ms	Pod::Simple::LinkSection::::BEGIN@9Pod::Simple::LinkSection::BEGIN@9
1	1	1	45µs	109µs	Pod::Simple::LinkSection::::BEGIN@5Pod::Simple::LinkSection::BEGIN@5
1	1	1	27µs	106µs	Pod::Simple::LinkSection::::BEGIN@10Pod::Simple::LinkSection::BEGIN@10
1	1	1	26µs	177µs	Pod::Simple::LinkSection::::BEGIN@13Pod::Simple::LinkSection::BEGIN@13
1	1	1	21µs	38µ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	87µs	2	173µs	# spent 109µs (45+64) within Pod::Simple::LinkSection::BEGIN@5 which was called: # once (45µs+64µs) by Pod::Simple::BEGIN@9 at line 5 use vars qw($VERSION ); # spent 109µs making 1 call to Pod::Simple::LinkSection::BEGIN@5 # spent 64µs making 1 call to vars::import
6	1	2µs			$VERSION = '3.32';
7
8	2	60µs	2	56µs	# spent 38µs (21+18) within Pod::Simple::LinkSection::BEGIN@8 which was called: # once (21µs+18µs) by Pod::Simple::BEGIN@9 at line 8 use strict; # spent 38µs making 1 call to Pod::Simple::LinkSection::BEGIN@8 # spent 18µs making 1 call to strict::import
9	2	354µs	1	23.1ms	# spent 23.1ms (22.8+259µs) within Pod::Simple::LinkSection::BEGIN@9 which was called: # once (22.8ms+259µs) by Pod::Simple::BEGIN@9 at line 9 use Pod::Simple::BlackBox; # spent 23.1ms making 1 call to Pod::Simple::LinkSection::BEGIN@9
10	2	130µs	2	185µs	# spent 106µs (27+79) within Pod::Simple::LinkSection::BEGIN@10 which was called: # once (27µs+79µs) by Pod::Simple::BEGIN@9 at line 10 use vars qw($VERSION ); # spent 106µs making 1 call to Pod::Simple::LinkSection::BEGIN@10 # spent 79µs making 1 call to vars::import
11	1	2µs			$VERSION = '3.32';
12
13					# spent 177µs (26+151) within Pod::Simple::LinkSection::BEGIN@13 which was called: # once (26µs+151µ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	541µs	2	328µs	); # spent 177µs making 1 call to Pod::Simple::LinkSection::BEGIN@13 # spent 151µ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	15µs			1;
67
68					__END__