Filename	/usr/lib/perl/5.10/Unicode/Normalize.pm
Statements	Executed 28 statements in 1.22ms

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	111µs	111µs	Unicode::Normalize::::bootstrapUnicode::Normalize::bootstrap (xsub)
1	1	1	30µs	30µs	Unicode::Normalize::::BEGIN@9Unicode::Normalize::BEGIN@9
1	1	1	27µs	54µs	Unicode::Normalize::::BEGIN@3Unicode::Normalize::BEGIN@3
1	1	1	27µs	27µs	Unicode::Normalize::::CORE:packUnicode::Normalize::CORE:pack (opcode)
1	1	1	17µs	102µs	Unicode::Normalize::::BEGIN@12Unicode::Normalize::BEGIN@12
1	1	1	16µs	46µs	Unicode::Normalize::::BEGIN@14Unicode::Normalize::BEGIN@14
1	1	1	14µs	20µs	Unicode::Normalize::::BEGIN@10Unicode::Normalize::BEGIN@10
1	1	1	14µs	39µs	Unicode::Normalize::::BEGIN@11Unicode::Normalize::BEGIN@11
0	0	0	0s	0s	Unicode::Normalize::::FCDUnicode::Normalize::FCD
0	0	0	0s	0s	Unicode::Normalize::::checkUnicode::Normalize::check
0	0	0	0s	0s	Unicode::Normalize::::normalizeUnicode::Normalize::normalize
0	0	0	0s	0s	Unicode::Normalize::::pack_UUnicode::Normalize::pack_U
0	0	0	0s	0s	Unicode::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
1					package Unicode::Normalize;
2
3					# spent 54µs (27+27) within Unicode::Normalize::BEGIN@3 which was called: # once (27µs+27µs) by MARC::Charset::BEGIN@10 at line 7 BEGIN {
4	1	52µs	1	27µs	unless ("A" eq pack('U', 0x41)) { # spent 27µs making 1 call to Unicode::Normalize::CORE:pack
5					die "Unicode::Normalize cannot stringify a Unicode code point\n";
6					}
7	1	30µs	1	54µs	} # spent 54µs making 1 call to Unicode::Normalize::BEGIN@3
8
9	3	57µs	1	30µs	# spent 30µs within Unicode::Normalize::BEGIN@9 which was called: # once (30µs+0s) by MARC::Charset::BEGIN@10 at line 9 use 5.006; # spent 30µs making 1 call to Unicode::Normalize::BEGIN@9
10	3	44µs	2	26µs	# spent 20µs (14+6) within Unicode::Normalize::BEGIN@10 which was called: # once (14µs+6µs) by MARC::Charset::BEGIN@10 at line 10 use strict; # spent 20µs making 1 call to Unicode::Normalize::BEGIN@10 # spent 6µs making 1 call to strict::import
11	3	36µs	2	64µs	# spent 39µs (14+25) within Unicode::Normalize::BEGIN@11 which was called: # once (14µs+25µs) by MARC::Charset::BEGIN@10 at line 11 use warnings; # spent 39µs making 1 call to Unicode::Normalize::BEGIN@11 # spent 25µs making 1 call to warnings::import
12	3	43µs	2	187µs	# spent 102µs (17+85) within Unicode::Normalize::BEGIN@12 which was called: # once (17µs+85µs) by MARC::Charset::BEGIN@10 at line 12 use Carp; # spent 102µs making 1 call to Unicode::Normalize::BEGIN@12 # spent 85µs making 1 call to Exporter::import
13
14	3	643µs	2	76µs	# spent 46µs (16+30) within Unicode::Normalize::BEGIN@14 which was called: # once (16µs+30µs) by MARC::Charset::BEGIN@10 at line 14 no warnings 'utf8'; # spent 46µs making 1 call to Unicode::Normalize::BEGIN@14 # spent 30µs making 1 call to warnings::unimport
15
16	1	1µs			our $VERSION = '1.03';
17	1	1µs			our $PACKAGE = __PACKAGE__;
18
19	1	1µs			require Exporter;
20	1	160µs			require DynaLoader;
21
22	1	24µs			our @ISA = qw(Exporter DynaLoader);
23	1	3µs			our @EXPORT = qw( NFC NFD NFKC NFKD );
24	1	11µs			our @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					);
33	1	22µs			our %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
42	1	13µs	1	923µs	bootstrap Unicode::Normalize $VERSION; # spent 923µs making 1 call to DynaLoader::bootstrap
43
44					######
45
46					##
47					## utilites for tests
48					##
49
50					sub pack_U {
51					return pack('U*', @_);
52					}
53
54					sub unpack_U {
55					return unpack('U*', shift(@_).pack('U*'));
56					}
57
58
59					##
60					## normalization forms
61					##
62
63					sub FCD ($) {
64					my $str = shift;
65					return checkFCD($str) ? $str : NFD($str);
66					}
67
68	1	15µs			our %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
76					sub 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
91	1	12µs			our %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
99					sub 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
109	1	57µs			1;
110					__END__
					# spent 27µs within Unicode::Normalize::CORE:pack which was called: # once (27µs+0s) by Unicode::Normalize::BEGIN@3 at line 4 sub Unicode::Normalize::CORE:pack; # opcode
					# spent 111µs within Unicode::Normalize::bootstrap which was called: # once (111µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm sub Unicode::Normalize::bootstrap; # xsub