← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:10 2010

File /usr/share/perl/5.10/constant.pm
Statements Executed 2186
Total Time 0.0042587 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
949483.46ms3.98msconstant::::importconstant::import
0000s0sconstant::::BEGINconstant::BEGIN
0000s0sconstant::::__ANON__[:115]constant::__ANON__[:115]
0000s0sconstant::::__ANON__[:119]constant::__ANON__[:119]
0000s0sconstant::::__ANON__[:121]constant::__ANON__[:121]
LineStmts.Exclusive
Time
Avg.Code
1package constant;
2339µs13µsuse 5.005;
3328µs9µsuse strict;
# spent 11µs making 1 call to strict::import
4336µs12µsuse warnings::register;
# spent 96µs making 1 call to warnings::register::import
5
63165µs55µsuse vars qw($VERSION %declared);
# spent 35µs making 1 call to vars::import
71700ns700ns$VERSION = '1.13';
8
9#=======================================================================
10
11# Some names are evil choices.
12118µs18µsmy %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
1317µs7µs$keywords{UNITCHECK}++ if $] > 5.009;
14
15110µs10µsmy %forced_into_main = map +($_, 1),
16 qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
17
1818µs8µsmy %forbidden = (%keywords, %forced_into_main);
19
20#=======================================================================
21# import() - import symbols into user's namespace
22#
23# What we actually do is define a function in the caller's namespace
24# which returns the value. The function we create will normally
25# be inlined as a constant, thereby avoiding further sub calling
26# overhead.
27#=======================================================================
28
# spent 3.98ms (3.46+520µs) within constant::import which was called 94 times, avg 42µs/call: # once (63µs+18µs) at line 12 of /usr/share/perl5/YAML.pm # once (51µs+10µs) at line 181 of /usr/lib/perl5/XML/LibXML/Common.pm # once (48µs+10µs) at line 22 of /usr/share/perl5/MARC/Charset/Constants.pm # once (50µs+5µs) at line 209 of /usr/lib/perl5/XML/LibXML/Common.pm # once (44µs+10µs) at line 140 of /usr/lib/perl5/XML/LibXML/Common.pm # once (45µs+9µs) at line 14 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Meta.pm # once (43µs+9µs) at line 7 of /usr/share/perl5/MARC/Field.pm # once (46µs+5µs) at line 200 of /usr/lib/perl5/XML/LibXML/Common.pm # once (44µs+6µs) at line 24 of /usr/share/perl5/MARC/Charset/Constants.pm # once (45µs+5µs) at line 46 of /usr/share/perl5/MARC/Charset/Constants.pm # once (42µs+8µs) at line 20 of /usr/share/perl5/XML/SAX.pm # once (43µs+5µs) at line 170 of /usr/lib/perl5/XML/LibXML/Common.pm # once (40µs+8µs) at line 14 of /usr/lib/perl5/XML/LibXML.pm # once (43µs+5µs) at line 26 of /usr/share/perl5/MARC/Charset/Constants.pm # once (36µs+12µs) by MARC::Record::BEGIN at line 34 of /usr/share/perl5/MARC/Record.pm # once (42µs+5µs) at line 177 of /usr/lib/perl5/XML/LibXML/Common.pm # once (42µs+5µs) at line 172 of /usr/lib/perl5/XML/LibXML/Common.pm # once (41µs+5µs) at line 198 of /usr/lib/perl5/XML/LibXML/Common.pm # once (40µs+5µs) at line 15 of /usr/lib/perl5/XML/LibXML.pm # once (40µs+5µs) at line 146 of /usr/lib/perl5/XML/LibXML/Common.pm # once (39µs+5µs) at line 153 of /usr/lib/perl5/XML/LibXML/Common.pm # once (39µs+5µs) at line 182 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 152 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 44 of /usr/share/perl5/MARC/Charset/Constants.pm # once (38µs+5µs) at line 149 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 174 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 30 of /usr/share/perl5/MARC/Charset/Constants.pm # once (38µs+5µs) at line 184 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 185 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 144 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 186 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 175 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 179 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 142 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 37 of /usr/share/perl5/MARC/Charset/Constants.pm # once (37µs+5µs) at line 204 of /usr/lib/perl5/XML/LibXML/Common.pm # once (38µs+5µs) at line 147 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 203 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 155 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 208 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 195 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) by XML::LibXML::Common::BEGIN at line 213 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 40 of /usr/share/perl5/MARC/Charset/Constants.pm # once (37µs+5µs) at line 143 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 45 of /usr/share/perl5/MARC/Charset/Constants.pm # once (37µs+5µs) at line 199 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 165 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 205 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+10µs) at line 145 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 206 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 212 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 176 of /usr/lib/perl5/XML/LibXML/Common.pm # once (37µs+5µs) at line 34 of /usr/share/perl5/MARC/Charset/Constants.pm # once (36µs+5µs) at line 36 of /usr/share/perl5/MARC/Charset/Constants.pm # once (33µs+8µs) at line 8 of /usr/share/perl5/MARC/Field.pm # once (36µs+5µs) at line 180 of /usr/lib/perl5/XML/LibXML/Common.pm # once (36µs+5µs) at line 188 of /usr/lib/perl5/XML/LibXML/Common.pm # once (36µs+5µs) at line 187 of /usr/lib/perl5/XML/LibXML/Common.pm # once (36µs+5µs) at line 148 of /usr/lib/perl5/XML/LibXML/Common.pm # once (36µs+5µs) at line 42 of /usr/share/perl5/MARC/Charset/Constants.pm # once (36µs+5µs) at line 202 of /usr/lib/perl5/XML/LibXML/Common.pm # once (36µs+5µs) at line 154 of /usr/lib/perl5/XML/LibXML/Common.pm # once (35µs+5µs) at line 25 of /usr/share/perl5/MARC/Charset/Constants.pm # once (35µs+5µs) at line 173 of /usr/lib/perl5/XML/LibXML/Common.pm # once (35µs+5µs) at line 31 of /usr/share/perl5/MARC/Charset/Constants.pm # once (34µs+5µs) at line 150 of /usr/lib/perl5/XML/LibXML/Common.pm # once (34µs+5µs) at line 39 of /usr/share/perl5/MARC/Charset/Constants.pm # once (34µs+5µs) by XML::SAX::BEGIN at line 23 of /usr/share/perl5/XML/SAX.pm # once (34µs+5µs) at line 32 of /usr/share/perl5/MARC/Charset/Constants.pm # once (34µs+5µs) at line 27 of /usr/share/perl5/MARC/Charset/Constants.pm # once (33µs+5µs) at line 141 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 171 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 201 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 183 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 151 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 35 of /usr/share/perl5/MARC/Charset/Constants.pm # once (33µs+5µs) at line 210 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) by MARC::Charset::Constants::BEGIN at line 47 of /usr/share/perl5/MARC/Charset/Constants.pm # once (33µs+5µs) at line 194 of /usr/lib/perl5/XML/LibXML/Common.pm # once (33µs+5µs) at line 207 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+5µs) at line 29 of /usr/share/perl5/MARC/Charset/Constants.pm # once (32µs+5µs) at line 163 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+5µs) at line 189 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+5µs) at line 196 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+5µs) at line 178 of /usr/lib/perl5/XML/LibXML/Common.pm # once (32µs+5µs) at line 162 of /usr/lib/perl5/XML/LibXML/Common.pm # once (30µs+5µs) at line 22 of /usr/share/perl5/XML/SAX.pm # once (30µs+5µs) at line 156 of /usr/lib/perl5/XML/LibXML/Common.pm # once (28µs+5µs) at line 197 of /usr/lib/perl5/XML/LibXML/Common.pm # once (27µs+5µs) at line 43 of /usr/share/perl5/MARC/Charset/Constants.pm # once (27µs+5µs) at line 211 of /usr/lib/perl5/XML/LibXML/Common.pm # once (27µs+5µs) at line 164 of /usr/lib/perl5/XML/LibXML/Common.pm # once (24µs+5µs) at line 157 of /usr/lib/perl5/XML/LibXML/Common.pm # once (23µs+5µs) at line 41 of /usr/share/perl5/MARC/Charset/Constants.pm
sub import {
29940694µs739ns my $class = shift;
30 return unless @_; # Ignore 'use constant;'
31 my $constants;
32 my $multiple = ref $_[0];
33 my $pkg = caller;
34 my $symtab;
35 my $str_end = $] >= 5.006 ? "\\z" : "\\Z";
36
3794147µs2µs if ($] > 5.009002) {
383353µs118µs no strict 'refs';
# spent 24µs making 1 call to strict::unimport
39 $symtab = \%{$pkg . '::'};
40 };
41
4294439µs5µs if ( $multiple ) {
43 if (ref $_[0] ne 'HASH') {
44 require Carp;
45 Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
46 }
47 $constants = shift;
48 } else {
49 $constants->{+shift} = undef;
50 }
51
52 foreach my $name ( keys %$constants ) {
53282503µs2µs unless (defined $name) {
54 require Carp;
55 Carp::croak("Can't use undef as constant name");
56 }
57
58 # Normal constant name
59 if ($name =~ /^_?[^\W_0-9]\w*$str_end/ and !$forbidden{$name}) {
60 # Everything is okay
61
62 # Name forced into main, but we're not in main. Fatal.
63 } elsif ($forced_into_main{$name} and $pkg ne 'main') {
64 require Carp;
65 Carp::croak("Constant name '$name' is forced into main::");
66
67 # Starts with double underscore. Fatal.
68 } elsif ($name =~ /^__/) {
69 require Carp;
70 Carp::croak("Constant name '$name' begins with '__'");
71
72 # Maybe the name is tolerable
73 } elsif ($name =~ /^[A-Za-z_]\w*$str_end/) {
74 # Then we'll warn only if you've asked for warnings
75 if (warnings::enabled()) {
76 if ($keywords{$name}) {
77 warnings::warn("Constant name '$name' is a Perl keyword");
78 } elsif ($forced_into_main{$name}) {
79 warnings::warn("Constant name '$name' is " .
80 "forced into package main::");
81 }
82 }
83
84 # Looks like a boolean
85 # use constant FRED == fred;
86 } elsif ($name =~ /^[01]?$str_end/) {
87 require Carp;
88 if (@_) {
89 Carp::croak("Constant name '$name' is invalid");
90 } else {
91 Carp::croak("Constant name looks like boolean value");
92 }
93
94 } else {
95 # Must have bad characters
96 require Carp;
97 Carp::croak("Constant name '$name' has invalid characters");
98 }
99
100 {
1013292µs97µs no strict 'refs';
# spent 20µs making 1 call to strict::unimport
102282553µs2µs my $full_name = "${pkg}::$name";
103 $declared{$full_name}++;
104188133µs709ns if ($multiple || @_ == 1) {
105 my $scalar = $multiple ? $constants->{$name} : $_[0];
106282818µs3µs if ($symtab && !exists $symtab->{$name}) {
107 # No typeglob yet, so we can use a reference as space-
108 # efficient proxy for a constant subroutine
109 # The check in Perl_ck_rvconst knows that inlinable
110 # constants from cv_const_sv are read only. So we have to:
111 Internals::SvREADONLY($scalar, 1);
# spent 257µs making 94 calls to Internals::SvREADONLY, avg 3µs/call
112 $symtab->{$name} = \$scalar;
113 mro::method_changed_in($pkg);
# spent 263µs making 94 calls to mro::method_changed_in, avg 3µs/call
114 } else {
115 *$full_name = sub () { $scalar };
116 }
117 } elsif (@_) {
118 my @list = @_;
119 *$full_name = sub () { @list };
120 } else {
121 *$full_name = sub () { };
122 }
123 }
124 }
125}
126
127115µs15µs1;
128
129__END__
130