Profile of constant.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/constant.pm
Statements	Executed 4639 statements in 5.93ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
145	145	15	3.94ms	5.02ms	constant::::importconstant::import
152	1	1	324µs	324µs	constant::::CORE:substconstant::CORE:subst (opcode)
152	1	1	227µs	227µs	constant::::CORE:regcompconstant::CORE:regcomp (opcode)
152	1	1	200µs	200µs	constant::::CORE:matchconstant::CORE:match (opcode)
1	1	1	16µs	16µs	constant::::BEGIN@2constant::BEGIN@2
1	1	1	16µs	20µs	constant::::BEGIN@24constant::BEGIN@24
1	1	1	7µs	17µs	constant::::BEGIN@90constant::BEGIN@90
1	1	1	7µs	18µs	constant::::BEGIN@40constant::BEGIN@40
1	1	1	7µs	17µs	constant::::BEGIN@141constant::BEGIN@141
1	1	1	7µs	19µs	constant::::BEGIN@3constant::BEGIN@3
1	1	1	6µs	16µs	constant::::BEGIN@65constant::BEGIN@65
1	1	1	6µs	73µs	constant::::BEGIN@4constant::BEGIN@4
3	3	1	4µs	4µs	constant::::CORE:qrconstant::CORE:qr (opcode)
0	0	0	0s	0s	constant::::__ANON__[:174]constant::__ANON__[:174]
0	0	0	0s	0s	constant::::__ANON__[:190]constant::__ANON__[:190]
0	0	0	0s	0s	constant::::__ANON__[:192]constant::__ANON__[:192]
0	0	0	0s	0s	constant::::__ANON__[:41]constant::__ANON__[:41]
0	0	0	0s	0s	constant::::__ANON__[:42]constant::__ANON__[:42]
0	0	0	0s	0s	constant::::__ANON__[:43]constant::__ANON__[:43]

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	2	43µs	1	16µs	# spent 16µs within constant::BEGIN@2 which was called: # once (16µs+0s) by Getopt::Long::BEGIN@215 at line 2 use 5.008; # spent 16µs making 1 call to constant::BEGIN@2
3	2	20µs	2	31µs	# spent 19µs (7+12) within constant::BEGIN@3 which was called: # once (7µs+12µs) by Getopt::Long::BEGIN@215 at line 3 use strict; # spent 19µs making 1 call to constant::BEGIN@3 # spent 12µs making 1 call to strict::import
4	2	188µs	2	140µs	# spent 73µs (6+67) within constant::BEGIN@4 which was called: # once (6µs+67µs) by Getopt::Long::BEGIN@215 at line 4 use warnings::register; # spent 73µs making 1 call to constant::BEGIN@4 # spent 67µs making 1 call to warnings::register::import
5
6	1	600ns			our $VERSION = '1.33';
7	1	200ns			our %declared;
8
9					#=======================================================================
10
11					# Some names are evil choices.
12	1	5µs			my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
13	1	900ns			$keywords{UNITCHECK}++ if $] > 5.009;
14
15	1	5µs			my %forced_into_main = map +($_, 1),
16					qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
17
18	1	4µs			my %forbidden = (%keywords, %forced_into_main);
19
20	1	9µs	1	3µs	my $normal_constant_name = qr/^_?[^\W_0-9]\w*\z/; # spent 3µs making 1 call to constant::CORE:qr
21	1	3µs	1	1µs	my $tolerable = qr/^[A-Za-z_]\w*\z/; # spent 1µs making 1 call to constant::CORE:qr
22	1	3µs	1	800ns	my $boolean = qr/^[01]?\z/; # spent 800ns making 1 call to constant::CORE:qr
23
24					# spent 20µs (16+4) within constant::BEGIN@24 which was called: # once (16µs+4µs) by Getopt::Long::BEGIN@215 at line 45 BEGIN {
25					# We'd like to do use constant _CAN_PCS => $] > 5.009002
26					# but that's a bit tricky before we load the constant module :-)
27					# By doing this, we save several run time checks for every call
28					# to import.
29	1	900ns			my $const = $] > 5.009002;
30	1	400ns			my $downgrade = $] < 5.015004; # && $] >= 5.008
31	1	400ns			my $constarray = exists &_make_const;
32	1	6µs			if ($const) {
33	1	10µs	1	4µs	Internals::SvREADONLY($const, 1); # spent 4µs making 1 call to Internals::SvREADONLY
34	1	3µs	1	600ns	Internals::SvREADONLY($downgrade, 1); # spent 600ns making 1 call to Internals::SvREADONLY
35	1	1µs			$constant::{_CAN_PCS} = \$const;
36	1	200ns			$constant::{_DOWNGRADE} = \$downgrade;
37	1	400ns			$constant::{_CAN_PCS_FOR_ARRAY} = \$constarray;
38					}
39					else {
40	2	80µs	2	29µs	# spent 18µs (7+11) within constant::BEGIN@40 which was called: # once (7µs+11µs) by Getopt::Long::BEGIN@215 at line 40 no strict 'refs'; # spent 18µs making 1 call to constant::BEGIN@40 # spent 11µs making 1 call to strict::unimport
41					*{"_CAN_PCS"} = sub () {$const};
42					*{"_DOWNGRADE"} = sub () { $downgrade };
43					*{"_CAN_PCS_FOR_ARRAY"} = sub () { $constarray };
44					}
45	1	63µs	1	20µs	} # spent 20µs making 1 call to constant::BEGIN@24
46
47					#=======================================================================
48					# import() - import symbols into user's namespace
49					#
50					# What we actually do is define a function in the caller's namespace
51					# which returns the value. The function we create will normally
52					# be inlined as a constant, thereby avoiding further sub calling
53					# overhead.
54					#=======================================================================
55					# spent 5.02ms (3.94+1.07) within constant::import which was called 145 times, avg 35µs/call: # once (118µs+34µs) by Path::Tiny::BEGIN@19 at line 28 of Path/Tiny.pm # once (54µs+16µs) by Perl::Tidy::Tokenizer::BEGIN@27475 at line 27475 of Perl/Tidy.pm # once (46µs+15µs) by Perl::Tidy::IndentationItem::BEGIN@19077 at line 19077 of Perl/Tidy.pm # once (45µs+14µs) by PPIx::Regexp::Token::GroupType::NamedCapture::BEGIN@48 at line 50 of PPIx/Regexp/Token/GroupType/NamedCapture.pm # once (44µs+13µs) by Perl::Tidy::FileWriter::BEGIN@22177 at line 22177 of Perl/Tidy.pm # once (41µs+11µs) by Perl::Tidy::Logger::BEGIN@4303 at line 4303 of Perl/Tidy.pm # once (40µs+11µs) by Getopt::Long::BEGIN@227 at line 227 of Getopt/Long.pm # once (38µs+12µs) by PPI::Document::BEGIN@92 at line 92 of PPI/Document.pm # once (38µs+11µs) by Getopt::Long::BEGIN@215 at line 215 of Getopt/Long.pm # once (38µs+10µs) by PPI::Util::BEGIN@18 at line 18 of PPI/Util.pm # once (38µs+10µs) by PPIx::Regexp::Constant::BEGIN@23 at line 23 of PPIx/Regexp/Constant.pm # once (38µs+10µs) by Perl::Tidy::Tokenizer::BEGIN@22580 at line 22580 of Perl/Tidy.pm # once (38µs+10µs) by File::ShareDir::BEGIN@135 at line 135 of File/ShareDir.pm # once (37µs+9µs) by File::Temp::BEGIN@84 at line 84 of File/Temp.pm # once (37µs+8µs) by Perl::Tidy::Tokenizer::BEGIN@22583 at line 22583 of Perl/Tidy.pm # once (36µs+7µs) by File::Spec::Unix::BEGIN@242 at line 242 of File/Spec/Unix.pm # once (35µs+8µs) by File::Which::BEGIN@16 at line 16 of File/Which.pm # once (26µs+16µs) by Perl::Tidy::Formatter::BEGIN@6295 at line 6295 of Perl/Tidy.pm # once (32µs+11µs) by File::Spec::Unix::BEGIN@127 at line 127 of File/Spec/Unix.pm # once (35µs+7µs) by Perl::Tidy::IndentationItem::BEGIN@19087 at line 19087 of Perl/Tidy.pm # once (32µs+9µs) by Perl::Tidy::Formatter::BEGIN@5944 at line 5944 of Perl/Tidy.pm # once (30µs+12µs) by Perl::Tidy::Tokenizer::BEGIN@22581 at line 22581 of Perl/Tidy.pm # once (33µs+8µs) by Pod::Wordlist::BEGIN@14 at line 14 of Pod/Wordlist.pm # once (32µs+8µs) by Encode::BEGIN@8 at line 8 of Encode.pm # once (24µs+15µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19327 at line 19327 of Perl/Tidy.pm # once (30µs+7µs) by Perl::Tidy::Formatter::BEGIN@5949 at line 5949 of Perl/Tidy.pm # once (27µs+10µs) by Perl::Tidy::Logger::BEGIN@4339 at line 4339 of Perl/Tidy.pm # once (29µs+8µs) by Perl::Tidy::Formatter::BEGIN@6282 at line 6282 of Perl/Tidy.pm # once (30µs+8µs) by Perl::Tidy::Formatter::BEGIN@5947 at line 5947 of Perl/Tidy.pm # once (29µs+8µs) by Encode::Alias::BEGIN@6 at line 6 of Encode/Alias.pm # once (28µs+8µs) by Perl::Tidy::Tokenizer::BEGIN@22582 at line 22582 of Perl/Tidy.pm # once (29µs+7µs) by Getopt::Long::BEGIN@225 at line 225 of Getopt/Long.pm # once (29µs+8µs) by Perl::Tidy::Tokenizer::BEGIN@23592 at line 23592 of Perl/Tidy.pm # once (28µs+8µs) by Perl::Tidy::Tokenizer::BEGIN@22584 at line 22584 of Perl/Tidy.pm # once (28µs+8µs) by Perl::Tidy::HtmlWriter::BEGIN@4955 at line 4955 of Perl/Tidy.pm # once (28µs+8µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19322 at line 19322 of Perl/Tidy.pm # once (27µs+8µs) by Perl::Tidy::Formatter::BEGIN@5945 at line 5945 of Perl/Tidy.pm # once (28µs+7µs) by Perl::Tidy::Tokenizer::BEGIN@23593 at line 23593 of Perl/Tidy.pm # once (28µs+7µs) by PPI::Lexer::BEGIN@100 at line 100 of PPI/Lexer.pm # once (28µs+6µs) by File::Spec::Unix::BEGIN@145 at line 145 of File/Spec/Unix.pm # once (27µs+7µs) by Perl::Tidy::Formatter::BEGIN@6298 at line 6298 of Perl/Tidy.pm # once (25µs+10µs) by Perl::Tidy::HtmlWriter::BEGIN@4956 at line 4956 of Perl/Tidy.pm # once (28µs+6µs) by Getopt::Long::BEGIN@236 at line 236 of Getopt/Long.pm # once (27µs+7µs) by File::Spec::Unix::BEGIN@220 at line 220 of File/Spec/Unix.pm # once (26µs+8µs) by Perl::Tidy::Formatter::BEGIN@5946 at line 5946 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::Formatter::BEGIN@6302 at line 6302 of Perl/Tidy.pm # once (28µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22670 at line 22670 of Perl/Tidy.pm # once (27µs+7µs) by Perl::Tidy::IndentationItem::BEGIN@19080 at line 19080 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::Tokenizer::BEGIN@22665 at line 22665 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19323 at line 19323 of Perl/Tidy.pm # once (27µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22666 at line 22666 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::VerticalAligner::BEGIN@19600 at line 19600 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19503 at line 19503 of Perl/Tidy.pm # once (27µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19333 at line 19333 of Perl/Tidy.pm # once (26µs+6µs) by PPIx::Regexp::Constant::BEGIN@25 at line 25 of PPIx/Regexp/Constant.pm # once (25µs+7µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19501 at line 19501 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::IndentationItem::BEGIN@19078 at line 19078 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::Formatter::BEGIN@5948 at line 5948 of Perl/Tidy.pm # once (26µs+7µs) by File::Spec::Unix::BEGIN@136 at line 136 of File/Spec/Unix.pm # once (26µs+6µs) by File::Temp::BEGIN@95 at line 95 of File/Temp.pm # once (26µs+6µs) by PPIx::Regexp::Constant::BEGIN@41 at line 41 of PPIx/Regexp/Constant.pm # once (26µs+6µs) by PPIx::Regexp::Constant::BEGIN@28 at line 28 of PPIx/Regexp/Constant.pm # once (26µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19324 at line 19324 of Perl/Tidy.pm # once (26µs+7µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19325 at line 19325 of Perl/Tidy.pm # once (25µs+7µs) by PPI::Util::BEGIN@22 at line 22 of PPI/Util.pm # once (25µs+7µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19326 at line 19326 of Perl/Tidy.pm # once (24µs+7µs) by PPI::Document::BEGIN@93 at line 93 of PPI/Document.pm # once (25µs+7µs) by PPI::Document::BEGIN@96 at line 96 of PPI/Document.pm # once (25µs+7µs) by Getopt::Long::BEGIN@229 at line 229 of Getopt/Long.pm # once (24µs+7µs) by Perl::Tidy::Formatter::BEGIN@6283 at line 6283 of Perl/Tidy.pm # once (25µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4963 at line 4963 of Perl/Tidy.pm # once (25µs+6µs) by File::Temp::BEGIN@87 at line 87 of File/Temp.pm # once (25µs+6µs) by Perl::Tidy::Formatter::BEGIN@5957 at line 5957 of Perl/Tidy.pm # once (24µs+7µs) by Perl::Tidy::Formatter::BEGIN@5950 at line 5950 of Perl/Tidy.pm # once (24µs+7µs) by Perl::Tidy::Formatter::BEGIN@5951 at line 5951 of Perl/Tidy.pm # once (24µs+7µs) by File::Which::BEGIN@17 at line 17 of File/Which.pm # once (24µs+7µs) by PPI::Document::BEGIN@94 at line 94 of PPI/Document.pm # once (24µs+6µs) by Perl::Tidy::VerticalAligner::BEGIN@19602 at line 19602 of Perl/Tidy.pm # once (24µs+6µs) by File::Temp::BEGIN@91 at line 91 of File/Temp.pm # once (24µs+7µs) by Perl::Tidy::Formatter::BEGIN@5953 at line 5953 of Perl/Tidy.pm # once (24µs+6µs) by File::Which::BEGIN@18 at line 18 of File/Which.pm # once (24µs+6µs) by Perl::Tidy::Formatter::BEGIN@5952 at line 5952 of Perl/Tidy.pm # once (24µs+6µs) by Perl::Tidy::Formatter::BEGIN@6288 at line 6288 of Perl/Tidy.pm # once (24µs+6µs) by Perl::Tidy::Formatter::BEGIN@6284 at line 6284 of Perl/Tidy.pm # once (24µs+7µs) by PPIx::Regexp::Constant::BEGIN@24 at line 24 of PPIx/Regexp/Constant.pm # once (24µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19090 at line 19090 of Perl/Tidy.pm # once (23µs+7µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19502 at line 19502 of Perl/Tidy.pm # once (24µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19079 at line 19079 of Perl/Tidy.pm # once (24µs+6µs) by File::Temp::BEGIN@96 at line 96 of File/Temp.pm # once (24µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@23594 at line 23594 of Perl/Tidy.pm # once (23µs+7µs) by Perl::Tidy::VerticalAligner::BEGIN@19601 at line 19601 of Perl/Tidy.pm # once (24µs+6µs) by File::Temp::BEGIN@97 at line 97 of File/Temp.pm # once (24µs+6µs) by Getopt::Long::BEGIN@243 at line 243 of Getopt/Long.pm # once (24µs+6µs) by Getopt::Long::BEGIN@230 at line 230 of Getopt/Long.pm # once (24µs+6µs) by Perl::Tidy::Formatter::BEGIN@6289 at line 6289 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@5954 at line 5954 of Perl/Tidy.pm # once (23µs+7µs) by PPI::Document::BEGIN@95 at line 95 of PPI/Document.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19506 at line 19506 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19504 at line 19504 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@6287 at line 6287 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4957 at line 4957 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@23595 at line 23595 of Perl/Tidy.pm # once (24µs+6µs) by Perl::Tidy::Formatter::BEGIN@6292 at line 6292 of Perl/Tidy.pm # once (23µs+6µs) by PPIx::Regexp::Constant::BEGIN@26 at line 26 of PPIx/Regexp/Constant.pm # once (23µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19083 at line 19083 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19505 at line 19505 of Perl/Tidy.pm # once (23µs+6µs) by PPIx::Regexp::Constant::BEGIN@30 at line 30 of PPIx/Regexp/Constant.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@5955 at line 5955 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19082 at line 19082 of Perl/Tidy.pm # once (23µs+6µs) by Getopt::Long::BEGIN@233 at line 233 of Getopt/Long.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@5956 at line 5956 of Perl/Tidy.pm # once (23µs+6µs) by Getopt::Long::BEGIN@254 at line 254 of Getopt/Long.pm # once (23µs+6µs) by Getopt::Long::BEGIN@244 at line 253 of Getopt/Long.pm # once (23µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19092 at line 19092 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@6290 at line 6290 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22667 at line 22667 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19084 at line 19084 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22671 at line 22671 of Perl/Tidy.pm # once (23µs+6µs) by Getopt::Long::BEGIN@231 at line 231 of Getopt/Long.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Alignment::BEGIN@19507 at line 19507 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19328 at line 19328 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19329 at line 19329 of Perl/Tidy.pm # once (23µs+6µs) by Getopt::Long::BEGIN@232 at line 232 of Getopt/Long.pm # once (23µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22675 at line 22675 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Formatter::BEGIN@6291 at line 6291 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19334 at line 19334 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19095 at line 19095 of Perl/Tidy.pm # once (23µs+6µs) by Perl::Tidy::Tokenizer::BEGIN@22672 at line 22672 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::VerticalAligner::BEGIN@19603 at line 19603 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19331 at line 19331 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19086 at line 19086 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4958 at line 4958 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4959 at line 4959 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4960 at line 4960 of Perl/Tidy.pm # once (22µs+6µs) by PPIx::Regexp::Constant::BEGIN@39 at line 39 of PPIx/Regexp/Constant.pm # once (22µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19093 at line 19093 of Perl/Tidy.pm # once (22µs+5µs) by Perl::Tidy::HtmlWriter::BEGIN@4961 at line 4961 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19094 at line 19094 of Perl/Tidy.pm # once (22µs+6µs) by Getopt::Long::BEGIN@235 at line 235 of Getopt/Long.pm # once (22µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19330 at line 19330 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::HtmlWriter::BEGIN@4962 at line 4962 of Perl/Tidy.pm # once (22µs+6µs) by Perl::Tidy::IndentationItem::BEGIN@19085 at line 19085 of Perl/Tidy.pm # once (22µs+6µs) by PPIx::Regexp::Constant::BEGIN@44 at line 44 of PPIx/Regexp/Constant.pm # once (22µs+6µs) by PPIx::Regexp::Constant::BEGIN@43 at line 43 of PPIx/Regexp/Constant.pm # once (22µs+6µs) by Perl::Tidy::VerticalAligner::Line::BEGIN@19332 at line 19332 of Perl/Tidy.pm sub import {
56	145	51µs			my $class = shift;
57	145	37µs			return unless @_; # Ignore 'use constant;'
58	145	8µs			my $constants;
59	145	37µs			my $multiple = ref $_[0];
60	145	54µs			my $caller = caller;
61	145	2µs			my $flush_mro;
62	145	1µs			my $symtab;
63
64	145	33µs			if (_CAN_PCS) {
65	2	130µs	2	26µs	# spent 16µs (6+10) within constant::BEGIN@65 which was called: # once (6µs+10µs) by Getopt::Long::BEGIN@215 at line 65 no strict 'refs'; # spent 16µs making 1 call to constant::BEGIN@65 # spent 10µs making 1 call to strict::unimport
66	145	146µs			$symtab = \%{$caller . '::'};
67					};
68
69	145	21µs			if ( $multiple ) {
70	1	800ns			if (ref $_[0] ne 'HASH') {
71					require Carp;
72					Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
73					}
74	1	200ns			$constants = shift;
75					} else {
76	144	20µs			unless (defined $_[0]) {
77					require Carp;
78					Carp::croak("Can't use undef as constant name");
79					}
80	144	146µs			$constants->{+shift} = undef;
81					}
82
83	145	197µs			foreach my $name ( keys %$constants ) {
84	152	9µs			my $pkg;
85	152	19µs			my $symtab = $symtab;
86	152	17µs			my $orig_name = $name;
87	152	680µs	152	324µs	if ($name =~ s/(.*)(?:::\|')(?=.)//s) { # spent 324µs making 152 calls to constant::CORE:subst, avg 2µs/call
88					$pkg = $1;
89					if (_CAN_PCS && $pkg ne $caller) {
90	2	177µs	2	27µs	# spent 17µs (7+10) within constant::BEGIN@90 which was called: # once (7µs+10µs) by Getopt::Long::BEGIN@215 at line 90 no strict 'refs'; # spent 17µs making 1 call to constant::BEGIN@90 # spent 10µs making 1 call to strict::unimport
91					$symtab = \%{$pkg . '::'};
92					}
93					}
94					else {
95	152	35µs			$pkg = $caller;
96					}
97
98					# Normal constant name
99	152	919µs	304	427µs	if ($name =~ $normal_constant_name and !$forbidden{$name}) { # spent 227µs making 152 calls to constant::CORE:regcomp, avg 1µs/call # spent 200µs making 152 calls to constant::CORE:match, avg 1µs/call
100					# Everything is okay
101
102					# Name forced into main, but we're not in main. Fatal.
103					} elsif ($forced_into_main{$name} and $pkg ne 'main') {
104					require Carp;
105					Carp::croak("Constant name '$name' is forced into main::");
106
107					# Starts with double underscore. Fatal.
108					} elsif ($name =~ /^__/) {
109					require Carp;
110					Carp::croak("Constant name '$name' begins with '__'");
111
112					# Maybe the name is tolerable
113					} elsif ($name =~ $tolerable) {
114					# Then we'll warn only if you've asked for warnings
115					if (warnings::enabled()) {
116					if ($keywords{$name}) {
117					warnings::warn("Constant name '$name' is a Perl keyword");
118					} elsif ($forced_into_main{$name}) {
119					warnings::warn("Constant name '$name' is " .
120					"forced into package main::");
121					}
122					}
123
124					# Looks like a boolean
125					# use constant FRED == fred;
126					} elsif ($name =~ $boolean) {
127					require Carp;
128					if (@_) {
129					Carp::croak("Constant name '$name' is invalid");
130					} else {
131					Carp::croak("Constant name looks like boolean value");
132					}
133
134					} else {
135					# Must have bad characters
136					require Carp;
137					Carp::croak("Constant name '$name' has invalid characters");
138					}
139
140					{
141	154	447µs	2	27µs	# spent 17µs (7+10) within constant::BEGIN@141 which was called: # once (7µs+10µs) by Getopt::Long::BEGIN@215 at line 141 no strict 'refs'; # spent 17µs making 1 call to constant::BEGIN@141 # spent 10µs making 1 call to strict::unimport
142	152	88µs			my $full_name = "${pkg}::$name";
143	152	130µs			$declared{$full_name}++;
144	152	62µs			if ($multiple \|\| @_ == 1) {
145	152	42µs			my $scalar = $multiple ? $constants->{$orig_name} : $_[0];
146
147					if (_DOWNGRADE) { # for 5.8 to 5.14
148					# Work around perl bug #31991: Sub names (actually glob
149					# names in general) ignore the UTF8 flag. So we have to
150					# turn it off to get the "right" symbol table entry.
151					utf8::is_utf8 $name and utf8::encode $name;
152					}
153
154					# The constant serves to optimise this entire block out on
155					# 5.8 and earlier.
156	152	24µs			if (_CAN_PCS) {
157					# Use a reference as a proxy for a constant subroutine.
158					# If this is not a glob yet, it saves space. If it is
159					# a glob, we must still create it this way to get the
160					# right internal flags set, as constants are distinct
161					# from subroutines created with sub(){...}.
162					# The check in Perl_ck_rvconst knows that inlinable
163					# constants from cv_const_sv are read only. So we have to:
164	152	415µs	152	133µs	Internals::SvREADONLY($scalar, 1); # spent 133µs making 152 calls to Internals::SvREADONLY, avg 878ns/call
165	152	84µs			if (!exists $symtab->{$name}) {
166	151	95µs			$symtab->{$name} = \$scalar;
167	151	82µs			++$flush_mro->{$pkg};
168					}
169					else {
170	1	1µs			local $constant::{_dummy} = \$scalar;
171	1	5µs			*$full_name = \&{"_dummy"};
172					}
173					} else {
174					*$full_name = sub () { $scalar };
175					}
176					} elsif (@_) {
177					my @list = @_;
178					if (_CAN_PCS_FOR_ARRAY) {
179					_make_const($list[$_]) for 0..$#list;
180					_make_const(@list);
181					if (!exists $symtab->{$name}) {
182					$symtab->{$name} = \@list;
183					$flush_mro->{$pkg}++;
184					}
185					else {
186					local $constant::{_dummy} = \@list;
187					*$full_name = \&{"_dummy"};
188					}
189					}
190					else { *$full_name = sub () { @list }; }
191					} else {
192					*$full_name = sub () { };
193					}
194					}
195					}
196					# Flush the cache exactly once if we make any direct symbol table changes.
197	145	591µs			if (_CAN_PCS && $flush_mro) {
198	144	665µs	144	187µs	mro::method_changed_in($_) for keys %$flush_mro; # spent 187µs making 144 calls to mro::method_changed_in, avg 1µs/call
199					}
200					}
201
202	1	7µs			1;
203
204					__END__

					# spent 200µs within constant::CORE:match which was called 152 times, avg 1µs/call: # 152 times (200µs+0s) by constant::import at line 99, avg 1µs/call sub constant::CORE:match; # opcode
					# spent 4µs within constant::CORE:qr which was called 3 times, avg 1µs/call: # once (3µs+0s) by Getopt::Long::BEGIN@215 at line 20 # once (1µs+0s) by Getopt::Long::BEGIN@215 at line 21 # once (800ns+0s) by Getopt::Long::BEGIN@215 at line 22 sub constant::CORE:qr; # opcode
					# spent 227µs within constant::CORE:regcomp which was called 152 times, avg 1µs/call: # 152 times (227µs+0s) by constant::import at line 99, avg 1µs/call sub constant::CORE:regcomp; # opcode
					# spent 324µs within constant::CORE:subst which was called 152 times, avg 2µs/call: # 152 times (324µs+0s) by constant::import at line 87, avg 2µs/call sub constant::CORE:subst; # opcode