← Index
NYTProf Performance Profile   « line view »
For svc/members/upsert
  Run on Tue Jan 13 11:50:22 2015
Reported on Tue Jan 13 12:09:49 2015

Filename/usr/share/perl5/MARC/Charset/Constants.pm
StatementsExecuted 53 statements in 1.27ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11114µs32µsMARC::Charset::Constants::::BEGIN@47MARC::Charset::Constants::BEGIN@47
11111µs22µsMARC::Charset::Constants::::BEGIN@18MARC::Charset::Constants::BEGIN@18
1119µs45µsMARC::Charset::Constants::::BEGIN@22MARC::Charset::Constants::BEGIN@22
1117µs29µsMARC::Charset::Constants::::BEGIN@42MARC::Charset::Constants::BEGIN@42
1117µs12µsMARC::Charset::Constants::::BEGIN@19MARC::Charset::Constants::BEGIN@19
1117µs58µsMARC::Charset::Constants::::BEGIN@20MARC::Charset::Constants::BEGIN@20
1116µs31µsMARC::Charset::Constants::::BEGIN@31MARC::Charset::Constants::BEGIN@31
1116µs24µsMARC::Charset::Constants::::BEGIN@41MARC::Charset::Constants::BEGIN@41
1116µs26µsMARC::Charset::Constants::::BEGIN@27MARC::Charset::Constants::BEGIN@27
1116µs28µsMARC::Charset::Constants::::BEGIN@24MARC::Charset::Constants::BEGIN@24
1116µs24µsMARC::Charset::Constants::::BEGIN@35MARC::Charset::Constants::BEGIN@35
1116µs28µsMARC::Charset::Constants::::BEGIN@46MARC::Charset::Constants::BEGIN@46
1116µs25µsMARC::Charset::Constants::::BEGIN@26MARC::Charset::Constants::BEGIN@26
1116µs26µsMARC::Charset::Constants::::BEGIN@29MARC::Charset::Constants::BEGIN@29
1116µs24µsMARC::Charset::Constants::::BEGIN@32MARC::Charset::Constants::BEGIN@32
1116µs28µsMARC::Charset::Constants::::BEGIN@39MARC::Charset::Constants::BEGIN@39
1115µs40µsMARC::Charset::Constants::::BEGIN@30MARC::Charset::Constants::BEGIN@30
1115µs24µsMARC::Charset::Constants::::BEGIN@34MARC::Charset::Constants::BEGIN@34
1115µs24µsMARC::Charset::Constants::::BEGIN@40MARC::Charset::Constants::BEGIN@40
1115µs24µsMARC::Charset::Constants::::BEGIN@43MARC::Charset::Constants::BEGIN@43
1115µs24µsMARC::Charset::Constants::::BEGIN@36MARC::Charset::Constants::BEGIN@36
1115µs24µsMARC::Charset::Constants::::BEGIN@45MARC::Charset::Constants::BEGIN@45
1115µs25µsMARC::Charset::Constants::::BEGIN@25MARC::Charset::Constants::BEGIN@25
1115µs24µsMARC::Charset::Constants::::BEGIN@37MARC::Charset::Constants::BEGIN@37
1115µs23µsMARC::Charset::Constants::::BEGIN@44MARC::Charset::Constants::BEGIN@44
0000s0sMARC::Charset::Constants::::charset_nameMARC::Charset::Constants::charset_name
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package MARC::Charset::Constants;
2
3=head1 NAME
4
5MARC::Charset::Constants - constants for MARC::Charset
6
7=head1 SYNOPSIS
8
9 use MARC::Charset::Constants qw(:all);
10
11=head1 DESCRIPTION
12
13MARC::Charset needs to recognize various codes which are given
14descriptive names and assigned to constants in this package.
15
16=cut
17
18222µs232µs
# spent 22µs (11+10) within MARC::Charset::Constants::BEGIN@18 which was called: # once (11µs+10µs) by MARC::Charset::Code::BEGIN@8 at line 18
use strict;
# spent 22µs making 1 call to MARC::Charset::Constants::BEGIN@18 # spent 10µs making 1 call to strict::import
19221µs216µs
# spent 12µs (7+5) within MARC::Charset::Constants::BEGIN@19 which was called: # once (7µs+5µs) by MARC::Charset::Code::BEGIN@8 at line 19
use warnings;
# spent 12µs making 1 call to MARC::Charset::Constants::BEGIN@19 # spent 5µs making 1 call to warnings::import
20228µs2108µs
# spent 58µs (7+51) within MARC::Charset::Constants::BEGIN@20 which was called: # once (7µs+51µs) by MARC::Charset::Code::BEGIN@8 at line 20
use base qw( Exporter );
# spent 58µs making 1 call to MARC::Charset::Constants::BEGIN@20 # spent 51µs making 1 call to base::import
21
22231µs281µs
# spent 45µs (9+36) within MARC::Charset::Constants::BEGIN@22 which was called: # once (9µs+36µs) by MARC::Charset::Code::BEGIN@8 at line 22
use constant ESCAPE => chr(0x1B);
# spent 45µs making 1 call to MARC::Charset::Constants::BEGIN@22 # spent 36µs making 1 call to constant::import
23
24224µs250µs
# spent 28µs (6+22) within MARC::Charset::Constants::BEGIN@24 which was called: # once (6µs+22µs) by MARC::Charset::Code::BEGIN@8 at line 24
use constant SINGLE_G0_A => chr(0x28);
# spent 28µs making 1 call to MARC::Charset::Constants::BEGIN@24 # spent 22µs making 1 call to constant::import
25237µs245µs
# spent 25µs (5+20) within MARC::Charset::Constants::BEGIN@25 which was called: # once (5µs+20µs) by MARC::Charset::Code::BEGIN@8 at line 25
use constant SINGLE_G0_B => chr(0x2C);
# spent 25µs making 1 call to MARC::Charset::Constants::BEGIN@25 # spent 20µs making 1 call to constant::import
26226µs244µs
# spent 25µs (6+19) within MARC::Charset::Constants::BEGIN@26 which was called: # once (6µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 26
use constant MULTI_G0_A => chr(0x24);
# spent 25µs making 1 call to MARC::Charset::Constants::BEGIN@26 # spent 19µs making 1 call to constant::import
27227µs246µs
# spent 26µs (6+20) within MARC::Charset::Constants::BEGIN@27 which was called: # once (6µs+20µs) by MARC::Charset::Code::BEGIN@8 at line 27
use constant MULTI_G0_B => chr(0x24) . chr(0x2C);
# spent 26µs making 1 call to MARC::Charset::Constants::BEGIN@27 # spent 20µs making 1 call to constant::import
28
29223µs245µs
# spent 26µs (6+20) within MARC::Charset::Constants::BEGIN@29 which was called: # once (6µs+20µs) by MARC::Charset::Code::BEGIN@8 at line 29
use constant SINGLE_G1_A => chr(0x29);
# spent 26µs making 1 call to MARC::Charset::Constants::BEGIN@29 # spent 20µs making 1 call to constant::import
30229µs275µs
# spent 40µs (5+35) within MARC::Charset::Constants::BEGIN@30 which was called: # once (5µs+35µs) by MARC::Charset::Code::BEGIN@8 at line 30
use constant SINGLE_G1_B => chr(0x2D);
# spent 40µs making 1 call to MARC::Charset::Constants::BEGIN@30 # spent 35µs making 1 call to constant::import
31226µs256µs
# spent 31µs (6+25) within MARC::Charset::Constants::BEGIN@31 which was called: # once (6µs+25µs) by MARC::Charset::Code::BEGIN@8 at line 31
use constant MULTI_G1_A => chr(0x24) . chr(0x29);
# spent 31µs making 1 call to MARC::Charset::Constants::BEGIN@31 # spent 25µs making 1 call to constant::import
32224µs242µs
# spent 24µs (6+19) within MARC::Charset::Constants::BEGIN@32 which was called: # once (6µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 32
use constant MULTI_G1_B => chr(0x24) . chr(0x2D);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@32 # spent 18µs making 1 call to constant::import
33
34226µs243µs
# spent 24µs (5+19) within MARC::Charset::Constants::BEGIN@34 which was called: # once (5µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 34
use constant GREEK_SYMBOLS => chr(0x67);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@34 # spent 19µs making 1 call to constant::import
35222µs243µs
# spent 24µs (6+18) within MARC::Charset::Constants::BEGIN@35 which was called: # once (6µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 35
use constant SUBSCRIPTS => chr(0x62);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@35 # spent 18µs making 1 call to constant::import
36221µs242µs
# spent 24µs (5+18) within MARC::Charset::Constants::BEGIN@36 which was called: # once (5µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 36
use constant SUPERSCRIPTS => chr(0x70);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@36 # spent 18µs making 1 call to constant::import
37227µs243µs
# spent 24µs (5+19) within MARC::Charset::Constants::BEGIN@37 which was called: # once (5µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 37
use constant ASCII_DEFAULT => chr(0x73);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@37 # spent 19µs making 1 call to constant::import
38
39229µs250µs
# spent 28µs (6+22) within MARC::Charset::Constants::BEGIN@39 which was called: # once (6µs+22µs) by MARC::Charset::Code::BEGIN@8 at line 39
use constant BASIC_ARABIC => chr(0x33);
# spent 28µs making 1 call to MARC::Charset::Constants::BEGIN@39 # spent 22µs making 1 call to constant::import
40222µs243µs
# spent 24µs (5+19) within MARC::Charset::Constants::BEGIN@40 which was called: # once (5µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 40
use constant EXTENDED_ARABIC => chr(0x34);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@40 # spent 19µs making 1 call to constant::import
412492µs242µs
# spent 24µs (6+18) within MARC::Charset::Constants::BEGIN@41 which was called: # once (6µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 41
use constant BASIC_LATIN => chr(0x42);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@41 # spent 18µs making 1 call to constant::import
42224µs250µs
# spent 29µs (7+22) within MARC::Charset::Constants::BEGIN@42 which was called: # once (7µs+22µs) by MARC::Charset::Code::BEGIN@8 at line 42
use constant EXTENDED_LATIN => chr(0x45);
# spent 29µs making 1 call to MARC::Charset::Constants::BEGIN@42 # spent 22µs making 1 call to constant::import
43222µs242µs
# spent 24µs (5+18) within MARC::Charset::Constants::BEGIN@43 which was called: # once (5µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 43
use constant CJK => chr(0x31);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@43 # spent 18µs making 1 call to constant::import
44222µs240µs
# spent 23µs (5+18) within MARC::Charset::Constants::BEGIN@44 which was called: # once (5µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 44
use constant BASIC_CYRILLIC => chr(0x4E);
# spent 23µs making 1 call to MARC::Charset::Constants::BEGIN@44 # spent 18µs making 1 call to constant::import
45226µs242µs
# spent 24µs (5+19) within MARC::Charset::Constants::BEGIN@45 which was called: # once (5µs+19µs) by MARC::Charset::Code::BEGIN@8 at line 45
use constant EXTENDED_CYRILLIC => chr(0x51);
# spent 24µs making 1 call to MARC::Charset::Constants::BEGIN@45 # spent 19µs making 1 call to constant::import
46225µs250µs
# spent 28µs (6+22) within MARC::Charset::Constants::BEGIN@46 which was called: # once (6µs+22µs) by MARC::Charset::Code::BEGIN@8 at line 46
use constant BASIC_GREEK => chr(0x53);
# spent 28µs making 1 call to MARC::Charset::Constants::BEGIN@46 # spent 22µs making 1 call to constant::import
472184µs251µs
# spent 32µs (14+18) within MARC::Charset::Constants::BEGIN@47 which was called: # once (14µs+18µs) by MARC::Charset::Code::BEGIN@8 at line 47
use constant BASIC_HEBREW => chr(0x32);
# spent 32µs making 1 call to MARC::Charset::Constants::BEGIN@47 # spent 18µs making 1 call to constant::import
48
4913µsour %EXPORT_TAGS = ( all => [ qw(
50 ESCAPE GREEK_SYMBOLS SUBSCRIPTS SUPERSCRIPTS ASCII_DEFAULT
51 SINGLE_G0_A SINGLE_G0_B MULTI_G0_A MULTI_G0_B SINGLE_G1_A
52 SINGLE_G1_B MULTI_G1_A MULTI_G1_B BASIC_ARABIC
53 EXTENDED_ARABIC BASIC_LATIN EXTENDED_LATIN CJK BASIC_CYRILLIC
54 EXTENDED_CYRILLIC BASIC_GREEK BASIC_HEBREW) ]);
55
5612µsour @EXPORT_OK = qw(
57 ESCAPE GREEK_SYMBOLS SUBSCRIPTS SUPERSCRIPTS ASCII_DEFAULT
58 SINGLE_G0_A SINGLE_G0_B MULTI_G0_A MULTI_G0_B SINGLE_G1_A
59 SINGLE_G1_B MULTI_G1_A MULTI_G1_B BASIC_ARABIC
60 EXTENDED_ARABIC BASIC_LATIN EXTENDED_LATIN CJK BASIC_CYRILLIC
61 EXTENDED_CYRILLIC BASIC_GREEK BASIC_HEBREW);
62
63sub charset_name
64{
65 my $charset = shift;
66 return 'GREEK_SYMBOLS' if $charset eq GREEK_SYMBOLS;
67 return 'SUBSCRIPTS' if $charset eq SUBSCRIPTS;
68 return 'SUPERSCRIPTS' if $charset eq SUPERSCRIPTS;
69 return 'ASCII_DEFAULT' if $charset eq ASCII_DEFAULT;
70 return 'BASIC_ARABIC' if $charset eq BASIC_ARABIC;
71 return 'EXTENDED_ARABIC' if $charset eq EXTENDED_ARABIC;
72 return 'BASIC_LATIN' if $charset eq BASIC_LATIN;
73 return 'EXTENDED_LATIN' if $charset eq EXTENDED_LATIN;
74 return 'CJK' if $charset eq CJK;
75 return 'BASIC_CYRILLIC' if $charset eq BASIC_CYRILLIC;
76 return 'EXTENDED_CYRILLIC' if $charset eq EXTENDED_CYRILLIC;
77 return 'BASIC_GREEK' if $charset eq BASIC_GREEK;
78 return 'BASIC_HEBREW' if $charset eq BASIC_HEBREW;
79}
80
81
8214µs1;
Report produced by the NYTProf 5.06 Perl profiler, developed by Tim Bunce and Adam Kaplan.