Filename | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/x86_64-linux-thread-multi/YAML/Syck.pm |
Statements | Executed 36 statements in 7.02ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
5 | 1 | 1 | 458µs | 458µs | Load | YAML::Syck::
1 | 1 | 1 | 128µs | 304µs | BEGIN@36 | YAML::Syck::
1 | 1 | 1 | 89µs | 880µs | BEGIN@15 | YAML::Syck::
1 | 1 | 1 | 67µs | 67µs | BEGIN@12 | YAML::Syck::
1 | 1 | 1 | 67µs | 84µs | BEGIN@4 | YAML::Syck::
1 | 1 | 1 | 31µs | 116µs | BEGIN@13 | YAML::Syck::
1 | 1 | 1 | 27µs | 704µs | BEGIN@5 | YAML::Syck::
5 | 1 | 1 | 21µs | 21µs | LoadYAML (xsub) | YAML::Syck::
0 | 0 | 0 | 0s | 0s | Dump | YAML::Syck::
0 | 0 | 0 | 0s | 0s | DumpFile | YAML::Syck::
0 | 0 | 0 | 0s | 0s | LoadFile | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:37] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:38] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:39] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:40] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:41] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:42] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:43] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:44] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:45] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:46] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:47] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:48] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:49] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:50] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:51] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __ANON__[:52] | YAML::Syck::
0 | 0 | 0 | 0s | 0s | __qr_helper | YAML::Syck::
0 | 0 | 0 | 0s | 0s | _is_glob | YAML::Syck::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package YAML::Syck; | ||||
2 | # See documentation after the __END__ mark. | ||||
3 | |||||
4 | 2 | 173µs | 2 | 102µs | # spent 84µs (67+18) within YAML::Syck::BEGIN@4 which was called:
# once (67µs+18µs) by main::BEGIN@10 at line 4 # spent 84µs making 1 call to YAML::Syck::BEGIN@4
# spent 18µs making 1 call to strict::import |
5 | 1 | 677µs | # spent 704µs (27+677) within YAML::Syck::BEGIN@5 which was called:
# once (27µs+677µs) by main::BEGIN@10 at line 11 # spent 677µs making 1 call to vars::import | ||
6 | @ISA @EXPORT $VERSION | ||||
7 | $Headless $SortKeys $SingleQuote | ||||
8 | $ImplicitBinary $ImplicitTyping $ImplicitUnicode | ||||
9 | $UseCode $LoadCode $DumpCode | ||||
10 | $DeparseObject $LoadBlessed | ||||
11 | 2 | 111µs | 1 | 704µs | ); # spent 704µs making 1 call to YAML::Syck::BEGIN@5 |
12 | 2 | 294µs | 1 | 67µs | # spent 67µs within YAML::Syck::BEGIN@12 which was called:
# once (67µs+0s) by main::BEGIN@10 at line 12 # spent 67µs making 1 call to YAML::Syck::BEGIN@12 |
13 | 2 | 453µs | 2 | 201µs | # spent 116µs (31+85) within YAML::Syck::BEGIN@13 which was called:
# once (31µs+85µs) by main::BEGIN@10 at line 13 # spent 116µs making 1 call to YAML::Syck::BEGIN@13
# spent 85µs making 1 call to Exporter::import |
14 | |||||
15 | # spent 880µs (89+792) within YAML::Syck::BEGIN@15 which was called:
# once (89µs+792µs) by main::BEGIN@10 at line 34 | ||||
16 | 10 | 882µs | $VERSION = '1.20'; | ||
17 | @EXPORT = qw( Dump Load DumpFile LoadFile ); | ||||
18 | @ISA = qw( Exporter ); | ||||
19 | |||||
20 | $SortKeys = 1; | ||||
21 | $LoadBlessed = 1; | ||||
22 | |||||
23 | local $@; | ||||
24 | eval { | ||||
25 | require XSLoader; | ||||
26 | 1 | 792µs | XSLoader::load(__PACKAGE__, $VERSION); # spent 792µs making 1 call to XSLoader::load | ||
27 | 1; | ||||
28 | } or do { | ||||
29 | require DynaLoader; | ||||
30 | push @ISA, 'DynaLoader'; | ||||
31 | __PACKAGE__->bootstrap($VERSION); | ||||
32 | }; | ||||
33 | |||||
34 | 1 | 1.47ms | 1 | 880µs | } # spent 880µs making 1 call to YAML::Syck::BEGIN@15 |
35 | |||||
36 | # spent 304µs (128+176) within YAML::Syck::BEGIN@36 which was called:
# once (128µs+176µs) by main::BEGIN@10 at line 53 | ||||
37 | '' => sub { qr{$_[0]} }, | ||||
38 | x => sub { qr{$_[0]}x }, | ||||
39 | i => sub { qr{$_[0]}i }, | ||||
40 | s => sub { qr{$_[0]}s }, | ||||
41 | m => sub { qr{$_[0]}m }, | ||||
42 | ix => sub { qr{$_[0]}ix }, | ||||
43 | sx => sub { qr{$_[0]}sx }, | ||||
44 | mx => sub { qr{$_[0]}mx }, | ||||
45 | si => sub { qr{$_[0]}si }, | ||||
46 | mi => sub { qr{$_[0]}mi }, | ||||
47 | ms => sub { qr{$_[0]}sm }, | ||||
48 | six => sub { qr{$_[0]}six }, | ||||
49 | mix => sub { qr{$_[0]}mix }, | ||||
50 | msx => sub { qr{$_[0]}msx }, | ||||
51 | msi => sub { qr{$_[0]}msi }, | ||||
52 | msix => sub { qr{$_[0]}msix }, | ||||
53 | 2 | 2.20ms | 2 | 480µs | }; # spent 304µs making 1 call to YAML::Syck::BEGIN@36
# spent 176µs making 1 call to constant::import |
54 | |||||
55 | sub __qr_helper { | ||||
56 | if ($_[0] =~ /\A \(\? ([ixsm]*) (?:- (?:[ixsm]*))? : (.*) \) \z/x) { | ||||
57 | my $sub = QR_MAP()->{$1} || QR_MAP()->{''}; | ||||
58 | &$sub($2); | ||||
59 | } | ||||
60 | else { | ||||
61 | qr/$_[0]/; | ||||
62 | } | ||||
63 | } | ||||
64 | |||||
65 | sub Dump { | ||||
66 | $#_ ? join('', map { YAML::Syck::DumpYAML($_) } @_) | ||||
67 | : YAML::Syck::DumpYAML($_[0]); | ||||
68 | } | ||||
69 | |||||
70 | # spent 458µs within YAML::Syck::Load which was called 5 times, avg 92µs/call:
# 5 times (458µs+0s) by main::check at line 28 of t/app_dpath.t, avg 92µs/call | ||||
71 | 15 | 1.43ms | if (wantarray) { | ||
72 | my ($rv) = YAML::Syck::LoadYAML($_[0]); | ||||
73 | @{$rv}; | ||||
74 | } | ||||
75 | else { | ||||
76 | @_ = $_[0]; | ||||
77 | 5 | 21µs | goto &YAML::Syck::LoadYAML; # spent 21µs making 5 calls to YAML::Syck::LoadYAML, avg 4µs/call | ||
78 | } | ||||
79 | } | ||||
80 | |||||
81 | sub _is_glob { | ||||
82 | my $h = shift; | ||||
83 | |||||
84 | return 1 if(ref($h) eq 'GLOB'); | ||||
85 | return 1 if(ref(\$h) eq 'GLOB'); | ||||
86 | return 1 if(ref($h) =~ m/^IO::/); | ||||
87 | |||||
88 | return; | ||||
89 | } | ||||
90 | |||||
91 | sub DumpFile { | ||||
92 | my $file = shift; | ||||
93 | if ( _is_glob($file) ) { | ||||
94 | if ($#_) { | ||||
95 | print {$file} YAML::Syck::DumpYAML($_) for @_; | ||||
96 | } | ||||
97 | else { | ||||
98 | print {$file} YAML::Syck::DumpYAML($_[0]); | ||||
99 | } | ||||
100 | } | ||||
101 | else { | ||||
102 | open(my $fh, '>', $file) or die "Cannot write to $file: $!"; | ||||
103 | if ($#_) { | ||||
104 | print {$fh} YAML::Syck::DumpYAML($_) for @_; | ||||
105 | } | ||||
106 | else { | ||||
107 | print {$fh} YAML::Syck::DumpYAML($_[0]); | ||||
108 | } | ||||
109 | close $fh; | ||||
110 | } | ||||
111 | } | ||||
112 | |||||
113 | sub LoadFile { | ||||
114 | my $file = shift; | ||||
115 | if ( _is_glob($file) ) { | ||||
116 | Load(do { local $/; <$file> }); | ||||
117 | } | ||||
118 | else { | ||||
119 | if(!-e $file || -z $file) { | ||||
120 | die("'$file' is empty or non-existant"); | ||||
121 | } | ||||
122 | open(my $fh, '<', $file) or die "Cannot read from $file: $!"; | ||||
123 | Load(do { local $/; <$fh> }); | ||||
124 | } | ||||
125 | } | ||||
126 | |||||
127 | 1 | 12µs | 1; | ||
128 | |||||
129 | __END__ | ||||
# spent 21µs within YAML::Syck::LoadYAML which was called 5 times, avg 4µs/call:
# 5 times (21µs+0s) by main::check at line 77, avg 4µs/call |