← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 21:27:43 2010
Reported on Sun Nov 14 21:29:12 2010

Filename/usr/lib/perl/5.10/Unicode/Normalize.pm
StatementsExecuted 28 statements in 1.19ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
111102µs102µsUnicode::Normalize::::bootstrapUnicode::Normalize::bootstrap (xsub)
11128µs28µsUnicode::Normalize::::BEGIN@9Unicode::Normalize::BEGIN@9
11128µs28µsUnicode::Normalize::::CORE:packUnicode::Normalize::CORE:pack (opcode)
11128µs56µsUnicode::Normalize::::BEGIN@3Unicode::Normalize::BEGIN@3
11116µs92µsUnicode::Normalize::::BEGIN@12Unicode::Normalize::BEGIN@12
11116µs47µsUnicode::Normalize::::BEGIN@14Unicode::Normalize::BEGIN@14
11115µs21µsUnicode::Normalize::::BEGIN@10Unicode::Normalize::BEGIN@10
11114µs41µsUnicode::Normalize::::BEGIN@11Unicode::Normalize::BEGIN@11
0000s0sUnicode::Normalize::::FCDUnicode::Normalize::FCD
0000s0sUnicode::Normalize::::checkUnicode::Normalize::check
0000s0sUnicode::Normalize::::normalizeUnicode::Normalize::normalize
0000s0sUnicode::Normalize::::pack_UUnicode::Normalize::pack_U
0000s0sUnicode::Normalize::::unpack_UUnicode::Normalize::unpack_U
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Unicode::Normalize;
2
3
# spent 56µs (28+28) within Unicode::Normalize::BEGIN@3 which was called: # once (28µs+28µs) by MARC::Charset::BEGIN@10 at line 7
BEGIN {
4147µs128µs unless ("A" eq pack('U', 0x41)) {
# spent 28µs making 1 call to Unicode::Normalize::CORE:pack
5 die "Unicode::Normalize cannot stringify a Unicode code point\n";
6 }
7130µs156µs}
# spent 56µs making 1 call to Unicode::Normalize::BEGIN@3
8
9356µs128µs
# spent 28µs within Unicode::Normalize::BEGIN@9 which was called: # once (28µs+0s) by MARC::Charset::BEGIN@10 at line 9
use 5.006;
# spent 28µs making 1 call to Unicode::Normalize::BEGIN@9
10338µs227µs
# spent 21µs (15+6) within Unicode::Normalize::BEGIN@10 which was called: # once (15µs+6µs) by MARC::Charset::BEGIN@10 at line 10
use strict;
# spent 21µs making 1 call to Unicode::Normalize::BEGIN@10 # spent 6µs making 1 call to strict::import
11338µs268µs
# spent 41µs (14+27) within Unicode::Normalize::BEGIN@11 which was called: # once (14µs+27µs) by MARC::Charset::BEGIN@10 at line 11
use warnings;
# spent 41µs making 1 call to Unicode::Normalize::BEGIN@11 # spent 27µs making 1 call to warnings::import
12356µs2168µs
# spent 92µs (16+76) within Unicode::Normalize::BEGIN@12 which was called: # once (16µs+76µs) by MARC::Charset::BEGIN@10 at line 12
use Carp;
# spent 92µs making 1 call to Unicode::Normalize::BEGIN@12 # spent 76µs making 1 call to Exporter::import
13
143656µs278µs
# spent 47µs (16+31) within Unicode::Normalize::BEGIN@14 which was called: # once (16µs+31µs) by MARC::Charset::BEGIN@10 at line 14
no warnings 'utf8';
# spent 47µs making 1 call to Unicode::Normalize::BEGIN@14 # spent 31µs making 1 call to warnings::unimport
15
1611µsour $VERSION = '1.03';
1711µsour $PACKAGE = __PACKAGE__;
18
1912µsrequire Exporter;
201141µsrequire DynaLoader;
21
22118µsour @ISA = qw(Exporter DynaLoader);
2313µsour @EXPORT = qw( NFC NFD NFKC NFKD );
24110µsour @EXPORT_OK = qw(
25 normalize decompose reorder compose
26 checkNFD checkNFKD checkNFC checkNFKC check
27 getCanon getCompat getComposite getCombinClass
28 isExclusion isSingleton isNonStDecomp isComp2nd isComp_Ex
29 isNFD_NO isNFC_NO isNFC_MAYBE isNFKD_NO isNFKC_NO isNFKC_MAYBE
30 FCD checkFCD FCC checkFCC composeContiguous
31 splitOnLastStarter
32);
33120µsour %EXPORT_TAGS = (
34 all => [ @EXPORT, @EXPORT_OK ],
35 normalize => [ @EXPORT, qw/normalize decompose reorder compose/ ],
36 check => [ qw/checkNFD checkNFKD checkNFC checkNFKC check/ ],
37 fast => [ qw/FCD checkFCD FCC checkFCC composeContiguous/ ],
38);
39
40######
41
42110µs1873µsbootstrap Unicode::Normalize $VERSION;
# spent 873µs making 1 call to DynaLoader::bootstrap
43
44######
45
46##
47## utilites for tests
48##
49
50sub pack_U {
51 return pack('U*', @_);
52}
53
54sub unpack_U {
55 return unpack('U*', shift(@_).pack('U*'));
56}
57
58
59##
60## normalization forms
61##
62
63sub FCD ($) {
64 my $str = shift;
65 return checkFCD($str) ? $str : NFD($str);
66}
67
68113µsour %formNorm = (
69 NFC => \&NFC, C => \&NFC,
70 NFD => \&NFD, D => \&NFD,
71 NFKC => \&NFKC, KC => \&NFKC,
72 NFKD => \&NFKD, KD => \&NFKD,
73 FCD => \&FCD, FCC => \&FCC,
74);
75
76sub normalize($$)
77{
78 my $form = shift;
79 my $str = shift;
80 if (exists $formNorm{$form}) {
81 return $formNorm{$form}->($str);
82 }
83 croak($PACKAGE."::normalize: invalid form name: $form");
84}
85
86
87##
88## quick check
89##
90
91110µsour %formCheck = (
92 NFC => \&checkNFC, C => \&checkNFC,
93 NFD => \&checkNFD, D => \&checkNFD,
94 NFKC => \&checkNFKC, KC => \&checkNFKC,
95 NFKD => \&checkNFKD, KD => \&checkNFKD,
96 FCD => \&checkFCD, FCC => \&checkFCC,
97);
98
99sub check($$)
100{
101 my $form = shift;
102 my $str = shift;
103 if (exists $formCheck{$form}) {
104 return $formCheck{$form}->($str);
105 }
106 croak($PACKAGE."::check: invalid form name: $form");
107}
108
109136µs1;
110__END__
 
# spent 28µs within Unicode::Normalize::CORE:pack which was called: # once (28µs+0s) by Unicode::Normalize::BEGIN@3 at line 4
sub Unicode::Normalize::CORE:pack; # opcode
# spent 102µs within Unicode::Normalize::bootstrap which was called: # once (102µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm
sub Unicode::Normalize::bootstrap; # xsub
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.