Profile of Pod/Simple/LinkSection.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	20.5ms	20.7ms	Pod::Simple::LinkSection::::BEGIN@9Pod::Simple::LinkSection::BEGIN@9
1	1	1	41µs	140µs	Pod::Simple::LinkSection::::BEGIN@5Pod::Simple::LinkSection::BEGIN@5
1	1	1	38µs	128µs	Pod::Simple::LinkSection::::BEGIN@10Pod::Simple::LinkSection::BEGIN@10
1	1	1	24µs	164µs	Pod::Simple::LinkSection::::BEGIN@13Pod::Simple::LinkSection::BEGIN@13
1	1	1	21µs	35µ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	22µs			require 5;
3					package Pod::Simple::LinkSection;
4					# Based somewhat dimly on Array::Autojoin
5	2	78µs	2	239µs	# spent 140µs (41+99) within Pod::Simple::LinkSection::BEGIN@5 which was called: # once (41µs+99µs) by Pod::Simple::BEGIN@9 at line 5 use vars qw($VERSION ); # spent 140µs making 1 call to Pod::Simple::LinkSection::BEGIN@5 # spent 99µs making 1 call to vars::import
6	1	2µs			$VERSION = '3.32';
7
8	2	65µs	2	49µs	# spent 35µs (21+14) within Pod::Simple::LinkSection::BEGIN@8 which was called: # once (21µs+14µs) by Pod::Simple::BEGIN@9 at line 8 use strict; # spent 35µs making 1 call to Pod::Simple::LinkSection::BEGIN@8 # spent 14µs making 1 call to strict::import
9	2	341µs	1	20.7ms	# spent 20.7ms (20.5+228µs) within Pod::Simple::LinkSection::BEGIN@9 which was called: # once (20.5ms+228µs) by Pod::Simple::BEGIN@9 at line 9 use Pod::Simple::BlackBox; # spent 20.7ms making 1 call to Pod::Simple::LinkSection::BEGIN@9
10	2	110µs	2	217µs	# spent 128µs (38+89) within Pod::Simple::LinkSection::BEGIN@10 which was called: # once (38µs+89µs) by Pod::Simple::BEGIN@9 at line 10 use vars qw($VERSION ); # spent 128µs making 1 call to Pod::Simple::LinkSection::BEGIN@10 # spent 89µs making 1 call to vars::import
11	1	2µs			$VERSION = '3.32';
12
13					# spent 164µs (24+140) within Pod::Simple::LinkSection::BEGIN@13 which was called: # once (24µs+140µ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	486µs	2	304µs	); # spent 164µs making 1 call to Pod::Simple::LinkSection::BEGIN@13 # spent 140µ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	8µs			1;
67
68					__END__