← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:10 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/darwin-2level/Encode/Alias.pm
StatementsExecuted 403 statements in 1.85ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111243┬Ás479┬ÁsEncode::Alias::::init_aliasesEncode::Alias::init_aliases
45451181┬Ás181┬ÁsEncode::Alias::::define_aliasEncode::Alias::define_alias
11158┬Ás80┬ÁsEncode::Alias::::find_aliasEncode::Alias::find_alias
4743154┬Ás54┬ÁsEncode::Alias::::CORE:qrEncode::Alias::CORE:qr (opcode)
11116┬Ás53┬ÁsEncode::Alias::::BEGIN@6Encode::Alias::BEGIN@6
11112┬Ás25┬ÁsEncode::Alias::::BEGIN@2Encode::Alias::BEGIN@2
3217┬Ás7┬ÁsEncode::Alias::::CORE:matchEncode::Alias::CORE:match (opcode)
1117┬Ás12┬ÁsEncode::Alias::::BEGIN@3Encode::Alias::BEGIN@3
1117┬Ás18┬ÁsEncode::Alias::::BEGIN@4Encode::Alias::BEGIN@4
1116┬Ás57┬ÁsEncode::Alias::::BEGIN@8Encode::Alias::BEGIN@8
2113┬Ás3┬ÁsEncode::Alias::::CORE:regcompEncode::Alias::CORE:regcomp (opcode)
1111┬Ás1┬ÁsEncode::Alias::::undef_aliasesEncode::Alias::undef_aliases
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Encode::Alias;
2220┬Ás238┬Ás
# spent 25┬Ás (12+13) within Encode::Alias::BEGIN@2 which was called: # once (12┬Ás+13┬Ás) by Encode::BEGIN@48 at line 2
use strict;
# spent 25┬Ás making 1 call to Encode::Alias::BEGIN@2 # spent 13┬Ás making 1 call to strict::import
3225┬Ás216┬Ás
# spent 12┬Ás (7+5) within Encode::Alias::BEGIN@3 which was called: # once (7┬Ás+5┬Ás) by Encode::BEGIN@48 at line 3
use warnings;
# spent 12┬Ás making 1 call to Encode::Alias::BEGIN@3 # spent 5┬Ás making 1 call to warnings::import
4252┬Ás230┬Ás
# spent 18┬Ás (7+11) within Encode::Alias::BEGIN@4 which was called: # once (7┬Ás+11┬Ás) by Encode::BEGIN@48 at line 4
no warnings 'redefine';
# spent 18┬Ás making 1 call to Encode::Alias::BEGIN@4 # spent 12┬Ás making 1 call to warnings::unimport
5318┬Ás13┬Ásour $VERSION = do { my @r = ( q$Revision: 2.16 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
# spent 3┬Ás making 1 call to Encode::Alias::CORE:match
6223┬Ás290┬Ás
# spent 53┬Ás (16+37) within Encode::Alias::BEGIN@6 which was called: # once (16┬Ás+37┬Ás) by Encode::BEGIN@48 at line 6
use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
# spent 53┬Ás making 1 call to Encode::Alias::BEGIN@6 # spent 37┬Ás making 1 call to constant::import
7
821.20ms2108┬Ás
# spent 57┬Ás (6+51) within Encode::Alias::BEGIN@8 which was called: # once (6┬Ás+51┬Ás) by Encode::BEGIN@48 at line 8
use base qw(Exporter);
# spent 57┬Ás making 1 call to Encode::Alias::BEGIN@8 # spent 51┬Ás making 1 call to base::import
9
10# Public, encouraged API is exported by default
11
121700nsour @EXPORT =
13 qw (
14 define_alias
15 find_alias
16);
17
181100nsour @Alias; # ordered matching list
191100nsour %Alias; # cached known aliases
20
21
# spent 80┬Ás (58+21) within Encode::Alias::find_alias which was called: # once (58┬Ás+21┬Ás) by Encode::getEncoding at line 111 of Encode.pm
sub find_alias {
221600ns require Encode;
231400ns my $class = shift;
241300ns my $find = shift;
251800ns unless ( exists $Alias{$find} ) {
2611┬Ás $Alias{$find} = undef; # Recursion guard
2712┬Ás for ( my $i = 0 ; $i < @Alias ; $i += 2 ) {
2821┬Ás my $alias = $Alias[$i];
2921┬Ás my $val = $Alias[ $i + 1 ];
302200ns my $new;
31220┬Ás47┬Ás if ( ref($alias) eq 'Regexp' && $find =~ $alias ) {
# spent 4┬Ás making 2 calls to Encode::Alias::CORE:match, avg 2┬Ás/call # spent 3┬Ás making 2 calls to Encode::Alias::CORE:regcomp, avg 1┬Ás/call
32 DEBUG and warn "eval $val";
33119┬Ás $new = eval $val;
# spent 2┬Ás executing statements in string eval
341200ns DEBUG and $@ and warn "$val, $@";
35 }
36 elsif ( ref($alias) eq 'CODE' ) {
37 DEBUG and warn "$alias", "->", "($find)";
38 $new = $alias->($find);
39 }
40 elsif ( lc($find) eq lc($alias) ) {
41 $new = $val;
42 }
4321┬Ás if ( defined($new) ) {
441500ns next if $new eq $find; # avoid (direct) recursion on bugs
45 DEBUG and warn "$alias, $new";
4613┬Ás10s my $enc =
# spent 15┬Ás making 1 call to Encode::find_encoding, recursion: max depth 1, sum of overlapping time 15┬Ás
47 ( ref($new) ) ? $new : Encode::find_encoding($new);
4815┬Ás if ($enc) {
491500ns $Alias{$find} = $enc;
5011┬Ás last;
51 }
52 }
53 }
54
55 # case insensitive search when canonical is not in all lowercase
56 # RT ticket #7835
571600ns unless ( $Alias{$find} ) {
58 my $lcfind = lc($find);
59 for my $name ( keys %Encode::Encoding, keys %Encode::ExtModule )
60 {
61 $lcfind eq lc($name) or next;
62 $Alias{$find} = Encode::find_encoding($name);
63 DEBUG and warn "$find => $name";
64 }
65 }
66 }
67 if (DEBUG) {
68 my $name;
69 if ( my $e = $Alias{$find} ) {
70 $name = $e->name;
71 }
72 else {
73 $name = "";
74 }
75 warn "find_alias($class, $find)->name = $name";
76 }
7714┬Ás return $Alias{$find};
78}
79
80
# spent 181┬Ás within Encode::Alias::define_alias which was called 45 times, avg 4┬Ás/call: # once (12┬Ás+0s) by Encode::Alias::init_aliases at line 240 # once (10┬Ás+0s) by Encode::Alias::init_aliases at line 186 # once (9┬Ás+0s) by Encode::Alias::init_aliases at line 145 # once (8┬Ás+0s) by Encode::Alias::init_aliases at line 140 # once (6┬Ás+0s) by Encode::Alias::init_aliases at line 135 # once (5┬Ás+0s) by Encode::Alias::init_aliases at line 234 # once (5┬Ás+0s) by Encode::Alias::init_aliases at line 255 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 243 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 195 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 175 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 138 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 153 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 139 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 160 # once (4┬Ás+0s) by Encode::Alias::init_aliases at line 163 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 154 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 256 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 173 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 200 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 236 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 157 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 209 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 247 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 254 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 218 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 211 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 249 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 223 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 235 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 152 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 239 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 168 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 179 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 252 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 248 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 224 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 260 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 238 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 263 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 231 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 213 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 237 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 253 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 228 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 244
sub define_alias {
8145113┬Ás while (@_) {
825421┬Ás my ( $alias, $name ) = splice( @_, 0, 2 );
835422┬Ás unshift( @Alias, $alias => $name ); # newer one has precedence
845420┬Ás if ( ref($alias) ) {
85
86 # clear %Alias cache to allow overrides
874712┬Ás my @a = keys %Alias;
884725┬Ás for my $k (@a) {
89 if ( ref($alias) eq 'Regexp' && $k =~ $alias ) {
90 DEBUG and warn "delete \$Alias\{$k\}";
91 delete $Alias{$k};
92 }
93 elsif ( ref($alias) eq 'CODE' && $alias->($k) ) {
94 DEBUG and warn "delete \$Alias\{$k\}";
95 delete $Alias{$k};
96 }
97 }
98 }
99 else {
100 DEBUG and warn "delete \$Alias\{$alias\}";
10171┬Ás delete $Alias{$alias};
102 }
103 }
104}
105
106# Allow latin-1 style names as well
107# 0 1 2 3 4 5 6 7 8 9 10
1081700nsour @Latin2iso = ( 0, 1, 2, 3, 4, 9, 10, 13, 14, 15, 16 );
109
110# Allow winlatin1 style names as well
11116┬Ásour %Winlatin2cp = (
112 'latin1' => 1252,
113 'latin2' => 1250,
114 'cyrillic' => 1251,
115 'greek' => 1253,
116 'turkish' => 1254,
117 'hebrew' => 1255,
118 'arabic' => 1256,
119 'baltic' => 1257,
120 'vietnamese' => 1258,
121);
122
12312┬Ás1479┬Ásinit_aliases();
# spent 479┬Ás making 1 call to Encode::Alias::init_aliases
124
125
# spent 1┬Ás within Encode::Alias::undef_aliases which was called: # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 132
sub undef_aliases {
1261200ns @Alias = ();
12714┬Ás %Alias = ();
128}
129
130
# spent 479┬Ás (243+237) within Encode::Alias::init_aliases which was called: # once (243┬Ás+237┬Ás) by Encode::BEGIN@48 at line 123
sub init_aliases {
1311300ns require Encode;
1321700ns11┬Ás undef_aliases();
# spent 1┬Ás making 1 call to Encode::Alias::undef_aliases
133
134 # Try all-lower-case version should all else fails
13516┬Ás28┬Ás define_alias( qr/^(.*)$/ => '"\L$1"' );
# spent 6┬Ás making 1 call to Encode::Alias::define_alias # spent 2┬Ás making 1 call to Encode::Alias::CORE:qr
136
137 # UTF/UCS stuff
13814┬Ás25┬Ás define_alias( qr/^(unicode-1-1-)?UTF-?7$/i => '"UTF-7"' );
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
13914┬Ás24┬Ás define_alias( qr/^UCS-?2-?LE$/i => '"UCS-2LE"' );
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
14018┬Ás410┬Ás define_alias(
# spent 8┬Ás making 1 call to Encode::Alias::define_alias # spent 2┬Ás making 3 calls to Encode::Alias::CORE:qr, avg 767ns/call
141 qr/^UCS-?2-?(BE)?$/i => '"UCS-2BE"',
142 qr/^UCS-?4-?(BE|LE)?$/i => 'uc("UTF-32$1")',
143 qr/^iso-10646-1$/i => '"UCS-2BE"'
144 );
145114┬Ás416┬Ás define_alias(
# spent 9┬Ás making 1 call to Encode::Alias::define_alias # spent 7┬Ás making 3 calls to Encode::Alias::CORE:qr, avg 2┬Ás/call
146 qr/^UTF-?(16|32)-?BE$/i => '"UTF-$1BE"',
147 qr/^UTF-?(16|32)-?LE$/i => '"UTF-$1LE"',
148 qr/^UTF-?(16|32)$/i => '"UTF-$1"',
149 );
150
151 # ASCII
15214┬Ás24┬Ás define_alias( qr/^(?:US-?)ascii$/i => '"ascii"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
1531900ns14┬Ás define_alias( 'C' => 'ascii' );
# spent 4┬Ás making 1 call to Encode::Alias::define_alias
15414┬Ás24┬Ás define_alias( qr/\b(?:ISO[-_]?)?646(?:[-_]?US)?$/i => '"ascii"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 1┬Ás making 1 call to Encode::Alias::CORE:qr
155
156 # Allow variants of iso-8859-1 etc.
15714┬Ás24┬Ás define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
158
159 # At least HP-UX has these.
16016┬Ás24┬Ás define_alias( qr/\biso8859(\d+)$/i => '"iso-8859-$1"' );
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 1┬Ás making 1 call to Encode::Alias::CORE:qr
161
162 # More HP stuff.
16316┬Ás24┬Ás define_alias(
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
164 qr/\b(?:hp-)?(arabic|greek|hebrew|kana|roman|thai|turkish)8$/i =>
165 '"${1}8"' );
166
167 # The Official name of ASCII.
16814┬Ás24┬Ás define_alias( qr/\bANSI[-_]?X3\.4[-_]?1968$/i => '"ascii"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
169
170 # This is a font issue, not an encoding issue.
171 # (The currency symbol of the Latin 1 upper half
172 # has been redefined as the euro symbol.)
17316┬Ás24┬Ás define_alias( qr/^(.+)\@euro$/i => '"$1"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
174
17516┬Ás25┬Ás define_alias( qr/\b(?:iso[-_]?)?latin[-_]?(\d+)$/i =>
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
176'defined $Encode::Alias::Latin2iso[$1] ? "iso-8859-$Encode::Alias::Latin2iso[$1]" : undef'
177 );
178
17914┬Ás24┬Ás define_alias(
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
180 qr/\bwin(latin[12]|cyrillic|baltic|greek|turkish|
181 hebrew|arabic|baltic|vietnamese)$/ix =>
182 '"cp" . $Encode::Alias::Winlatin2cp{lc($1)}'
183 );
184
185 # Common names for non-latin preferred MIME names
18611┬Ás110┬Ás define_alias(
# spent 10┬Ás making 1 call to Encode::Alias::define_alias
187 'ascii' => 'US-ascii',
188 'cyrillic' => 'iso-8859-5',
189 'arabic' => 'iso-8859-6',
190 'greek' => 'iso-8859-7',
191 'hebrew' => 'iso-8859-8',
192 'thai' => 'iso-8859-11',
193 );
194 # RT #20781
195112┬Ás212┬Ás define_alias(qr/\btis-?620\b/i => '"iso-8859-11"');
# spent 8┬Ás making 1 call to Encode::Alias::CORE:qr # spent 4┬Ás making 1 call to Encode::Alias::define_alias
196
197 # At least AIX has IBM-NNN (surprisingly...) instead of cpNNN.
198 # And Microsoft has their own naming (again, surprisingly).
199 # And windows-* is registered in IANA!
20014┬Ás24┬Ás define_alias(
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
201 qr/\b(?:cp|ibm|ms|windows)[-_ ]?(\d{2,4})$/i => '"cp$1"' );
202
203 # Sometimes seen with a leading zero.
204 # define_alias( qr/\bcp037\b/i => '"cp37"');
205
206 # Mac Mappings
207 # predefined in *.ucm; unneeded
208 # define_alias( qr/\bmacIcelandic$/i => '"macIceland"');
20914┬Ás24┬Ás define_alias( qr/^(?:x[_-])?mac[_-](.*)$/i => '"mac$1"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
210 # http://rt.cpan.org/Ticket/Display.html?id=36326
21114┬Ás24┬Ás define_alias( qr/^macintosh$/i => '"MacRoman"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
212 # https://rt.cpan.org/Ticket/Display.html?id=78125
21314┬Ás24┬Ás define_alias( qr/^macce$/i => '"MacCentralEurRoman"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 700ns making 1 call to Encode::Alias::CORE:qr
214 # Ououououou. gone. They are differente!
215 # define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
216
217 # Standardize on the dashed versions.
21816┬Ás26┬Ás define_alias( qr/\bkoi8[\s\-_]*([ru])$/i => '"koi8-$1"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 3┬Ás making 1 call to Encode::Alias::CORE:qr
219
2201300ns unless ($Encode::ON_EBCDIC) {
221
222 # for Encode::CN
22314┬Ás24┬Ás define_alias( qr/\beuc.*cn$/i => '"euc-cn"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
22414┬Ás24┬Ás define_alias( qr/\bcn.*euc$/i => '"euc-cn"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
225
226 # define_alias( qr/\bGB[- ]?(\d+)$/i => '"euc-cn"' )
227 # CP936 doesn't have vendor-addon for GBK, so they're identical.
22814┬Ás24┬Ás define_alias( qr/^gbk$/i => '"cp936"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
229
230 # This fixes gb2312 vs. euc-cn confusion, practically
23114┬Ás24┬Ás define_alias( qr/\bGB[-_ ]?2312(?!-?raw)/i => '"euc-cn"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
232
233 # for Encode::JP
23416┬Ás26┬Ás define_alias( qr/\bjis$/i => '"7bit-jis"' );
# spent 5┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
23514┬Ás24┬Ás define_alias( qr/\beuc.*jp$/i => '"euc-jp"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
23614┬Ás24┬Ás define_alias( qr/\bjp.*euc$/i => '"euc-jp"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
23714┬Ás24┬Ás define_alias( qr/\bujis$/i => '"euc-jp"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
23814┬Ás24┬Ás define_alias( qr/\bshift.*jis$/i => '"shiftjis"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
23914┬Ás24┬Ás define_alias( qr/\bsjis$/i => '"shiftjis"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 1┬Ás making 1 call to Encode::Alias::CORE:qr
24017┬Ás213┬Ás define_alias( qr/\bwindows-31j$/i => '"cp932"' );
# spent 12┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
241
242 # for Encode::KR
24314┬Ás25┬Ás define_alias( qr/\beuc.*kr$/i => '"euc-kr"' );
# spent 4┬Ás making 1 call to Encode::Alias::define_alias # spent 1┬Ás making 1 call to Encode::Alias::CORE:qr
24414┬Ás24┬Ás define_alias( qr/\bkr.*euc$/i => '"euc-kr"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
245
246 # This fixes ksc5601 vs. euc-kr confusion, practically
24714┬Ás24┬Ás define_alias( qr/(?:x-)?uhc$/i => '"cp949"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
24814┬Ás24┬Ás define_alias( qr/(?:x-)?windows-949$/i => '"cp949"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
24914┬Ás24┬Ás define_alias( qr/\bks_c_5601-1987$/i => '"cp949"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
250
251 # for Encode::TW
25214┬Ás24┬Ás define_alias( qr/\bbig-?5$/i => '"big5-eten"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 1┬Ás making 1 call to Encode::Alias::CORE:qr
25314┬Ás24┬Ás define_alias( qr/\bbig5-?et(?:en)?$/i => '"big5-eten"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
25416┬Ás24┬Ás define_alias( qr/\btca[-_]?big5$/i => '"big5-eten"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
25514┬Ás26┬Ás define_alias( qr/\bbig5-?hk(?:scs)?$/i => '"big5-hkscs"' );
# spent 5┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
25615┬Ás24┬Ás define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
257 }
258
259 # utf8 is blessed :)
26014┬Ás24┬Ás define_alias( qr/\bUTF-8$/i => '"utf-8-strict"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 900ns making 1 call to Encode::Alias::CORE:qr
261
262 # At last, Map white space and _ to '-'
26317┬Ás24┬Ás define_alias( qr/^(\S+)[\s_]+(.*)$/i => '"$1-$2"' );
# spent 3┬Ás making 1 call to Encode::Alias::define_alias # spent 800ns making 1 call to Encode::Alias::CORE:qr
264}
265
26617┬Ás1;
267__END__
 
# spent 7┬Ás within Encode::Alias::CORE:match which was called 3 times, avg 2┬Ás/call: # 2 times (4┬Ás+0s) by Encode::Alias::find_alias at line 31, avg 2┬Ás/call # once (3┬Ás+0s) by Encode::BEGIN@48 at line 5
sub Encode::Alias::CORE:match; # opcode
# spent 54┬Ás within Encode::Alias::CORE:qr which was called 47 times, avg 1┬Ás/call: # 3 times (7┬Ás+0s) by Encode::Alias::init_aliases at line 145, avg 2┬Ás/call # 3 times (2┬Ás+0s) by Encode::Alias::init_aliases at line 140, avg 767ns/call # once (8┬Ás+0s) by Encode::Alias::init_aliases at line 195 # once (3┬Ás+0s) by Encode::Alias::init_aliases at line 218 # once (2┬Ás+0s) by Encode::Alias::init_aliases at line 135 # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 252 # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 239 # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 243 # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 154 # once (1┬Ás+0s) by Encode::Alias::init_aliases at line 160 # once (900ns+0s) by Encode::Alias::init_aliases at line 200 # once (900ns+0s) by Encode::Alias::init_aliases at line 228 # once (900ns+0s) by Encode::Alias::init_aliases at line 152 # once (900ns+0s) by Encode::Alias::init_aliases at line 256 # once (900ns+0s) by Encode::Alias::init_aliases at line 248 # once (900ns+0s) by Encode::Alias::init_aliases at line 223 # once (900ns+0s) by Encode::Alias::init_aliases at line 249 # once (900ns+0s) by Encode::Alias::init_aliases at line 260 # once (900ns+0s) by Encode::Alias::init_aliases at line 163 # once (900ns+0s) by Encode::Alias::init_aliases at line 139 # once (900ns+0s) by Encode::Alias::init_aliases at line 255 # once (900ns+0s) by Encode::Alias::init_aliases at line 235 # once (900ns+0s) by Encode::Alias::init_aliases at line 240 # once (800ns+0s) by Encode::Alias::init_aliases at line 236 # once (800ns+0s) by Encode::Alias::init_aliases at line 244 # once (800ns+0s) by Encode::Alias::init_aliases at line 168 # once (800ns+0s) by Encode::Alias::init_aliases at line 253 # once (800ns+0s) by Encode::Alias::init_aliases at line 173 # once (800ns+0s) by Encode::Alias::init_aliases at line 254 # once (800ns+0s) by Encode::Alias::init_aliases at line 157 # once (800ns+0s) by Encode::Alias::init_aliases at line 224 # once (800ns+0s) by Encode::Alias::init_aliases at line 234 # once (800ns+0s) by Encode::Alias::init_aliases at line 179 # once (800ns+0s) by Encode::Alias::init_aliases at line 237 # once (800ns+0s) by Encode::Alias::init_aliases at line 263 # once (800ns+0s) by Encode::Alias::init_aliases at line 211 # once (800ns+0s) by Encode::Alias::init_aliases at line 238 # once (800ns+0s) by Encode::Alias::init_aliases at line 175 # once (800ns+0s) by Encode::Alias::init_aliases at line 247 # once (800ns+0s) by Encode::Alias::init_aliases at line 209 # once (800ns+0s) by Encode::Alias::init_aliases at line 231 # once (800ns+0s) by Encode::Alias::init_aliases at line 138 # once (700ns+0s) by Encode::Alias::init_aliases at line 213
sub Encode::Alias::CORE:qr; # opcode
# spent 3┬Ás within Encode::Alias::CORE:regcomp which was called 2 times, avg 1┬Ás/call: # 2 times (3┬Ás+0s) by Encode::Alias::find_alias at line 31, avg 1┬Ás/call
sub Encode::Alias::CORE:regcomp; # opcode