← 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:01:28 2013

Filename/usr/lib/perl/5.10/Encode/Encoding.pm
StatementsExecuted 558 statements in 3.04ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
546111.64ms1.64msEncode::Encoding::::renewedEncode::Encoding::renewed
11128µs35µsEncode::Encoding::::BEGIN@4Encode::Encoding::BEGIN@4
11116µs39µsEncode::Encoding::::BEGIN@5Encode::Encoding::BEGIN@5
1117µs7µsEncode::Encoding::::CORE:matchEncode::Encoding::CORE:match (opcode)
0000s0sEncode::Encoding::::DEBUGEncode::Encoding::DEBUG
0000s0sEncode::Encoding::::DESTROYEncode::Encoding::DESTROY
0000s0sEncode::Encoding::::DefineEncode::Encoding::Define
0000s0sEncode::Encoding::::decodeEncode::Encoding::decode
0000s0sEncode::Encoding::::encodeEncode::Encoding::encode
0000s0sEncode::Encoding::::fromUnicodeEncode::Encoding::fromUnicode
0000s0sEncode::Encoding::::mime_nameEncode::Encoding::mime_name
0000s0sEncode::Encoding::::nameEncode::Encoding::name
0000s0sEncode::Encoding::::needs_linesEncode::Encoding::needs_lines
0000s0sEncode::Encoding::::perlio_okEncode::Encoding::perlio_ok
0000s0sEncode::Encoding::::renewEncode::Encoding::renew
0000s0sEncode::Encoding::::toUnicodeEncode::Encoding::toUnicode
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Encode::Encoding;
2
3# Base class for classes which implement encodings
4348µs242µs
# spent 35µs (28+7) within Encode::Encoding::BEGIN@4 which was called: # once (28µs+7µs) by Encode::predefine_encodings at line 4
use strict;
# spent 35µs making 1 call to Encode::Encoding::BEGIN@4 # spent 7µs making 1 call to strict::import
53684µs261µs
# spent 39µs (16+23) within Encode::Encoding::BEGIN@5 which was called: # once (16µs+23µs) by Encode::predefine_encodings at line 5
use warnings;
# spent 39µs making 1 call to Encode::Encoding::BEGIN@5 # spent 23µs making 1 call to warnings::import
6332µs17µsour $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
# spent 7µs making 1 call to Encode::Encoding::CORE:match
7
811µsrequire Encode;
9
10sub DEBUG { 0 }
11
12sub Define {
13 my $obj = shift;
14 my $canonical = shift;
15 $obj = bless { Name => $canonical }, $obj unless ref $obj;
16
17 # warn "$canonical => $obj\n";
18 Encode::define_encoding( $obj, $canonical, @_ );
19}
20
21sub name { return shift->{'Name'} }
22
23sub mime_name{
24 require Encode::MIME::Name;
25 return Encode::MIME::Name::get_mime_name(shift->name);
26}
27
28# sub renew { return $_[0] }
29
30sub renew {
31 my $self = shift;
32 my $clone = bless {%$self} => ref($self);
33 $clone->{renewed}++; # so the caller can see it
34 DEBUG and warn $clone->{renewed};
35 return $clone;
36}
37
385462.26ms
# spent 1.64ms within Encode::Encoding::renewed which was called 546 times, avg 3µs/call: # 546 times (1.64ms+0s) by Encode::utf8::decode_xs at line 174 of Encode.pm, avg 3µs/call
sub renewed { return $_[0]->{renewed} || 0 }
39
4012µs*new_sequence = \&renew;
41
42sub needs_lines { 0 }
43
44sub perlio_ok {
45 eval { require PerlIO::encoding };
46 return $@ ? 0 : 1;
47}
48
49# (Temporary|legacy) methods
50
51sub toUnicode { shift->decode(@_) }
52sub fromUnicode { shift->encode(@_) }
53
54#
55# Needs to be overloaded or just croak
56#
57
58sub encode {
59 require Carp;
60 my $obj = shift;
61 my $class = ref($obj) ? ref($obj) : $obj;
62 Carp::croak( $class . "->encode() not defined!" );
63}
64
65sub decode {
66 require Carp;
67 my $obj = shift;
68 my $class = ref($obj) ? ref($obj) : $obj;
69 Carp::croak( $class . "->encode() not defined!" );
70}
71
72sub DESTROY { }
73
74110µs1;
75__END__
 
# spent 7µs within Encode::Encoding::CORE:match which was called: # once (7µs+0s) by Encode::predefine_encodings at line 6
sub Encode::Encoding::CORE:match; # opcode