Profile of Pod/Simple/LinkSection.pm

Filename	/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/Pod/Simple/LinkSection.pm
Statements	Executed 11 statements in 560µs

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

					# spent 1µs within Pod::Simple::LinkSection::__ANON__ which was called: # once (1µs+0s) by Pod::Simple::LinkSection::BEGIN@7 at line 7 sub Pod::Simple::LinkSection::__ANON__; # xsub