Filename | /usr/lib64/perl5/5.16.0/Pod/Simple/LinkSection.pm |
Statements | Executed 14 statements in 2.88ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 51.1ms | 51.7ms | BEGIN@9 | Pod::Simple::LinkSection::
1 | 1 | 1 | 94µs | 256µs | BEGIN@5 | Pod::Simple::LinkSection::
1 | 1 | 1 | 73µs | 216µs | BEGIN@10 | Pod::Simple::LinkSection::
1 | 1 | 1 | 59µs | 289µs | BEGIN@13 | Pod::Simple::LinkSection::
1 | 1 | 1 | 52µs | 144µs | BEGIN@8 | Pod::Simple::LinkSection::
0 | 0 | 0 | 0s | 0s | as_string | Pod::Simple::LinkSection::
0 | 0 | 0 | 0s | 0s | new | Pod::Simple::LinkSection::
0 | 0 | 0 | 0s | 0s | stringify | Pod::Simple::LinkSection::
0 | 0 | 0 | 0s | 0s | tack_on | Pod::Simple::LinkSection::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | |||||
2 | 1 | 125µs | require 5; | ||
3 | package Pod::Simple::LinkSection; | ||||
4 | # Based somewhat dimly on Array::Autojoin | ||||
5 | 2 | 211µs | 2 | 419µ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 # spent 256µs making 1 call to Pod::Simple::LinkSection::BEGIN@5
# spent 163µs making 1 call to vars::import |
6 | 1 | 3µs | $VERSION = '3.20'; | ||
7 | |||||
8 | 2 | 142µs | 2 | 237µ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 # spent 144µs making 1 call to Pod::Simple::LinkSection::BEGIN@8
# spent 93µs making 1 call to strict::import |
9 | 2 | 716µs | 1 | 51.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 # spent 51.7ms making 1 call to Pod::Simple::LinkSection::BEGIN@9 |
10 | 2 | 290µs | 2 | 360µ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 # spent 216µs making 1 call to Pod::Simple::LinkSection::BEGIN@10
# spent 143µs making 1 call to vars::import |
11 | 1 | 900ns | $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 | ||||
14 | 1 | 43µs | 1 | 230µ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 | ||||
19 | 1 | 1.33ms | 1 | 289µs | ); # spent 289µs making 1 call to Pod::Simple::LinkSection::BEGIN@13 |
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 | 16µs | 1; | ||
67 | |||||
68 | __END__ |