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

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	106µs	106µs	Unicode::Normalize::::bootstrapUnicode::Normalize::bootstrap (xsub)
1	1	1	71µs	71µs	Unicode::Normalize::::BEGIN@9Unicode::Normalize::BEGIN@9
1	1	1	29µs	34µs	Unicode::Normalize::::BEGIN@3Unicode::Normalize::BEGIN@3
1	1	1	22µs	29µs	Unicode::Normalize::::BEGIN@10Unicode::Normalize::BEGIN@10
1	1	1	15µs	41µs	Unicode::Normalize::::BEGIN@14Unicode::Normalize::BEGIN@14
1	1	1	15µs	44µs	Unicode::Normalize::::BEGIN@11Unicode::Normalize::BEGIN@11
1	1	1	15µs	89µs	Unicode::Normalize::::BEGIN@12Unicode::Normalize::BEGIN@12
1	1	1	5µs	5µs	Unicode::Normalize::::CORE:packUnicode::Normalize::CORE:pack (opcode)
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 34µs (29+5) within Unicode::Normalize::BEGIN@3 which was called: # once (29µs+5µs) by MARC::Charset::BEGIN@10 at line 7 BEGIN {
4	1	47µs	1	5µs	unless ("A" eq pack('U', 0x41)) { # spent 5µs making 1 call to Unicode::Normalize::CORE:pack
5					die "Unicode::Normalize cannot stringify a Unicode code point\n";
6					}
7	1	31µs	1	34µs	} # spent 34µs making 1 call to Unicode::Normalize::BEGIN@3
8
9	3	100µs	1	71µs	# spent 71µs within Unicode::Normalize::BEGIN@9 which was called: # once (71µs+0s) by MARC::Charset::BEGIN@10 at line 9 use 5.006; # spent 71µs making 1 call to Unicode::Normalize::BEGIN@9
10	3	38µs	2	36µs	# spent 29µs (22+7) within Unicode::Normalize::BEGIN@10 which was called: # once (22µs+7µs) by MARC::Charset::BEGIN@10 at line 10 use strict; # spent 29µs making 1 call to Unicode::Normalize::BEGIN@10 # spent 7µs making 1 call to strict::import
11	3	39µs	2	73µs	# spent 44µs (15+29) within Unicode::Normalize::BEGIN@11 which was called: # once (15µs+29µs) by MARC::Charset::BEGIN@10 at line 11 use warnings; # spent 44µs making 1 call to Unicode::Normalize::BEGIN@11 # spent 29µs making 1 call to warnings::import
12	3	44µs	2	163µs	# spent 89µs (15+74) within Unicode::Normalize::BEGIN@12 which was called: # once (15µs+74µs) by MARC::Charset::BEGIN@10 at line 12 use Carp; # spent 89µs making 1 call to Unicode::Normalize::BEGIN@12 # spent 74µs making 1 call to Exporter::import
13
14	3	633µs	2	67µs	# spent 41µs (15+26) within Unicode::Normalize::BEGIN@14 which was called: # once (15µs+26µs) by MARC::Charset::BEGIN@10 at line 14 no warnings 'utf8'; # spent 41µs making 1 call to Unicode::Normalize::BEGIN@14 # spent 26µs making 1 call to warnings::unimport
15
16	1	2µs			our $VERSION = '1.03';
17	1	1µs			our $PACKAGE = __PACKAGE__;
18
19	1	1µs			require Exporter;
20	1	1µs			require DynaLoader;
21
22	1	23µs			our @ISA = qw(Exporter DynaLoader);
23	1	9µ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	20µ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	10µs	1	870µs	bootstrap Unicode::Normalize $VERSION; # spent 870µ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	12µ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	8µ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	35µs			1;
110					__END__
					# spent 5µs within Unicode::Normalize::CORE:pack which was called: # once (5µs+0s) by Unicode::Normalize::BEGIN@3 at line 4 sub Unicode::Normalize::CORE:pack; # opcode
					# spent 106µs within Unicode::Normalize::bootstrap which was called: # once (106µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm sub Unicode::Normalize::bootstrap; # xsub