← Index
NYTProf Performance Profile   « line view »
For webmerge/scripts/webmerge.pl
  Run on Mon Oct 7 02:42:42 2013
Reported on Mon Oct 7 03:03:26 2013

Filename/usr/lib64/perl5/5.16.0/Pod/Simple/LinkSection.pm
StatementsExecuted 14 statements in 2.88ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11151.1ms51.7msPod::Simple::LinkSection::::BEGIN@9Pod::Simple::LinkSection::BEGIN@9
11194µs256µsPod::Simple::LinkSection::::BEGIN@5Pod::Simple::LinkSection::BEGIN@5
11173µs216µsPod::Simple::LinkSection::::BEGIN@10Pod::Simple::LinkSection::BEGIN@10
11159µs289µsPod::Simple::LinkSection::::BEGIN@13Pod::Simple::LinkSection::BEGIN@13
11152µs144µsPod::Simple::LinkSection::::BEGIN@8Pod::Simple::LinkSection::BEGIN@8
0000s0sPod::Simple::LinkSection::::as_stringPod::Simple::LinkSection::as_string
0000s0sPod::Simple::LinkSection::::newPod::Simple::LinkSection::new
0000s0sPod::Simple::LinkSection::::stringifyPod::Simple::LinkSection::stringify
0000s0sPod::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
21125µsrequire 5;
3package Pod::Simple::LinkSection;
4 # Based somewhat dimly on Array::Autojoin
52211µs2419µ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
613µs$VERSION = '3.20';
7
82142µs2237µ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
92716µs151.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
102290µs2360µ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
111900ns$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
14143µs1230µ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
1911.33ms1289µs);
# spent 289µs making 1 call to Pod::Simple::LinkSection::BEGIN@13
20
21sub tack_on {
22 $_[0] = ['', {}, "$_[0]" ];
23 return $_[0][2] .= $_[1];
24}
25
26sub as_string {
27 goto &Pod::Simple::BlackBox::stringify_lol;
28}
29sub stringify {
30 goto &Pod::Simple::BlackBox::stringify_lol;
31}
32
33sub 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
66116µs1;
67
68__END__