← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 20:36:06 2020
Reported on Wed Feb 12 21:42:25 2020

Filename/usr/lib/x86_64-linux-gnu/perl/5.28/Encode/Encoding.pm
StatementsExecuted 1031 statements in 4.76ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1013113.97ms3.97msEncode::Encoding::::renewedEncode::Encoding::renewed
11111µs13µsEncode::Encoding::::BEGIN@4Encode::Encoding::BEGIN@4
1119µs10µsEncode::Encoding::::BEGIN@12Encode::Encoding::BEGIN@12
1118µs37µsEncode::Encoding::::BEGIN@5Encode::Encoding::BEGIN@5
1117µs65µsEncode::Encoding::::BEGIN@14Encode::Encoding::BEGIN@14
1113µs3µsEncode::Encoding::::CORE:matchEncode::Encoding::CORE:match (opcode)
1113µs3µsEncode::Encoding::::BEGIN@10Encode::Encoding::BEGIN@10
1112µs2µsEncode::Encoding::::BEGIN@11Encode::Encoding::BEGIN@11
111600ns600nsEncode::Encoding::::__ANON__Encode::Encoding::__ANON__ (xsub)
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
4219µs215µs
# spent 13µs (11+2) within Encode::Encoding::BEGIN@4 which was called: # once (11µs+2µs) by parent::import at line 4
use strict;
# spent 13µs making 1 call to Encode::Encoding::BEGIN@4 # spent 2µs making 1 call to strict::import
5267µs266µs
# spent 37µs (8+28) within Encode::Encoding::BEGIN@5 which was called: # once (8µs+28µs) by parent::import at line 5
use warnings;
# spent 37µs making 1 call to Encode::Encoding::BEGIN@5 # spent 28µs making 1 call to warnings::import
6313µs13µsour $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
# spent 3µs making 1 call to Encode::Encoding::CORE:match
7
81500nsour @CARP_NOT = qw(Encode Encode::Encoder);
9
10216µs13µs
# spent 3µs within Encode::Encoding::BEGIN@10 which was called: # once (3µs+0s) by parent::import at line 10
use Carp ();
# spent 3µs making 1 call to Encode::Encoding::BEGIN@10
11218µs12µs
# spent 2µs within Encode::Encoding::BEGIN@11 which was called: # once (2µs+0s) by parent::import at line 11
use Encode ();
# spent 2µs making 1 call to Encode::Encoding::BEGIN@11
12233µs210µs
# spent 10µs (9+600ns) within Encode::Encoding::BEGIN@12 which was called: # once (9µs+600ns) by parent::import at line 12
use Encode::MIME::Name;
# spent 10µs making 1 call to Encode::Encoding::BEGIN@12 # spent 600ns making 1 call to Encode::Encoding::__ANON__
13
142315µs2123µs
# spent 65µs (7+58) within Encode::Encoding::BEGIN@14 which was called: # once (7µs+58µs) by parent::import at line 14
use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
# spent 65µs making 1 call to Encode::Encoding::BEGIN@14 # spent 58µs making 1 call to constant::import
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
3910134.27ms
# spent 3.97ms within Encode::Encoding::renewed which was called 1013 times, avg 4µs/call: # 1013 times (3.97ms+0s) by Encode::utf8::decode at line 228 of Encode.pm, avg 4µs/call
sub renewed { return $_[0]->{renewed} || 0 }
40
411900ns*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
7216µs1;
73__END__
 
# spent 3µs within Encode::Encoding::CORE:match which was called: # once (3µs+0s) by parent::import at line 6
sub Encode::Encoding::CORE:match; # opcode
# spent 600ns within Encode::Encoding::__ANON__ which was called: # once (600ns+0s) by Encode::Encoding::BEGIN@12 at line 12
sub Encode::Encoding::__ANON__; # xsub