← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:02:00 2013

Filename/usr/share/perl5/JSON/PP58.pm
StatementsExecuted 15 statements in 413µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11136µs36µsJSON::PP58::::BEGIN@3JSON::PP58::BEGIN@3
11122µs22µsJSON::PP58::::BEGIN@11JSON::PP58::BEGIN@11
11113µs25µsJSON::PP58::::BEGIN@4JSON::PP58::BEGIN@4
0000s0sJSON::PP::::incr_parse JSON::PP::incr_parse
0000s0sJSON::PP::::incr_reset JSON::PP::incr_reset
0000s0sJSON::PP::::incr_skip JSON::PP::incr_skip
0000s0sJSON::PP::::incr_text JSON::PP::incr_text
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package JSON::PP58;
2
3354µs136µs
# spent 36µs within JSON::PP58::BEGIN@3 which was called: # once (36µs+0s) by JSON::PP::BEGIN@43 at line 3
use 5.008;
# spent 36µs making 1 call to JSON::PP58::BEGIN@3
43166µs237µs
# spent 25µs (13+12) within JSON::PP58::BEGIN@4 which was called: # once (13µs+12µs) by JSON::PP::BEGIN@43 at line 4
use strict;
# spent 25µs making 1 call to JSON::PP58::BEGIN@4 # spent 12µs making 1 call to strict::import
5
61300nsmy @properties;
7
81700ns$JSON::PP58::VERSION = '1.03';
9
10
11
# spent 22µs within JSON::PP58::BEGIN@11 which was called: # once (22µs+0s) by JSON::PP::BEGIN@43 at line 38
BEGIN {
12
1311µs unless ( defined &utf8::is_utf8 ) {
14 require Encode;
15 *utf8::is_utf8 = *Encode::is_utf8;
16 }
17
1816µs *JSON::PP::JSON_PP_encode_ascii = \&JSON::PP::_encode_ascii;
1913µs *JSON::PP::JSON_PP_encode_latin1 = \&JSON::PP::_encode_latin1;
2013µs *JSON::PP::JSON_PP_decode_surrogates = \&JSON::PP::_decode_surrogates;
2113µs *JSON::PP::JSON_PP_decode_unicode = \&JSON::PP::_decode_unicode;
22
2317µs if ($] >= 5.008 and $] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
24 package JSON::PP;
25 require subs;
26 subs->import('join');
27 eval q|
28 sub join {
29 return '' if (@_ < 2);
30 my $j = shift;
31 my $str = shift;
32 for (@_) { $str .= $j . $_; }
33 return $str;
34 }
35 |;
36 }
37
381166µs122µs}
# spent 22µs making 1 call to JSON::PP58::BEGIN@11
39
40
41sub JSON::PP::incr_parse {
42 local $Carp::CarpLevel = 1;
43 ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_parse( @_ );
44}
45
46
47sub JSON::PP::incr_text : lvalue {
48 $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new;
49
50 if ( $_[0]->{_incr_parser}->{incr_parsing} ) {
51 Carp::croak("incr_text can not be called when the incremental parser already started parsing");
52 }
53 $_[0]->{_incr_parser}->{incr_text};
54}
55
56
57sub JSON::PP::incr_skip {
58 ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_skip;
59}
60
61
62sub JSON::PP::incr_reset {
63 ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_reset;
64}
65
66
6713µs1;
68__END__