← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/framedepth
  Run on Fri May 28 15:23:26 2010
Reported on Fri May 28 15:26:26 2010

File/wise/base/static/lib/perl5/site_perl/5.10.0/Inline/denter.pm
Statements Executed1604
Total Time0.004648 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
44410.000790.00079Inline::denter::_setup_line
42210.000640.00259Inline::denter::_undent_data
35110.000410.00121Inline::denter::_undent_value
6110.000370.00195Inline::denter::_undent_hash
2210.000320.00301Inline::denter::undent
42310.000280.00028Inline::denter::_next_line
27110.000180.00018Inline::denter::_get_key
2213.7e-53.7e-5Inline::denter::new
1111.1e-54.0e-5Inline::denter::_undent_undef
00000Inline::denter::BEGIN
00000Inline::denter::_undent_array
00000Inline::denter::_undent_scalar

LineStmts.Exclusive
Time		Avg.Code
1package Inline::denter;
2
333.3e-51.1e-5use strict;
# spent 12µs making 1 call to strict::import
433.1e-51.0e-5use Carp;
# spent 68µs making 1 call to Exporter::import
530.000227.4e-5use AutoLoader 'AUTOLOAD';
# spent 1.22ms making 1 call to AutoLoader::import
6
7
# spent 37µs within Inline::denter::new which was called 2 times, avg 18µs/call: # once (19µs+0) by Inline::check_config_file at line 700 of blib/lib/Inline.pm # once (18µs+0) by Inline::check_module at line 857 of blib/lib/Inline.pm
sub new {
822.0e-61.0e-6 my $class = shift;
922.3e-51.2e-5 bless {width => 4,
10 comma => " : ",
11 level => 0,
12 tabwidth => 8,
13 }, $class;
14}
15
16
# spent 3.01ms (323µs+2.69) within Inline::denter::undent which was called 2 times, avg 1.51ms/call: # once (180µs+1.33ms) by Inline::check_module at line 857 of blib/lib/Inline.pm # once (143µs+1.36ms) by Inline::check_config_file at line 700 of blib/lib/Inline.pm
sub undent {
1727.0e-63.5e-6 local $/ = "\n";
1826.0e-63.0e-6 my ($o, $text) = @_;
1922.0e-61.0e-6 my ($comma) = $o->{comma};
2021.2e-56.0e-6 my $package = caller;
2121.0e-65.0e-7 $package = caller(1) if $package eq 'Inline::denter';
2224.0e-62.0e-6 %{$o->{xref}} = ();
2323.0e-61.5e-6 @{$o->{objects}} = ();
2422.0e-61.0e-6 @{$o->{context}} = ();
2521.0e-65.0e-7 my $glob = '';
2623.0e-61.5e-6 chomp $text;
2725.1e-52.5e-5 @{$o->{lines}} = split $/, $text;
2821.0e-65.0e-7 $o->{level} = 0;
2923.0e-61.5e-6 $o->{line} ||= 1;
3022.2e-51.1e-5 $o->_setup_line;
# spent 103µs making 2 calls to Inline::denter::_setup_line, avg 51µs/call
3122.0e-61.0e-6 while (not $o->{done}) {
32158.1e-55.4e-6 if ($o->{level} == 0 and
33 $o->{content} =~ /^(\w+)\s*$comma\s*(.*)$/) {
34152.0e-51.3e-6 $o->{content} = $2;
3530.001340.00045 no strict 'refs';
# spent 25µs making 1 call to strict::unimport
36152.8e-51.9e-6 push @{$o->{objects}}, "$1";
37 }
38159.9e-56.6e-6 push @{$o->{objects}}, $o->_undent_data;
# spent 2.58ms making 15 calls to Inline::denter::_undent_data, avg 172µs/call
39 }
4021.1e-55.5e-6 return @{$o->{objects}};
41}
42
43
# spent 2.58ms (642µs+1.94) within Inline::denter::_undent_data which was called 42 times, avg 62µs/call: # 27 times (354µs+-354000ns) by Inline::denter::_undent_hash at line 122, avg 0/call # 15 times (288µs+2.30ms) by Inline::denter::undent at line 38, avg 172µs/call
sub _undent_data {
44423.0e-57.1e-7 my $o = shift;
45423.4e-58.1e-7 my ($obj, $class) = ('', '');
46422.2e-55.2e-7 my @refs;
47421.9e-54.5e-7 my %refs;
48426.6e-51.6e-6 while ($o->{content} =~ s/^\\(?:\((\w+)\))?((\%|\@|\$|\\).*)/$2/) {
49 push @refs, $1;
50 $refs{$1} = scalar @refs;
51 }
52429.9e-52.4e-6 if ($o->{content} =~ /^([\%\@\$])
# spent 40µs making 1 call to Inline::denter::_undent_undef
53 (\w(?:\w|::)*)?
54 \s*$/x
55 ) {
5665.0e-68.3e-7 my $foo;
5761.1e-51.8e-6 $obj = ($1 eq '%') ? {} : ($1 eq '@') ? [] : \$foo;
5866.0e-61.0e-6 $class = $2 || '';
5966.7e-51.1e-5 if ($1 eq '%') {
# spent 1.95ms making 6 calls to Inline::denter::_undent_hash, avg 325µs/call
60 %$obj = $o->_undent_hash;
61 }
62 elsif ($1 eq '@') {
63 @$obj = $o->_undent_array;
64 }
65 else {
66 $$obj = $o->_undent_scalar;
67 }
6864.0e-66.7e-7 bless $obj, $class if length $class;
69 }
70 elsif ($o->{content} =~ /^\?\s*$/) {
71 $obj = $o->_undent_undef;
72 }
73 else {
74350.000164.5e-6 $obj = $o->_undent_value;
# spent 1.21ms making 35 calls to Inline::denter::_undent_value, avg 35µs/call
75 }
76424.8e-51.1e-6 while (@refs) {
77 my $ref = pop @refs;
78 my $copy = $obj;
79 $obj = \ $copy;
80 $o->{xref}{$ref} = $obj if $ref;
81 }
82427.7e-51.8e-6 return $obj;
83}
84
85
# spent 1.21ms (411µs+797µs) within Inline::denter::_undent_value which was called 35 times, avg 35µs/call: # 35 times (411µs+797µs) by Inline::denter::_undent_data at line 74, avg 35µs/call
sub _undent_value {
86352.4e-56.9e-7 my $o = shift;
87352.0e-55.7e-7 my $value = '';
88356.7e-51.9e-6 if ($o->{content} =~ /^\<\<(\w+)(\-?)\s*$/) {
89 my ($marker, $chomp) = ($1, $2);
90 my $line = $o->{line};
91 $o->_next_line;
92 while (not $o->{done} and
93 $o->{lines}[0] ne $marker) {
94 $value .= $o->{lines}[0] . "\n";
95 $o->_next_line;
96 }
97 croak M03_no_value_end_marker($marker, $line) if $o->{done};
98 chomp $value if $chomp;
99 }
100 elsif ($o->{content} =~ /^\"/) {
10113.0e-63.0e-6 croak $o->M04_mismatched_quotes unless $o->{content} =~ /^\".*\"\s*$/;
10214.0e-64.0e-6 ($value = $o->{content}) =~ s/^\"|\"\s*$//g;
103 }
104 else {
105342.4e-57.1e-7 $value = $o->{content};
106 }
107350.000144.1e-6 $o->_next_line;
# spent 233µs making 35 calls to Inline::denter::_next_line, avg 7µs/call
108350.000144.0e-6 $o->_setup_line;
# spent 564µs making 35 calls to Inline::denter::_setup_line, avg 16µs/call
109355.7e-51.6e-6 return $value;
110}
111
112
# spent 1.95ms (375µs+1.58) within Inline::denter::_undent_hash which was called 6 times, avg 325µs/call: # 6 times (375µs+1.58ms) by Inline::denter::_undent_data at line 59, avg 325µs/call
sub _undent_hash {
11365.0e-68.3e-7 my @values;
11464.0e-66.7e-7 my $o = shift;
11568.0e-61.3e-6 my $level = $o->{level} + 1;
11662.6e-54.3e-6 $o->_next_line;
# spent 41µs making 6 calls to Inline::denter::_next_line, avg 7µs/call
11762.6e-54.3e-6 $o->_setup_line;
# spent 104µs making 6 calls to Inline::denter::_setup_line, avg 17µs/call
11869.0e-61.5e-6 while ($o->{level} == $level) {
119279.4e-53.5e-6 my ($key, $value) = split $o->{comma}, $o->{content};
120271.4e-55.2e-7 croak $o->M05_invalid_key_value unless (defined $key and defined $value);
121272.2e-58.1e-7 $o->{content} = $value;
122270.000281.0e-5 push @values, $o->_get_key($key), $o->_undent_data;;
# spent 175µs making 27 calls to Inline::denter::_get_key, avg 6µs/call # spent 1.26ms making 27 calls to Inline::denter::_undent_data, avg 0/call, max recursion depth 1
123 }
12465.0e-68.3e-7 croak $o->M06_invalid_indent_level if $o->{level} > $level;
12563.5e-55.8e-6 return @values;
126}
127
128
# spent 175µs within Inline::denter::_get_key which was called 27 times, avg 6µs/call: # 27 times (175µs+0) by Inline::denter::_undent_hash at line 122, avg 6µs/call
sub _get_key {
129273.9e-51.4e-6 my ($o, $key) = @_;
130275.5e-52.0e-6 return $key unless $key =~ /^\<\<(\w+)(\-?)/;
131 my ($marker, $chomp) = ($1, $2);
132 $key = '';
133 my $line = $o->{line};
134 $o->_next_line;
135 while (not $o->{done} and
136 $o->{lines}[0] ne $marker) {
137 $key .= $o->{lines}[0] . "\n";
138 $o->_next_line;
139 }
140 croak M02_no_key_end_marker($marker, $line) if $o->{done};
141 chomp $key if $chomp;
142 $o->_next_line;
143 $o->_setup_line;
144 return $key;
145}
146
147sub _undent_array {
148 my @values;
149 my $o = shift;
150 my $level = $o->{level} + 1;
151 $o->_next_line;
152 $o->_setup_line;
153 while ($o->{level} == $level) {
154 push @values, $o->_undent_data;
155 }
156 croak $o->M06_invalid_indent_level if $o->{level} > $level;
157 return @values;
158}
159
160sub _undent_scalar {
161 my $values;
162 my $o = shift;
163 my $level = $o->{level} + 1;
164 $o->_next_line;
165 $o->_setup_line;
166 croak $o->M06_invalid_indent_level if $o->{level} != $level;
167 croak $o->M07_invalid_scalar_value if $o->{content} =~ /^[\%\@\$\\]/;
168 return $o->_undent_undef if $o->{content} =~ /^\?/;
169 return $o->_undent_value;
170}
171
172
# spent 40µs (11+29) within Inline::denter::_undent_undef which was called # once (11µs+29µs) by Inline::denter::_undent_data at line 52
sub _undent_undef {
173100 my $o = shift;
17416.0e-66.0e-6 $o->_next_line;
# spent 9µs making 1 call to Inline::denter::_next_line
17515.0e-65.0e-6 $o->_setup_line;
# spent 20µs making 1 call to Inline::denter::_setup_line
17612.0e-62.0e-6 return undef;
177}
178
179
# spent 283µs within Inline::denter::_next_line which was called 42 times, avg 7µs/call: # 35 times (233µs+0) by Inline::denter::_undent_value at line 107, avg 7µs/call # 6 times (41µs+0) by Inline::denter::_undent_hash at line 116, avg 7µs/call # once (9µs+0) by Inline::denter::_undent_undef at line 174
sub _next_line {
180422.5e-56.0e-7 my $o = shift;
181423.4e-58.1e-7 $o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
182424.5e-51.1e-6 $_ = shift @{$o->{lines}};
183427.1e-51.7e-6 $o->{line}++;
184}
185
186
# spent 791µs within Inline::denter::_setup_line which was called 44 times, avg 18µs/call: # 35 times (564µs+0) by Inline::denter::_undent_value at line 108, avg 16µs/call # 6 times (104µs+0) by Inline::denter::_undent_hash at line 117, avg 17µs/call # 2 times (103µs+0) by Inline::denter::undent at line 30, avg 51µs/call # once (20µs+0) by Inline::denter::_undent_undef at line 175
sub _setup_line {
187442.8e-56.4e-7 my $o = shift;
188443.8e-58.6e-7 $o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
189425.9e-51.4e-6 my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
190421.9e-54.5e-7 while (1) {
191424.4e-51.0e-6 $_ = $o->{lines}[0];
192 # expand tabs in leading whitespace;
193427.8e-51.9e-6 $o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
194426.1e-51.5e-6 while (s{^( *)(\t+)}
195 {' ' x (length($1) + length($2) * $tabwidth -
196 length($1) % $tabwidth)}e){}
197420.000153.5e-6 croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
198429.1e-52.2e-6 $o->{level} = length($1) / $width;
199425.4e-51.3e-6 $o->{content} = $3;
200427.3e-51.7e-6 last;
201 }
202}
203
20413.0e-63.0e-61;
205__END__
206
207sub indent {
208 my $o = shift;
209 my $package = caller;
210 $package = caller(1) if $package eq 'Inline::denter';
211 my $stream = '';
212 $o->{key} = '';
213 while (@_) {
214 $_ = shift;
215 $stream .= $o->indent_name($_, shift), next
216 if (/^\*$package\::\w+$/);
217 $stream .= $o->indent_data($_);
218 }
219 return $stream;
220}
221
222sub indent_data {
223 my $o = shift;
224 $_ = shift;
225 return $o->indent_undef($_)
226 if not defined;
227 return $o->indent_value($_)
228 if (not ref);
229 return $o->indent_hash($_)
230 if (ref eq 'HASH' and not /=/ or /=HASH/);
231 return $o->indent_array($_)
232 if (ref eq 'ARRAY' and not /=/ or /=ARRAY/);
233 return $o->indent_scalar($_)
234 if (ref eq 'SCALAR' and not /=/ or /=SCALAR/);
235 return $o->indent_ref($_)
236 if (ref eq 'REF');
237 return "$_\n";
238}
239
240sub indent_value {
241 my ($o, $data) = @_;
242 my $stream;
243 if ($data =~ /\n/) {
244 my $marker = 'EOV';
245 $marker++ while $data =~ /^$marker$/m;
246 my $chomp = ($data =~ s/\n\Z//) ? '' : '-';
247 $stream = "<<$marker$chomp\n";
248 $stream .= $o->{key}, $o->{key} = '' if $o->{key};
249 $stream .= "$data\n$marker\n";
250 }
251 elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/ or
252 $data =~ /\Q$o->{comma}\E/ or
253 $data =~ /[\x00-\x1f]/ or
254 $data eq '') {
255 $stream = qq{"$data"\n};
256 $stream .= $o->{key}, $o->{key} = '' if $o->{key};
257 }
258 else {
259 $stream = "$data\n";
260 $stream .= $o->{key}, $o->{key} = '' if $o->{key};
261 }
262 return $stream;
263}
264
265sub indent_hash {
266 my ($o, $data) = @_;
267 my $stream = $o->_print_ref($data, '%', 'HASH');
268 return $$stream if ref $stream;
269 my $indent = ++$o->{level} * $o->{width};
270 for my $key (sort keys %$data) {
271 my $key_out = $key;
272 if ($key =~ /\n/ or
273 $key =~ /\Q$o->{comma}\E/) {
274 my $marker = 'EOK';
275 $marker++ while $key =~ /^$marker$/m;
276 my $chomp = (($o->{key} = $key) =~ s/\n\Z//m) ? '' : '-';
277 $o->{key} .= "\n$marker\n";
278 $key_out = "<<$marker$chomp";
279 }
280 elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/) {
281 $key_out = qq{"$key"};
282 }
283 $stream .= ' ' x $indent . $key_out . $o->{comma};
284 $stream .= $o->indent_data($data->{$key});
285 }
286 $o->{level}--;
287 return $stream;
288}
289
290sub indent_array {
291 my ($o, $data) = @_;
292 my $stream = $o->_print_ref($data, '@', 'ARRAY');
293 return $$stream if ref $stream;
294 my $indent = ++$o->{level} * $o->{width};
295 for my $datum (@$data) {
296 $stream .= ' ' x $indent;
297 $stream .= $o->indent_data($datum);
298 }
299 $o->{level}--;
300 return $stream;
301}
302
303sub indent_scalar {
304 my ($o, $data) = @_;
305 my $stream = $o->_print_ref($data, q{$}, 'SCALAR');
306 return $$stream if ref $stream;
307 my $indent = ($o->{level} + 1) * $o->{width};
308 $stream .= ' ' x $indent;
309 $stream .= $o->indent_data($$data);
310 return $stream;
311}
312
313sub indent_ref {
314 my ($o, $data) = @_;
315 my $stream = $o->_print_ref($data, '\\', 'SCALAR');
316 return $$stream if ref $stream;
317 chomp $stream;
318 return $stream . $o->indent_data($$data);
319}
320
321sub indent_undef {
322 my ($o, $data) = @_;
323 my $stream = "?\n";
324 $stream .= $o->{key}, $o->{key} = '' if $o->{key};
325 return $stream;
326}
327
328sub indent_name {
329 my ($o, $name, $value) = @_;
330 $name =~ s/^.*:://;
331 my $stream = $name . $o->{comma};
332 $stream .= $o->indent_data($value);
333 return $stream;
334}
335
336sub _print_ref {
337 my ($o, $data, $symbol, $type) = @_;
338 $data =~ /^(([\w:]+)=)?$type\(0x([0-9a-f]+)\)$/
339 or croak "Invalid reference: $data\n";
340 my $stream = $symbol;
341 $stream .= $2 if defined $2;
342 $o->{xref}{$3}++;
343 croak "Inline::denter does not handle duplicate references"
344 if $o->{xref}{$3} > 1;
345 $stream .= "\n";
346 $stream .= $o->{key}, $o->{key} = '' if $o->{key};
347 return $stream;
348}
349
350# Undent error messages
351sub M01_invalid_indent_width {
352 my $o = shift;
353 "Invalid indent width detected at line $o->{line}\n";
354}
355
356sub M02_no_key_end_marker {
357 my ($marker, $line) = @_;
358 "No terminating marker '$marker' found for key at line $line\n";
359}
360
361sub M03_no_value_end_marker {
362 my ($marker, $line) = @_;
363 "No terminating marker '$marker' found for value at line $line\n";
364}
365
366sub M04_mismatched_quotes {
367 my $o = shift;
368 "Mismatched double quotes for value at line $o->{line}\n";
369}
370
371sub M05_invalid_key_value {
372 my $o = shift;
373 "Missing or invalid hash key/value pair at $o->{line}\n";
374}
375
376sub M06_invalid_indent_level {
377 my $o = shift;
378 "Invalid indentation level at $o->{line}\n";
379}
380
381sub M07_invalid_scalar_value {
382 my $o = shift;
383 "Invalid value for scalar ref context at $o->{line}\n";
384}
385
3861;
387__END__

Report produced by the NYTProf 2.07 Perl profiler, developed by Tim Bunce and Adam Kaplan.