| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/vars.pm |
| Statements | Executed 3780 statements in 14.3ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 172 | 172 | 140 | 12.1ms | 13.9ms | vars::import |
| 2313 | 3 | 1 | 1.81ms | 1.81ms | vars::CORE:match (opcode) |
| 1 | 1 | 1 | 173µs | 246µs | vars::BEGIN@7 |
| 1 | 1 | 1 | 14µs | 14µs | vars::BEGIN@3 |
| 1 | 1 | 1 | 10µs | 20µs | vars::BEGIN@8 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package vars; | ||||
| 2 | |||||
| 3 | 2 | 52µs | 1 | 14µs | # spent 14µs within vars::BEGIN@3 which was called:
# once (14µs+0s) by Config::BEGIN@11 at line 3 # spent 14µs making 1 call to vars::BEGIN@3 |
| 4 | |||||
| 5 | 1 | 600ns | our $VERSION = '1.03'; | ||
| 6 | |||||
| 7 | 2 | 187µs | 2 | 320µs | # spent 246µs (173+73) within vars::BEGIN@7 which was called:
# once (173µs+73µs) by Config::BEGIN@11 at line 7 # spent 246µs making 1 call to vars::BEGIN@7
# spent 73µs making 1 call to warnings::register::import |
| 8 | 2 | 254µs | 2 | 31µs | # spent 20µs (10+11) within vars::BEGIN@8 which was called:
# once (10µs+11µs) by Config::BEGIN@11 at line 8 # spent 20µs making 1 call to vars::BEGIN@8
# spent 10µs making 1 call to strict::import |
| 9 | |||||
| 10 | # spent 13.9ms (12.1+1.81) within vars::import which was called 172 times, avg 81µs/call:
# once (4.29ms+75µs) by Perl::Tidy::Tokenizer::BEGIN@22601 at line 22641 of Perl/Tidy.pm
# once (1.69ms+368µs) by Perl::Tidy::Formatter::BEGIN@5980 at line 6196 of Perl/Tidy.pm
# once (670µs+158µs) by Lingua::EN::Inflect::BEGIN@1 at line 1 of (eval 279)[Env.pm:84]
# once (477µs+95µs) by Perl::Tidy::VerticalAligner::BEGIN@19616 at line 19677 of Perl/Tidy.pm
# once (153µs+40µs) by Perl::Tidy::Tokenizer::BEGIN@22644 at line 22662 of Perl/Tidy.pm
# once (74µs+33µs) by Pod::Simple::BEGIN@13 at line 18 of Pod/Simple.pm
# once (86µs+19µs) by Text::Wrap::BEGIN@15 at line 15 of Text/Wrap.pm
# once (83µs+18µs) by Getopt::Long::BEGIN@45 at line 45 of Getopt/Long.pm
# once (82µs+19µs) by Perl::Tidy::HtmlWriter::BEGIN@4525 at line 4535 of Perl/Tidy.pm
# once (72µs+17µs) by Pod::Escapes::BEGIN@23 at line 32 of Pod/Escapes.pm
# once (65µs+14µs) by version::BEGIN@7 at line 7 of version.pm
# once (63µs+15µs) by Pod::Select::BEGIN@13 at line 13 of Pod/Select.pm
# once (59µs+11µs) by PPI::Lexer::BEGIN@63 at line 63 of PPI/Lexer.pm
# once (54µs+11µs) by Getopt::Long::BEGIN@51 at line 51 of Getopt/Long.pm
# once (54µs+11µs) by File::HomeDir::BEGIN@13 at line 13 of File/HomeDir.pm
# once (52µs+12µs) by Perl::Tidy::BEGIN@64 at line 70 of Perl/Tidy.pm
# once (51µs+11µs) by Getopt::Long::BEGIN@48 at line 49 of Getopt/Long.pm
# once (50µs+11µs) by File::Spec::Functions::BEGIN@6 at line 6 of File/Spec/Functions.pm
# once (49µs+12µs) by IO::String::BEGIN@10 at line 10 of IO/String.pm
# once (49µs+10µs) by Pod::Parser::BEGIN@14 at line 14 of Pod/Parser.pm
# once (46µs+11µs) by HTML::Entities::BEGIN@139 at line 139 of HTML/Entities.pm
# once (45µs+11µs) by Clone::BEGIN@4 at line 4 of Clone.pm
# once (43µs+12µs) by Cwd::BEGIN@172 at line 172 of Cwd.pm
# once (44µs+10µs) by File::Path::BEGIN@20 at line 20 of File/Path.pm
# once (44µs+10µs) by Class::Inspector::BEGIN@50 at line 50 of Class/Inspector.pm
# once (43µs+9µs) by File::Which::BEGIN@8 at line 8 of File/Which.pm
# once (43µs+10µs) by Readonly::BEGIN@8 at line 8 of Readonly.pm
# once (42µs+10µs) by Pod::Text::BEGIN@29 at line 29 of Pod/Text.pm
# once (42µs+9µs) by PPI::Token::_QuoteEngine::Full::BEGIN@10 at line 10 of PPI/Token/_QuoteEngine/Full.pm
# once (42µs+9µs) by File::ShareDir::BEGIN@118 at line 118 of File/ShareDir.pm
# once (39µs+10µs) by PPI::Token::HereDoc::BEGIN@90 at line 90 of PPI/Token/HereDoc.pm
# once (34µs+14µs) by PPI::Token::BEGIN@28 at line 28 of PPI/Token.pm
# once (39µs+9µs) by Lingua::EN::Inflect::BEGIN@4 at line 4 of Lingua/EN/Inflect.pm
# once (39µs+9µs) by Params::Util::BEGIN@65 at line 65 of Params/Util.pm
# once (38µs+9µs) by PPI::Token::Separator::BEGIN@38 at line 38 of PPI/Token/Separator.pm
# once (40µs+7µs) by Getopt::Long::BEGIN@26 at line 26 of Getopt/Long.pm
# once (40µs+7µs) by PPI::BEGIN@9 at line 9 of PPI.pm
# once (38µs+9µs) by PPI::Token::Word::BEGIN@41 at line 41 of PPI/Token/Word.pm
# once (38µs+9µs) by File::Temp::BEGIN@37 at line 37 of File/Temp.pm
# once (38µs+8µs) by Getopt::Long::BEGIN@46 at line 46 of Getopt/Long.pm
# once (37µs+8µs) by Text::Tabs::BEGIN@9 at line 9 of Text/Tabs.pm
# once (36µs+9µs) by Module::Pluggable::BEGIN@4 at line 4 of Module/Pluggable.pm
# once (37µs+7µs) by PPI::Token::Quote::Single::BEGIN@41 at line 41 of PPI/Token/Quote/Single.pm
# once (34µs+8µs) by PPI::Token::Data::BEGIN@34 at line 34 of PPI/Token/Data.pm
# once (34µs+7µs) by PPI::Token::Quote::BEGIN@51 at line 51 of PPI/Token/Quote.pm
# once (34µs+7µs) by Pod::PlainText::BEGIN@26 at line 26 of Pod/PlainText.pm
# once (34µs+7µs) by PPI::Node::BEGIN@58 at line 58 of PPI/Node.pm
# once (33µs+8µs) by Pod::Usage::BEGIN@13 at line 13 of Pod/Usage.pm
# once (33µs+7µs) by PPI::Statement::Compound::BEGIN@56 at line 56 of PPI/Statement/Compound.pm
# once (33µs+7µs) by PPI::Token::Whitespace::BEGIN@113 at line 113 of PPI/Token/Whitespace.pm
# once (33µs+6µs) by PPI::Token::Structure::BEGIN@42 at line 42 of PPI/Token/Structure.pm
# once (32µs+7µs) by PPI::Document::BEGIN@79 at line 79 of PPI/Document.pm
# once (32µs+7µs) by PPI::Token::Prototype::BEGIN@52 at line 52 of PPI/Token/Prototype.pm
# once (32µs+7µs) by PPI::Token::Unknown::BEGIN@34 at line 34 of PPI/Token/Unknown.pm
# once (31µs+7µs) by PPI::Token::End::BEGIN@46 at line 46 of PPI/Token/End.pm
# once (32µs+7µs) by PPI::Structure::BEGIN@97 at line 97 of PPI/Structure.pm
# once (31µs+7µs) by PPI::Token::Attribute::BEGIN@38 at line 38 of PPI/Token/Attribute.pm
# once (31µs+7µs) by Digest::MD5::BEGIN@4 at line 4 of Digest/MD5.pm
# once (31µs+7µs) by PPI::Token::Magic::BEGIN@48 at line 48 of PPI/Token/Magic.pm
# once (31µs+7µs) by PPI::Element::BEGIN@32 at line 32 of PPI/Element.pm
# once (32µs+5µs) by PPI::Structure::Given::BEGIN@39 at line 39 of PPI/Structure/Given.pm
# once (31µs+6µs) by Tie::StdArray::BEGIN@86 at line 86 of Tie/Array.pm
# once (30µs+7µs) by PPI::Statement::BEGIN@155 at line 155 of PPI/Statement.pm
# once (30µs+7µs) by PPI::Util::BEGIN@10 at line 10 of PPI/Util.pm
# once (29µs+7µs) by PPI::Token::Operator::BEGIN@45 at line 45 of PPI/Token/Operator.pm
# once (29µs+6µs) by Config::BEGIN@11 at line 11 of Config.pm
# once (30µs+5µs) by PPI::Token::QuoteLike::Command::BEGIN@35 at line 35 of PPI/Token/QuoteLike/Command.pm
# once (29µs+6µs) by PPI::Token::Whitespace::BEGIN@48 at line 48 of PPI/Token/Whitespace.pm
# once (28µs+6µs) by Readonly::BEGIN@27 at line 27 of Readonly.pm
# once (25µs+7µs) by PPI::Statement::Include::Perl6::BEGIN@44 at line 44 of PPI/Statement/Include/Perl6.pm
# once (26µs+5µs) by PPI::Token::Number::Binary::BEGIN@32 at line 32 of PPI/Token/Number/Binary.pm
# once (26µs+5µs) by PPI::Structure::List::BEGIN@42 at line 42 of PPI/Structure/List.pm
# once (26µs+5µs) by PPI::Structure::When::BEGIN@39 at line 39 of PPI/Structure/When.pm
# once (26µs+5µs) by List::MoreUtils::PP::BEGIN@327 at line 327 of List/MoreUtils/PP.pm
# once (26µs+5µs) by PPI::Structure::Unknown::BEGIN@45 at line 45 of PPI/Structure/Unknown.pm
# once (26µs+5µs) by PPI::Structure::Block::BEGIN@48 at line 48 of PPI/Structure/Block.pm
# once (24µs+6µs) by List::MoreUtils::XS::BEGIN@7 at line 7 of List/MoreUtils/XS.pm
# once (25µs+5µs) by PPI::Lexer::BEGIN@1051 at line 1051 of PPI/Lexer.pm
# once (24µs+5µs) by PPI::Token::Quote::Literal::BEGIN@35 at line 35 of PPI/Token/Quote/Literal.pm
# once (24µs+6µs) by HTML::Parser::BEGIN@10 at line 10 of HTML/Parser.pm
# once (24µs+5µs) by B::Keywords::BEGIN@10 at line 10 of B/Keywords.pm
# once (24µs+6µs) by PPI::Token::Comment::BEGIN@64 at line 64 of PPI/Token/Comment.pm
# once (24µs+5µs) by PPI::Token::_QuoteEngine::Simple::BEGIN@8 at line 8 of PPI/Token/_QuoteEngine/Simple.pm
# once (24µs+5µs) by File::HomeDir::Darwin::BEGIN@9 at line 9 of File/HomeDir/Darwin.pm
# once (24µs+5µs) by PPI::Document::File::BEGIN@25 at line 25 of PPI/Document/File.pm
# once (24µs+5µs) by PPI::Exception::ParserTimeout::BEGIN@6 at line 6 of PPI/Exception/ParserTimeout.pm
# once (23µs+5µs) by PPI::Token::Number::BEGIN@35 at line 35 of PPI/Token/Number.pm
# once (24µs+5µs) by File::HomeDir::Darwin::Cocoa::BEGIN@9 at line 9 of File/HomeDir/Darwin/Cocoa.pm
# once (23µs+5µs) by PPI::Statement::When::BEGIN@47 at line 47 of PPI/Statement/When.pm
# once (23µs+5µs) by String::Format::BEGIN@22 at line 22 of String/Format.pm
# once (23µs+5µs) by PPI::Token::Pod::BEGIN@33 at line 33 of PPI/Token/Pod.pm
# once (23µs+5µs) by PPI::Token::DashedWord::BEGIN@32 at line 32 of PPI/Token/DashedWord.pm
# once (23µs+5µs) by PPI::Exception::ParserRejection::BEGIN@6 at line 6 of PPI/Exception/ParserRejection.pm
# once (23µs+5µs) by PPI::Token::Quote::Interpolate::BEGIN@35 at line 35 of PPI/Token/Quote/Interpolate.pm
# once (23µs+5µs) by PPI::Token::Symbol::BEGIN@34 at line 34 of PPI/Token/Symbol.pm
# once (24µs+5µs) by File::HomeDir::Unix::BEGIN@10 at line 10 of File/HomeDir/Unix.pm
# once (22µs+6µs) by File::Spec::BEGIN@4 at line 4 of File/Spec.pm
# once (23µs+5µs) by PPI::Token::Regexp::Substitute::BEGIN@39 at line 39 of PPI/Token/Regexp/Substitute.pm
# once (23µs+5µs) by PPI::Structure::Condition::BEGIN@43 at line 43 of PPI/Structure/Condition.pm
# once (23µs+5µs) by PPI::Token::QuoteLike::BEGIN@51 at line 51 of PPI/Token/QuoteLike.pm
# once (23µs+5µs) by PPI::Token::ArrayIndex::BEGIN@32 at line 32 of PPI/Token/ArrayIndex.pm
# once (23µs+5µs) by PPI::Token::Quote::Double::BEGIN@39 at line 39 of PPI/Token/Quote/Double.pm
# once (23µs+5µs) by PPI::Token::Number::Version::BEGIN@36 at line 36 of PPI/Token/Number/Version.pm
# once (23µs+5µs) by PPI::Token::Cast::BEGIN@37 at line 37 of PPI/Token/Cast.pm
# once (23µs+5µs) by PPI::Statement::Scheduled::BEGIN@59 at line 59 of PPI/Statement/Scheduled.pm
# once (23µs+5µs) by PPI::Statement::End::BEGIN@50 at line 50 of PPI/Statement/End.pm
# once (23µs+5µs) by PPI::Token::Number::Octal::BEGIN@32 at line 32 of PPI/Token/Number/Octal.pm
# once (23µs+5µs) by PPI::Statement::Null::BEGIN@46 at line 46 of PPI/Statement/Null.pm
# once (22µs+5µs) by PPI::Token::Number::Float::BEGIN@34 at line 34 of PPI/Token/Number/Float.pm
# once (22µs+5µs) by Devel::InnerPackage::BEGIN@5 at line 5 of Devel/InnerPackage.pm
# once (22µs+5µs) by PPI::Token::QuoteLike::Words::BEGIN@32 at line 32 of PPI/Token/QuoteLike/Words.pm
# once (22µs+5µs) by PPI::Structure::For::BEGIN@39 at line 39 of PPI/Structure/For.pm
# once (23µs+5µs) by PPI::Token::QuoteLike::Regexp::BEGIN@36 at line 36 of PPI/Token/QuoteLike/Regexp.pm
# once (22µs+5µs) by PPI::Structure::Subscript::BEGIN@44 at line 44 of PPI/Structure/Subscript.pm
# once (22µs+5µs) by PPI::Structure::Constructor::BEGIN@38 at line 38 of PPI/Structure/Constructor.pm
# once (22µs+5µs) by PPI::Statement::Data::BEGIN@46 at line 46 of PPI/Statement/Data.pm
# once (23µs+5µs) by PPI::Token::Regexp::BEGIN@48 at line 48 of PPI/Token/Regexp.pm
# once (22µs+5µs) by PPI::Statement::Include::BEGIN@51 at line 51 of PPI/Statement/Include.pm
# once (22µs+5µs) by PPI::Token::Number::Hex::BEGIN@32 at line 32 of PPI/Token/Number/Hex.pm
# once (22µs+5µs) by PPI::Normal::BEGIN@43 at line 43 of PPI/Normal.pm
# once (22µs+5µs) by PPI::Token::Number::Exp::BEGIN@34 at line 34 of PPI/Token/Number/Exp.pm
# once (22µs+5µs) by PPI::Document::Fragment::BEGIN@24 at line 24 of PPI/Document/Fragment.pm
# once (22µs+5µs) by PPI::Statement::Variable::BEGIN@45 at line 45 of PPI/Statement/Variable.pm
# once (22µs+5µs) by PPI::Token::QuoteLike::Readline::BEGIN@44 at line 44 of PPI/Token/QuoteLike/Readline.pm
# once (22µs+5µs) by PPI::Statement::Sub::BEGIN@38 at line 38 of PPI/Statement/Sub.pm
# once (22µs+5µs) by PPI::Token::BOM::BEGIN@45 at line 45 of PPI/Token/BOM.pm
# once (22µs+5µs) by PPI::Token::Label::BEGIN@34 at line 34 of PPI/Token/Label.pm
# once (22µs+5µs) by PPI::Token::QuoteLike::Backtick::BEGIN@35 at line 35 of PPI/Token/QuoteLike/Backtick.pm
# once (22µs+5µs) by PPI::Token::Structure::BEGIN@34 at line 34 of PPI/Token/Structure.pm
# once (22µs+5µs) by PPI::Statement::Package::BEGIN@70 at line 70 of PPI/Statement/Package.pm
# once (22µs+5µs) by PPI::Token::Regexp::Transliterate::BEGIN@43 at line 43 of PPI/Token/Regexp/Transliterate.pm
# once (22µs+5µs) by PPI::Statement::UnmatchedBrace::BEGIN@50 at line 50 of PPI/Statement/UnmatchedBrace.pm
# once (22µs+5µs) by PPI::Statement::Given::BEGIN@39 at line 39 of PPI/Statement/Given.pm
# once (22µs+5µs) by PPI::Token::Regexp::Match::BEGIN@49 at line 49 of PPI/Token/Regexp/Match.pm
# once (22µs+4µs) by HTML::Entities::BEGIN@140 at line 140 of HTML/Entities.pm
# once (22µs+5µs) by PPI::Statement::Break::BEGIN@43 at line 43 of PPI/Statement/Break.pm
# once (22µs+5µs) by PPI::Statement::Expression::BEGIN@41 at line 41 of PPI/Statement/Expression.pm
# once (21µs+5µs) by PPI::Statement::Unknown::BEGIN@38 at line 38 of PPI/Statement/Unknown.pm
# once (19µs+6µs) by Pod::Simple::LinkSection::BEGIN@10 at line 10 of Pod/Simple/LinkSection.pm
# once (22µs+3µs) by File::HomeDir::Driver::BEGIN@10 at line 10 of File/HomeDir/Driver.pm
# once (21µs+3µs) by Getopt::Long::BEGIN@22 at line 22 of Getopt/Long.pm
# once (17µs+5µs) by Getopt::Long::BEGIN@19 at line 19 of Getopt/Long.pm
# once (18µs+3µs) by base::BEGIN@4 at line 4 of base.pm
# once (18µs+3µs) by parent::BEGIN@3 at line 3 of parent.pm
# once (17µs+4µs) by Config::BEGIN@7 at line 7 of Config_heavy.pl
# once (17µs+4µs) by Class::Data::Inheritable::BEGIN@4 at line 4 of Class/Data/Inheritable.pm
# once (14µs+6µs) by PPI::Document::Normalized::BEGIN@48 at line 48 of PPI/Document/Normalized.pm
# once (16µs+4µs) by Pod::Simple::LinkSection::BEGIN@5 at line 5 of Pod/Simple/LinkSection.pm
# once (16µs+3µs) by PPI::Lexer::BEGIN@360 at line 360 of PPI/Lexer.pm
# once (15µs+3µs) by Pod::ParseTree::BEGIN@826 at line 826 of Pod/InputObjects.pm
# once (14µs+3µs) by Module::Pluggable::Object::BEGIN@9 at line 9 of Module/Pluggable/Object.pm
# once (14µs+3µs) by PPI::Token::_QuoteEngine::BEGIN@36 at line 36 of PPI/Token/_QuoteEngine.pm
# once (14µs+3µs) by PPI::Normal::Standard::BEGIN@21 at line 21 of PPI/Normal/Standard.pm
# once (14µs+3µs) by PPI::Exception::BEGIN@6 at line 6 of PPI/Exception.pm
# once (14µs+3µs) by Pod::Simple::BlackBox::BEGIN@25 at line 25 of Pod/Simple/BlackBox.pm
# once (14µs+3µs) by PPI::Lexer::BEGIN@96 at line 96 of PPI/Lexer.pm
# once (14µs+3µs) by PPI::Tokenizer::BEGIN@90 at line 90 of PPI/Tokenizer.pm
# once (14µs+3µs) by File::Spec::Unix::BEGIN@4 at line 4 of File/Spec/Unix.pm
# once (14µs+3µs) by Readonly::BEGIN@24 at line 24 of Readonly.pm
# once (13µs+3µs) by Digest::base::BEGIN@4 at line 4 of Digest/base.pm
# once (14µs+3µs) by Pod::InputObjects::BEGIN@14 at line 14 of Pod/InputObjects.pm
# once (13µs+2µs) by B::Keywords::BEGIN@90 at line 90 of B/Keywords.pm
# once (13µs+2µs) by B::Keywords::BEGIN@16 at line 16 of B/Keywords.pm
# once (13µs+3µs) by B::Keywords::BEGIN@403 at line 403 of B/Keywords.pm
# once (13µs+2µs) by B::Keywords::BEGIN@348 at line 348 of B/Keywords.pm
# once (13µs+2µs) by B::Keywords::BEGIN@100 at line 100 of B/Keywords.pm
# once (13µs+2µs) by B::Keywords::BEGIN@112 at line 112 of B/Keywords.pm
# once (12µs+2µs) by B::Keywords::BEGIN@123 at line 123 of B/Keywords.pm
# once (12µs+2µs) by B::Keywords::BEGIN@19 at line 19 of B/Keywords.pm
# once (12µs+2µs) by B::Keywords::BEGIN@426 at line 426 of B/Keywords.pm
# once (12µs+2µs) by B::Keywords::BEGIN@412 at line 412 of B/Keywords.pm
# once (12µs+2µs) by B::Keywords::BEGIN@417 at line 417 of B/Keywords.pm | ||||
| 11 | 172 | 106µs | my $callpack = caller; | ||
| 12 | 172 | 267µs | my (undef, @imports) = @_; | ||
| 13 | 172 | 21µs | my ($sym, $ch); | ||
| 14 | 172 | 778µs | foreach (@imports) { | ||
| 15 | 771 | 3.83ms | 771 | 1.29ms | if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { # spent 1.29ms making 771 calls to vars::CORE:match, avg 2µs/call |
| 16 | 771 | 5.31ms | 771 | 306µs | if ($sym =~ /\W/) { # spent 306µs making 771 calls to vars::CORE:match, avg 398ns/call |
| 17 | # time for a more-detailed check-up | ||||
| 18 | if ($sym =~ /^\w+[[{].*[]}]$/) { | ||||
| 19 | require Carp; | ||||
| 20 | Carp::croak("Can't declare individual elements of hash or array"); | ||||
| 21 | } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { | ||||
| 22 | warnings::warn("No need to declare built-in vars"); | ||||
| 23 | } elsif (($^H &= strict::bits('vars'))) { | ||||
| 24 | require Carp; | ||||
| 25 | Carp::croak("'$_' is not a valid variable name under strict vars"); | ||||
| 26 | } | ||||
| 27 | } | ||||
| 28 | 771 | 1.51ms | 771 | 208µs | $sym = "${callpack}::$sym" unless $sym =~ /::/; # spent 208µs making 771 calls to vars::CORE:match, avg 270ns/call |
| 29 | *$sym = | ||||
| 30 | ( $ch eq "\$" ? \$$sym | ||||
| 31 | : $ch eq "\@" ? \@$sym | ||||
| 32 | : $ch eq "\%" ? \%$sym | ||||
| 33 | : $ch eq "\*" ? \*$sym | ||||
| 34 | : $ch eq "\&" ? \&$sym | ||||
| 35 | 771 | 2.01ms | : do { | ||
| 36 | require Carp; | ||||
| 37 | Carp::croak("'$_' is not a valid variable name"); | ||||
| 38 | }); | ||||
| 39 | } else { | ||||
| 40 | require Carp; | ||||
| 41 | Carp::croak("'$_' is not a valid variable name"); | ||||
| 42 | } | ||||
| 43 | } | ||||
| 44 | }; | ||||
| 45 | |||||
| 46 | 1 | 2µs | 1; | ||
| 47 | __END__ | ||||
sub vars::CORE:match; # opcode |