← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:03 2021

Filename/usr/local/lib/perl5/5.32/mach/Encode/Encoding.pm
StatementsExecuted 345 statements in 841µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
34511900µs900µsEncode::Encoding::::renewedEncode::Encoding::renewed
0000s0sEncode::Encoding::::BEGIN@10Encode::Encoding::BEGIN@10
0000s0sEncode::Encoding::::BEGIN@11Encode::Encoding::BEGIN@11
0000s0sEncode::Encoding::::BEGIN@12Encode::Encoding::BEGIN@12
0000s0sEncode::Encoding::::BEGIN@14Encode::Encoding::BEGIN@14
0000s0sEncode::Encoding::::BEGIN@4Encode::Encoding::BEGIN@4
0000s0sEncode::Encoding::::BEGIN@5Encode::Encoding::BEGIN@5
0000s0sEncode::Encoding::::CORE:matchEncode::Encoding::CORE:match (opcode)
0000s0sEncode::Encoding::::DESTROYEncode::Encoding::DESTROY
0000s0sEncode::Encoding::::DefineEncode::Encoding::Define
0000s0sEncode::Encoding::::__ANON__Encode::Encoding::__ANON__ (xsub)
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
4use strict;
5use warnings;
6our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
7
8our @CARP_NOT = qw(Encode Encode::Encoder);
9
10use Carp ();
11use Encode ();
12use Encode::MIME::Name;
13
14use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
15
16sub Define {
17 my $obj = shift;
18 my $canonical = shift;
19 $obj = bless { Name => $canonical }, $obj unless ref $obj;
20
21 # warn "$canonical => $obj\n";
22 Encode::define_encoding( $obj, $canonical, @_ );
23}
24
25sub name { return shift->{'Name'} }
26
27sub mime_name {
28 return Encode::MIME::Name::get_mime_name(shift->name);
29}
30
31sub renew {
32 my $self = shift;
33 my $clone = bless {%$self} => ref($self);
34 $clone->{renewed}++; # so the caller can see it
35 DEBUG and warn $clone->{renewed};
36 return $clone;
37}
38
39345841µs
# spent 900µs within Encode::Encoding::renewed which was called 345 times, avg 3µs/call: # 345 times (900µs+0s) by Encode::utf8::decode at line 135 of /usr/local/libexec/sympa/Sympa/Tools/Text.pm, avg 3µs/call
sub renewed { return $_[0]->{renewed} || 0 }
40
41*new_sequence = \&renew;
42
43sub needs_lines { 0 }
44
45sub perlio_ok {
46 return eval { require PerlIO::encoding } ? 1 : 0;
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 my $obj = shift;
60 my $class = ref($obj) ? ref($obj) : $obj;
61 Carp::croak( $class . "->encode() not defined!" );
62}
63
64sub decode {
65 my $obj = shift;
66 my $class = ref($obj) ? ref($obj) : $obj;
67 Carp::croak( $class . "->encode() not defined!" );
68}
69
70sub DESTROY { }
71
721;
73__END__