Profile of constant.pm

Filename	/usr/share/perl/5.10/constant.pm
Statements	Executed 3143 statements in 10.7ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
126	126	8	7.76ms	9.27ms	constant::::importconstant::import
146	1	1	470µs	470µs	constant::::CORE:matchconstant::CORE:match (opcode)
146	1	1	303µs	303µs	constant::::CORE:regcompconstant::CORE:regcomp (opcode)
1	1	1	38µs	38µs	constant::::BEGIN@2constant::BEGIN@2
1	1	1	17µs	200µs	constant::::BEGIN@4constant::BEGIN@4
1	1	1	16µs	45µs	constant::::BEGIN@38constant::BEGIN@38
1	1	1	15µs	20µs	constant::::BEGIN@3constant::BEGIN@3
1	1	1	14µs	78µs	constant::::BEGIN@6constant::BEGIN@6
1	1	1	14µs	37µs	constant::::BEGIN@101constant::BEGIN@101
0	0	0	0s	0s	constant::::__ANON__[:115]constant::__ANON__[:115]
0	0	0	0s	0s	constant::::__ANON__[:119]constant::__ANON__[:119]
0	0	0	0s	0s	constant::::__ANON__[:121]constant::__ANON__[:121]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package constant;
2	3	60µs	1	38µs	# spent 38µs within constant::BEGIN@2 which was called: # once (38µs+0s) by MARC::Field::BEGIN@7 at line 2 use 5.005; # spent 38µs making 1 call to constant::BEGIN@2
3	3	39µs	2	25µs	# spent 20µs (15+5) within constant::BEGIN@3 which was called: # once (15µs+5µs) by MARC::Field::BEGIN@7 at line 3 use strict; # spent 20µs making 1 call to constant::BEGIN@3 # spent 5µs making 1 call to strict::import
4	3	46µs	2	383µs	# spent 200µs (17+183) within constant::BEGIN@4 which was called: # once (17µs+183µs) by MARC::Field::BEGIN@7 at line 4 use warnings::register; # spent 200µs making 1 call to constant::BEGIN@4 # spent 183µs making 1 call to warnings::register::import
5
6	3	200µs	2	142µs	# spent 78µs (14+64) within constant::BEGIN@6 which was called: # once (14µs+64µs) by MARC::Field::BEGIN@7 at line 6 use vars qw($VERSION %declared); # spent 78µs making 1 call to constant::BEGIN@6 # spent 64µs making 1 call to vars::import
7	1	2µs			$VERSION = '1.17';
8
9					#=======================================================================
10
11					# Some names are evil choices.
12	1	9µs			my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
13	1	2µs			$keywords{UNITCHECK}++ if $] > 5.009;
14
15	1	8µs			my %forced_into_main = map +($_, 1),
16					qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
17
18	1	8µs			my %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 9.27ms (7.76+1.51) within constant::import which was called 126 times, avg 74µs/call: # once (661µs+183µs) by XML::LibXML::BEGIN@234 at line 235 of XML/LibXML.pm # once (72µs+52µs) by MARC::Field::BEGIN@7 at line 7 of MARC/Field.pm # once (84µs+13µs) by XML::SAX::BEGIN@22 at line 22 of XML/SAX.pm # once (79µs+17µs) by XML::SAX::BEGIN@20 at line 20 of XML/SAX.pm # once (72µs+16µs) by MARC::Charset::Constants::BEGIN@22 at line 22 of MARC/Charset/Constants.pm # once (71µs+16µs) by MARC::File::USMARC::BEGIN@19 at line 19 of MARC/File/USMARC.pm # once (71µs+16µs) by XML::LibXML::BEGIN@20 at line 20 of XML/LibXML.pm # once (69µs+12µs) by XML::LibXML::Common::BEGIN@149 at line 149 of XML/LibXML/Common.pm # once (67µs+10µs) by XML::LibXML::Error::BEGIN@48 at line 48 of XML/LibXML/Error.pm # once (68µs+9µs) by XML::LibXML::Error::BEGIN@39 at line 39 of XML/LibXML/Error.pm # once (65µs+10µs) by XML::LibXML::Error::BEGIN@33 at line 33 of XML/LibXML/Error.pm # once (64µs+11µs) by XML::LibXML::Error::BEGIN@51 at line 51 of XML/LibXML/Error.pm # once (65µs+10µs) by MARC::Charset::Constants::BEGIN@29 at line 29 of MARC/Charset/Constants.pm # once (65µs+10µs) by XML::LibXML::Common::BEGIN@165 at line 165 of XML/LibXML/Common.pm # once (66µs+9µs) by XML::LibXML::Common::BEGIN@161 at line 161 of XML/LibXML/Common.pm # once (65µs+9µs) by MARC::Charset::Constants::BEGIN@37 at line 37 of MARC/Charset/Constants.pm # once (60µs+14µs) by XML::LibXML::BEGIN@159 at line 159 of XML/LibXML.pm # once (55µs+18µs) by XML::LibXML::Common::BEGIN@179 at line 179 of XML/LibXML/Common.pm # once (62µs+11µs) by XML::LibXML::Common::BEGIN@184 at line 184 of XML/LibXML/Common.pm # once (62µs+11µs) by XML::LibXML::Common::BEGIN@181 at line 181 of XML/LibXML/Common.pm # once (62µs+10µs) by XML::LibXML::BEGIN@167 at line 167 of XML/LibXML.pm # once (62µs+10µs) by XML::LibXML::BEGIN@161 at line 161 of XML/LibXML.pm # once (63µs+9µs) by XML::LibXML::Common::BEGIN@166 at line 166 of XML/LibXML/Common.pm # once (62µs+9µs) by MARC::File::USMARC::BEGIN@22 at line 22 of MARC/File/USMARC.pm # once (60µs+10µs) by XML::SAX::BEGIN@23 at line 23 of XML/SAX.pm # once (61µs+9µs) by MARC::Charset::Constants::BEGIN@39 at line 39 of MARC/Charset/Constants.pm # once (60µs+10µs) by XML::LibXML::BEGIN@166 at line 166 of XML/LibXML.pm # once (60µs+10µs) by XML::LibXML::Common::BEGIN@153 at line 153 of XML/LibXML/Common.pm # once (57µs+13µs) by MARC::Record::BEGIN@34 at line 34 of MARC/Record.pm # once (57µs+12µs) by XML::LibXML::Error::BEGIN@27 at line 27 of XML/LibXML/Error.pm # once (58µs+11µs) by XML::LibXML::Error::BEGIN@50 at line 50 of XML/LibXML/Error.pm # once (59µs+10µs) by MARC::File::USMARC::BEGIN@21 at line 21 of MARC/File/USMARC.pm # once (59µs+10µs) by MARC::File::USMARC::BEGIN@20 at line 20 of MARC/File/USMARC.pm # once (59µs+10µs) by MARC::Charset::Constants::BEGIN@24 at line 24 of MARC/Charset/Constants.pm # once (59µs+10µs) by XML::LibXML::BEGIN@259 at line 259 of XML/LibXML.pm # once (59µs+10µs) by XML::LibXML::Common::BEGIN@150 at line 150 of XML/LibXML/Common.pm # once (58µs+11µs) by XML::LibXML::Common::BEGIN@195 at line 195 of XML/LibXML/Common.pm # once (58µs+10µs) by XML::LibXML::Error::BEGIN@43 at line 43 of XML/LibXML/Error.pm # once (59µs+9µs) by XML::LibXML::BEGIN@174 at line 174 of XML/LibXML.pm # once (59µs+9µs) by XML::LibXML::Common::BEGIN@162 at line 162 of XML/LibXML/Common.pm # once (57µs+10µs) by MARC::Charset::Constants::BEGIN@44 at line 44 of MARC/Charset/Constants.pm # once (56µs+11µs) by MARC::Charset::Constants::BEGIN@25 at line 25 of MARC/Charset/Constants.pm # once (56µs+11µs) by XML::LibXML::BEGIN@165 at line 165 of XML/LibXML.pm # once (57µs+10µs) by XML::LibXML::BEGIN@172 at line 172 of XML/LibXML.pm # once (57µs+10µs) by XML::LibXML::Common::BEGIN@159 at line 159 of XML/LibXML/Common.pm # once (56µs+11µs) by MARC::Field::BEGIN@8 at line 8 of MARC/Field.pm # once (57µs+9µs) by XML::LibXML::Error::BEGIN@35 at line 35 of XML/LibXML/Error.pm # once (57µs+9µs) by MARC::Charset::Constants::BEGIN@31 at line 31 of MARC/Charset/Constants.pm # once (55µs+11µs) by XML::LibXML::BEGIN@160 at line 160 of XML/LibXML.pm # once (57µs+9µs) by XML::LibXML::BEGIN@173 at line 173 of XML/LibXML.pm # once (56µs+10µs) by XML::LibXML::BEGIN@171 at line 171 of XML/LibXML.pm # once (56µs+10µs) by XML::LibXML::Common::BEGIN@198 at line 198 of XML/LibXML/Common.pm # once (56µs+10µs) by XML::LibXML::Common::BEGIN@182 at line 182 of XML/LibXML/Common.pm # once (56µs+10µs) by XML::LibXML::Common::BEGIN@194 at line 194 of XML/LibXML/Common.pm # once (56µs+10µs) by XML::LibXML::Common::BEGIN@151 at line 151 of XML/LibXML/Common.pm # once (56µs+10µs) by XML::LibXML::Common::BEGIN@197 at line 197 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Error::BEGIN@53 at line 53 of XML/LibXML/Error.pm # once (55µs+10µs) by XML::LibXML::Error::BEGIN@30 at line 30 of XML/LibXML/Error.pm # once (56µs+9µs) by XML::LibXML::Error::BEGIN@29 at line 29 of XML/LibXML/Error.pm # once (55µs+10µs) by XML::LibXML::Error::BEGIN@44 at line 44 of XML/LibXML/Error.pm # once (55µs+10µs) by XML::LibXML::Error::BEGIN@28 at line 28 of XML/LibXML/Error.pm # once (54µs+11µs) by MARC::Charset::Constants::BEGIN@27 at line 27 of MARC/Charset/Constants.pm # once (54µs+11µs) by MARC::Charset::Constants::BEGIN@47 at line 47 of MARC/Charset/Constants.pm # once (56µs+9µs) by MARC::Charset::Constants::BEGIN@43 at line 43 of MARC/Charset/Constants.pm # once (55µs+10µs) by XML::LibXML::BEGIN@162 at line 162 of XML/LibXML.pm # once (55µs+10µs) by XML::LibXML::BEGIN@164 at line 164 of XML/LibXML.pm # once (54µs+11µs) by XML::LibXML::Common::BEGIN@193 at line 193 of XML/LibXML/Common.pm # once (56µs+9µs) by XML::LibXML::Common::BEGIN@180 at line 180 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Common::BEGIN@190 at line 190 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Common::BEGIN@156 at line 156 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Common::BEGIN@191 at line 191 of XML/LibXML/Common.pm # once (56µs+9µs) by XML::LibXML::Common::BEGIN@158 at line 158 of XML/LibXML/Common.pm # once (56µs+9µs) by XML::LibXML::Common::BEGIN@157 at line 157 of XML/LibXML/Common.pm # once (56µs+9µs) by XML::LibXML::Common::BEGIN@185 at line 185 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Common::BEGIN@160 at line 160 of XML/LibXML/Common.pm # once (54µs+11µs) by XML::LibXML::Common::BEGIN@164 at line 164 of XML/LibXML/Common.pm # once (55µs+10µs) by XML::LibXML::Common::BEGIN@171 at line 171 of XML/LibXML/Common.pm # once (55µs+9µs) by XML::LibXML::Error::BEGIN@32 at line 32 of XML/LibXML/Error.pm # once (55µs+9µs) by XML::LibXML::Error::BEGIN@42 at line 42 of XML/LibXML/Error.pm # once (54µs+10µs) by XML::LibXML::Error::BEGIN@36 at line 36 of XML/LibXML/Error.pm # once (54µs+10µs) by XML::LibXML::Error::BEGIN@49 at line 49 of XML/LibXML/Error.pm # once (54µs+10µs) by XML::LibXML::Common::BEGIN@188 at line 188 of XML/LibXML/Common.pm # once (54µs+10µs) by XML::LibXML::Common::BEGIN@186 at line 186 of XML/LibXML/Common.pm # once (54µs+10µs) by XML::LibXML::Common::BEGIN@187 at line 187 of XML/LibXML/Common.pm # once (54µs+10µs) by XML::LibXML::Common::BEGIN@155 at line 155 of XML/LibXML/Common.pm # once (54µs+10µs) by XML::LibXML::Common::BEGIN@154 at line 154 of XML/LibXML/Common.pm # once (54µs+9µs) by XML::LibXML::Error::BEGIN@55 at line 55 of XML/LibXML/Error.pm # once (53µs+10µs) by XML::LibXML::Error::BEGIN@41 at line 41 of XML/LibXML/Error.pm # once (53µs+10µs) by XML::LibXML::Error::BEGIN@52 at line 52 of XML/LibXML/Error.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@32 at line 32 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@26 at line 26 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@40 at line 40 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@45 at line 45 of MARC/Charset/Constants.pm # once (52µs+11µs) by XML::LibXML::BEGIN@21 at line 21 of XML/LibXML.pm # once (53µs+10µs) by XML::LibXML::BEGIN@177 at line 177 of XML/LibXML.pm # once (53µs+10µs) by XML::LibXML::Common::BEGIN@163 at line 163 of XML/LibXML/Common.pm # once (53µs+10µs) by XML::LibXML::Common::BEGIN@172 at line 172 of XML/LibXML/Common.pm # once (53µs+10µs) by XML::LibXML::Common::BEGIN@152 at line 152 of XML/LibXML/Common.pm # once (53µs+10µs) by XML::LibXML::Common::BEGIN@189 at line 189 of XML/LibXML/Common.pm # once (52µs+11µs) by XML::LibXML::Common::BEGIN@183 at line 183 of XML/LibXML/Common.pm # once (53µs+10µs) by XML::LibXML::Common::BEGIN@173 at line 173 of XML/LibXML/Common.pm # once (52µs+10µs) by XML::LibXML::Error::BEGIN@40 at line 40 of XML/LibXML/Error.pm # once (52µs+10µs) by XML::LibXML::Error::BEGIN@38 at line 38 of XML/LibXML/Error.pm # once (52µs+10µs) by XML::LibXML::Error::BEGIN@34 at line 34 of XML/LibXML/Error.pm # once (52µs+10µs) by XML::LibXML::Error::BEGIN@54 at line 54 of XML/LibXML/Error.pm # once (52µs+10µs) by MARC::Charset::Constants::BEGIN@35 at line 35 of MARC/Charset/Constants.pm # once (51µs+11µs) by MARC::Charset::Constants::BEGIN@42 at line 42 of MARC/Charset/Constants.pm # once (52µs+10µs) by MARC::Charset::Constants::BEGIN@30 at line 30 of MARC/Charset/Constants.pm # once (53µs+9µs) by MARC::Charset::Constants::BEGIN@36 at line 36 of MARC/Charset/Constants.pm # once (52µs+10µs) by XML::LibXML::BEGIN@176 at line 176 of XML/LibXML.pm # once (52µs+10µs) by XML::LibXML::BEGIN@169 at line 169 of XML/LibXML.pm # once (53µs+9µs) by XML::LibXML::BEGIN@178 at line 178 of XML/LibXML.pm # once (52µs+10µs) by XML::LibXML::Common::BEGIN@192 at line 192 of XML/LibXML/Common.pm # once (51µs+11µs) by XML::LibXML::Common::BEGIN@196 at line 196 of XML/LibXML/Common.pm # once (51µs+10µs) by XML::LibXML::Error::BEGIN@47 at line 47 of XML/LibXML/Error.pm # once (50µs+11µs) by XML::LibXML::Error::BEGIN@45 at line 45 of XML/LibXML/Error.pm # once (51µs+10µs) by XML::LibXML::Error::BEGIN@37 at line 37 of XML/LibXML/Error.pm # once (51µs+10µs) by MARC::Charset::Constants::BEGIN@46 at line 46 of MARC/Charset/Constants.pm # once (52µs+9µs) by MARC::Charset::Constants::BEGIN@41 at line 41 of MARC/Charset/Constants.pm # once (51µs+10µs) by MARC::Charset::Constants::BEGIN@34 at line 34 of MARC/Charset/Constants.pm # once (53µs+8µs) by XML::LibXML::BEGIN@170 at line 170 of XML/LibXML.pm # once (52µs+9µs) by XML::LibXML::BEGIN@163 at line 163 of XML/LibXML.pm # once (51µs+9µs) by XML::LibXML::BEGIN@168 at line 168 of XML/LibXML.pm # once (51µs+9µs) by XML::LibXML::BEGIN@175 at line 175 of XML/LibXML.pm # once (49µs+10µs) by XML::LibXML::Error::BEGIN@46 at line 46 of XML/LibXML/Error.pm # once (49µs+10µs) by XML::LibXML::Common::BEGIN@174 at line 174 of XML/LibXML/Common.pm sub import {
29	3119	9.58ms			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
37					if ($] > 5.009002) {
38	3	404µs	2	74µs	# spent 45µs (16+29) within constant::BEGIN@38 which was called: # once (16µs+29µs) by MARC::Field::BEGIN@7 at line 38 no strict 'refs'; # spent 45µs making 1 call to constant::BEGIN@38 # spent 29µs making 1 call to strict::unimport
39					$symtab = \%{$pkg . '::'};
40					};
41
42					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 ) {
53					unless (defined $name) {
54					require Carp;
55					Carp::croak("Can't use undef as constant name");
56					}
57
58					# Normal constant name
59			292	773µs	if ($name =~ /^_?[^\W_0-9]\w*$str_end/ and !$forbidden{$name}) { # spent 470µs making 146 calls to constant::CORE:match, avg 3µs/call # spent 303µs making 146 calls to constant::CORE:regcomp, avg 2µs/call
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					{
101	3	289µs	2	60µs	# spent 37µs (14+23) within constant::BEGIN@101 which was called: # once (14µs+23µs) by MARC::Field::BEGIN@7 at line 101 no strict 'refs'; # spent 37µs making 1 call to constant::BEGIN@101 # spent 23µs making 1 call to strict::unimport
102					my $full_name = "${pkg}::$name";
103					$declared{$full_name}++;
104					if ($multiple \|\| @_ == 1) {
105					my $scalar = $multiple ? $constants->{$name} : $_[0];
106					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			146	304µs	Internals::SvREADONLY($scalar, 1); # spent 304µs making 146 calls to Internals::SvREADONLY, avg 2µs/call
112					$symtab->{$name} = \$scalar;
113			146	435µs	mro::method_changed_in($pkg); # spent 435µs making 146 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
127	1	12µs			1;
128
129					__END__

					# spent 470µs within constant::CORE:match which was called 146 times, avg 3µs/call: # 146 times (470µs+0s) by constant::import at line 59, avg 3µs/call sub constant::CORE:match; # opcode
					# spent 303µs within constant::CORE:regcomp which was called 146 times, avg 2µs/call: # 146 times (303µs+0s) by constant::import at line 59, avg 2µs/call sub constant::CORE:regcomp; # opcode