← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:11:25 2013

Filename/usr/lib/perl/5.10/Unicode/Normalize.pm
StatementsExecuted 28 statements in 1.04ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1319118.06ms8.06msUnicode::Normalize::::NFCUnicode::Normalize::NFC (xsub)
111112µs112µsUnicode::Normalize::::BEGIN@9Unicode::Normalize::BEGIN@9
11185µs85µsUnicode::Normalize::::bootstrapUnicode::Normalize::bootstrap (xsub)
11125µs30µsUnicode::Normalize::::BEGIN@3Unicode::Normalize::BEGIN@3
11121µs50µsUnicode::Normalize::::BEGIN@14Unicode::Normalize::BEGIN@14
11113µs18µsUnicode::Normalize::::BEGIN@10Unicode::Normalize::BEGIN@10
11113µs62µsUnicode::Normalize::::BEGIN@12Unicode::Normalize::BEGIN@12
11110µs22µsUnicode::Normalize::::BEGIN@11Unicode::Normalize::BEGIN@11
1115µs5µsUnicode::Normalize::::CORE:packUnicode::Normalize::CORE:pack (opcode)
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 30µs (25+5) within Unicode::Normalize::BEGIN@3 which was called: # once (25µs+5µs) by MARC::Charset::BEGIN@10 at line 7
BEGIN {
4122µs15µ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 }
7124µs130µs}
# spent 30µs making 1 call to Unicode::Normalize::BEGIN@3
8
93158µs1112µs
# spent 112µs within Unicode::Normalize::BEGIN@9 which was called: # once (112µs+0s) by MARC::Charset::BEGIN@10 at line 9
use 5.006;
# spent 112µs making 1 call to Unicode::Normalize::BEGIN@9
10333µs222µs
# spent 18µs (13+5) within Unicode::Normalize::BEGIN@10 which was called: # once (13µs+5µs) by MARC::Charset::BEGIN@10 at line 10
use strict;
# spent 18µs making 1 call to Unicode::Normalize::BEGIN@10 # spent 5µs making 1 call to strict::import
11326µs235µs
# spent 22µs (10+12) within Unicode::Normalize::BEGIN@11 which was called: # once (10µs+12µs) by MARC::Charset::BEGIN@10 at line 11
use warnings;
# spent 22µs making 1 call to Unicode::Normalize::BEGIN@11 # spent 13µs making 1 call to warnings::import
12350µs2110µs
# spent 62µs (13+49) within Unicode::Normalize::BEGIN@12 which was called: # once (13µs+49µs) by MARC::Charset::BEGIN@10 at line 12
use Carp;
# spent 62µs making 1 call to Unicode::Normalize::BEGIN@12 # spent 49µs making 1 call to Exporter::import
13
143603µs279µs
# spent 50µs (21+29) within Unicode::Normalize::BEGIN@14 which was called: # once (21µs+29µs) by MARC::Charset::BEGIN@10 at line 14
no warnings 'utf8';
# spent 50µs making 1 call to Unicode::Normalize::BEGIN@14 # spent 29µs making 1 call to warnings::unimport
15
1612µsour $VERSION = '1.03';
171500nsour $PACKAGE = __PACKAGE__;
18
1911µsrequire Exporter;
2012µsrequire DynaLoader;
21
22121µsour @ISA = qw(Exporter DynaLoader);
2314µsour @EXPORT = qw( NFC NFD NFKC NFKD );
2417µ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
42111µs1989µsbootstrap Unicode::Normalize $VERSION;
# spent 989µ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
68115µ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
9116µ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
109137µs1;
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 8.06ms within Unicode::Normalize::NFC which was called 1319 times, avg 6µs/call: # 1319 times (8.06ms+0s) by C4::Charset::NormalizeString at line 180 of /usr/share/koha/lib/C4/Charset.pm, avg 6µs/call
sub Unicode::Normalize::NFC; # xsub
# spent 85µs within Unicode::Normalize::bootstrap which was called: # once (85µ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.