← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Wed Dec 14 15:33:55 2022
Reported on Wed Dec 14 15:40:04 2022

Filename/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/strict.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
226182169771µs771µsstrict::::importstrict::import
909048595µs595µsstrict::::unimportstrict::unimport
0000s0sstrict::::BEGINstrict::BEGIN
0000s0sstrict::::__ANON__[:31]strict::__ANON__[:31]
0000s0sstrict::::__ANON__[:37]strict::__ANON__[:37]
0000s0sstrict::::bitsstrict::bits
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package strict;
2
3$strict::VERSION = "1.12";
4
5my ( %bitmask, %explicit_bitmask );
6
7BEGIN {
8 # Verify that we're called correctly so that strictures will work.
9 # Can't use Carp, since Carp uses us!
10 # see also warnings.pm.
11 die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
12 if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' )
13 && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
14
15 %bitmask = (
16 refs => 0x00000002,
17 subs => 0x00000200,
18 vars => 0x00000400,
19 );
20
21 %explicit_bitmask = (
22 refs => 0x00000020,
23 subs => 0x00000040,
24 vars => 0x00000080,
25 );
26
27 my $bits = 0;
28 $bits |= $_ for values %bitmask;
29
30 my $inline_all_bits = $bits;
31 *all_bits = sub () { $inline_all_bits };
32
33 $bits = 0;
34 $bits |= $_ for values %explicit_bitmask;
35
36 my $inline_all_explicit_bits = $bits;
37 *all_explicit_bits = sub () { $inline_all_explicit_bits };
38}
39
40sub bits {
41 my $bits = 0;
42 my @wrong;
43 foreach my $s (@_) {
44 if (exists $bitmask{$s}) {
45 $^H |= $explicit_bitmask{$s};
46
47 $bits |= $bitmask{$s};
48 }
49 else {
50 push @wrong, $s;
51 }
52 }
53 if (@wrong) {
54 require Carp;
55 Carp::croak("Unknown 'strict' tag(s) '@wrong'");
56 }
57 $bits;
58}
59
60
# spent 771µs within strict::import which was called 226 times, avg 3µs/call: # 18 times (21µs+0s) by strictures::_enable_2 at line 169 of strictures.pm, avg 1µs/call # 17 times (24µs+0s) by Moo::import at line 46 of Moo.pm, avg 1µs/call # 6 times (21µs+0s) by Mojo::Base::import at line 102 of Mojo/Base.pm, avg 4µs/call # 4 times (9µs+0s) by Role::Tiny::import at line 84 of Role/Tiny.pm, avg 2µs/call # 4 times (9µs+0s) by strictures::_enable_1 at line 139 of strictures.pm, avg 2µs/call # once (78µs+0s) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.pm # once (22µs+0s) by YAML::PP::BEGIN@1.282 at line 1 of YAML/PP/Schema/JSON.pm # once (13µs+0s) by Class::Inspector::BEGIN@6 at line 6 of Class/Inspector.pm # once (9µs+0s) by MooX::HandlesVia::BEGIN@4 at line 4 of MooX/HandlesVia.pm # once (9µs+0s) by Type::Tiny::Enum::BEGIN@4 at line 4 of Type/Tiny/Enum.pm # once (9µs+0s) by Type::Tiny::BEGIN@4 at line 4 of Type/Tiny.pm # once (9µs+0s) by YAML::PP::Schema::BEGIN@1 at line 1 of YAML/PP/Common.pm # once (7µs+0s) by JSON::PP::Boolean::BEGIN@3 at line 3 of JSON/PP/Boolean.pm # once (6µs+0s) by base::BEGIN@4 at line 4 of base.pm # once (6µs+0s) by Moo::BEGIN@2 at line 2 of Moo.pm # once (6µs+0s) by vars::BEGIN@8 at line 8 of vars.pm # once (6µs+0s) by Params::Util::BEGIN@87 at line 87 of Params/Util.pm # once (6µs+0s) by YAML::PP::BEGIN@1 at line 1 of YAML/PP/Schema.pm # once (5µs+0s) by Module::Runtime::BEGIN@1.314 at line 1 of JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm # once (5µs+0s) by Encode::MIME::Name::BEGIN@2 at line 2 of Encode/MIME/Name.pm # once (5µs+0s) by Mojo::Base::BEGIN@3 at line 3 of Mojo/Base.pm # once (5µs+0s) by main::BEGIN@1 at line 1 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.552-om-0.031/../prof.pl # once (5µs+0s) by IO::Compress::Zlib::Extra::BEGIN@5 at line 5 of IO/Compress/Zlib/Extra.pm # once (5µs+0s) by List::MoreUtils::PP::BEGIN@4 at line 4 of List/MoreUtils/PP.pm # once (5µs+0s) by JSON::PP::IncrParser::BEGIN@1506 at line 1506 of JSON/PP.pm # once (5µs+0s) by List::MoreUtils::BEGIN@4 at line 4 of List/MoreUtils.pm # once (5µs+0s) by Socket::BEGIN@3 at line 3 of Socket.pm # once (5µs+0s) by Types::Standard::BEGIN@4 at line 4 of Types/Standard.pm # once (4µs+0s) by Method::Generate::BuildAll::BEGIN@2 at line 2 of Method/Generate/BuildAll.pm # once (4µs+0s) by YAML::PP::BEGIN@1.292 at line 1 of YAML/PP/Dumper.pm # once (4µs+0s) by main::BEGIN@2.280 at line 2 of YAML/PP.pm # once (4µs+0s) by JSON::Schema::Modern::BEGIN@2 at line 2 of Path/Tiny.pm # once (4µs+0s) by YAML::PP::Loader::BEGIN@2.290 at line 2 of YAML/PP/Constructor.pm # once (4µs+0s) by Module::Load::BEGIN@1 at line 1 of YAML/PP/Schema/Core.pm # once (4µs+0s) by Time::HiRes::BEGIN@4 at line 4 of Time/HiRes.pm # once (4µs+0s) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm # once (4µs+0s) by IO::File::BEGIN@128 at line 128 of IO/File.pm # once (4µs+0s) by YAML::PP::Dumper::BEGIN@1.294 at line 1 of YAML/PP/Representer.pm # once (4µs+0s) by Package::Stash::BEGIN@2 at line 2 of Package/Stash.pm # once (4µs+0s) by MooX::TypeTiny::BEGIN@2 at line 2 of MooX/TypeTiny.pm # once (4µs+0s) by Module::Runtime::BEGIN@1.312 at line 1 of JSON/Schema/Modern/Vocabulary/FormatAssertion.pm # once (4µs+0s) by Digest::MD5::BEGIN@3 at line 3 of Digest/MD5.pm # once (4µs+0s) by PerlIO::encoding::BEGIN@3 at line 3 of PerlIO/encoding.pm # once (4µs+0s) by Tie::Array::BEGIN@4 at line 4 of Tie/Array.pm # once (4µs+0s) by parent::BEGIN@2 at line 2 of parent.pm # once (4µs+0s) by Module::Runtime::BEGIN@1.318 at line 1 of JSON/Schema/Modern/Vocabulary/MetaData.pm # once (4µs+0s) by attributes::BEGIN@9 at line 9 of attributes.pm # once (4µs+0s) by Module::Runtime::BEGIN@1.306 at line 1 of JSON/Schema/Modern/Vocabulary/Applicator.pm # once (4µs+0s) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm # once (4µs+0s) by Fcntl::BEGIN@58 at line 58 of Fcntl.pm # once (4µs+0s) by POSIX::BEGIN@2 at line 2 of POSIX.pm # once (4µs+0s) by Types::TypeTiny::BEGIN@4 at line 4 of Types/TypeTiny.pm # once (4µs+0s) by YAML::PP::Parser::BEGIN@1 at line 1 of YAML/PP/Lexer.pm # once (4µs+0s) by Module::Runtime::BEGIN@1.320 at line 1 of JSON/Schema/Modern/Vocabulary/OpenAPI.pm # once (4µs+0s) by Pod::Text::BEGIN@18 at line 18 of Pod/Text.pm # once (4µs+0s) by Moo::_Utils::BEGIN@1.304 at line 1 of JSON/Schema/Modern/Vocabulary.pm # once (4µs+0s) by Type::Library::BEGIN@4 at line 4 of Type/Library.pm # once (4µs+0s) by Type::Tiny::Union::BEGIN@4 at line 4 of Type/Tiny/Union.pm # once (4µs+0s) by Pod::Simple::LinkSection::BEGIN@6 at line 6 of Pod/Simple/LinkSection.pm # once (4µs+0s) by Moo::_Utils::BEGIN@1 at line 1 of Class/Method/Modifiers.pm # once (4µs+0s) by IO::Compress::Gzip::BEGIN@5 at line 5 of IO/Compress/Gzip.pm # once (4µs+0s) by YAML::PP::Parser::BEGIN@1.286 at line 1 of YAML/PP/Exception.pm # once (4µs+0s) by Module::Load::BEGIN@3 at line 3 of Module/Load.pm # once (4µs+0s) by main::BEGIN@1.2 at line 1 of OpenAPI/Modern.pm # once (4µs+0s) by Unicode::Normalize::BEGIN@4 at line 4 of Unicode/Normalize.pm # once (4µs+0s) by Moo::sification::BEGIN@2 at line 2 of Moo/sification.pm # once (4µs+0s) by Config::BEGIN@5 at line 5 of Config_heavy.pl # once (4µs+0s) by Exporter::Tiny::BEGIN@4 at line 4 of Exporter/Tiny.pm # once (4µs+0s) by overload::BEGIN@3 at line 3 of overload.pm # once (4µs+0s) by mro::BEGIN@10 at line 10 of mro.pm # once (4µs+0s) by Mojo::Util::BEGIN@15 at line 15 of Getopt/Long.pm # once (4µs+0s) by Params::Util::BEGIN@59 at line 59 of Params/Util.pm # once (4µs+0s) by Types::Standard::Dict::BEGIN@6 at line 6 of Types/Standard/Dict.pm # once (4µs+0s) by Params::Util::PP::BEGIN@3 at line 3 of Params/Util/PP.pm # once (3µs+0s) by Role::Tiny::BEGIN@2 at line 2 of Role/Tiny.pm # once (3µs+0s) by Encode::BEGIN@5 at line 5 of Encode.pm # once (3µs+0s) by Method::Generate::Constructor::BEGIN@2 at line 2 of Method/Generate/Constructor.pm # once (3µs+0s) by Package::Stash::XS::BEGIN@2 at line 2 of Package/Stash/XS.pm # once (3µs+0s) by Sub::Util::BEGIN@7 at line 7 of Sub/Util.pm # once (3µs+0s) by Module::Runtime::BEGIN@1.310 at line 1 of JSON/Schema/Modern/Vocabulary/Validation.pm # once (3µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@3 at line 3 of IO/Uncompress/Adapter/Inflate.pm # once (3µs+0s) by YAML::PP::Parser::BEGIN@2.288 at line 2 of YAML/PP/Reader.pm # once (3µs+0s) by Role::Tiny::With::BEGIN@3 at line 3 of Role/Tiny/With.pm # once (3µs+0s) by Safe::Isa::BEGIN@3 at line 3 of Safe/Isa.pm # once (3µs+0s) by IO::BEGIN@7 at line 7 of IO.pm # once (3µs+0s) by constant::BEGIN@3 at line 3 of constant.pm # once (3µs+0s) by utf8::BEGIN@3 at line 3 of utf8.pm # once (3µs+0s) by YAML::PP::Loader::BEGIN@2 at line 2 of YAML/PP/Parser.pm # once (3µs+0s) by JSON::Schema::Modern::BEGIN@1.110 at line 1 of JSON/Schema/Modern/Document.pm # once (3µs+0s) by Variable::Magic::BEGIN@5 at line 5 of Variable/Magic.pm # once (3µs+0s) by Module::Runtime::BEGIN@1.316 at line 1 of JSON/Schema/Modern/Vocabulary/Content.pm # once (3µs+0s) by JSON::Schema::Modern::BEGIN@1.81 at line 1 of JSON/Schema/Modern/Result.pm # once (3µs+0s) by Data::Dumper::BEGIN@12 at line 12 of Data/Dumper.pm # once (3µs+0s) by bytes::BEGIN@3 at line 3 of bytes.pm # once (3µs+0s) by IO::Compress::Adapter::Deflate::BEGIN@3 at line 3 of IO/Compress/Adapter/Deflate.pm # once (3µs+0s) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm # once (3µs+0s) by IO::Compress::Gzip::Constants::BEGIN@3 at line 3 of IO/Compress/Gzip/Constants.pm # once (3µs+0s) by Sub::Exporter::Progressive::BEGIN@3 at line 3 of Sub/Exporter/Progressive.pm # once (3µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@1 at line 1 of Sub/Install.pm # once (3µs+0s) by JSON::Schema::Modern::BEGIN@1.66 at line 1 of JSON/Schema/Modern/Error.pm # once (3µs+0s) by Module::Runtime::BEGIN@1 at line 1 of JSON/Schema/Modern/Vocabulary/Core.pm # once (3µs+0s) by Types::Standard::Tuple::BEGIN@6 at line 6 of Types/Standard/Tuple.pm # once (3µs+0s) by Method::Generate::Accessor::BEGIN@2 at line 2 of Method/Generate/Accessor.pm # once (3µs+0s) by Digest::SHA::BEGIN@5 at line 5 of Digest/SHA.pm # once (3µs+0s) by JSON::Schema::Modern::Result::BEGIN@1 at line 1 of JSON/Schema/Modern/Annotation.pm # once (3µs+0s) by Symbol::BEGIN@3 at line 3 of Symbol.pm # once (3µs+0s) by Type::Tiny::Class::BEGIN@4 at line 4 of Type/Tiny/Class.pm # once (3µs+0s) by Sub::Quote::BEGIN@5 at line 5 of Sub/Quote.pm # once (3µs+0s) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm # once (3µs+0s) by Type::Coercion::BEGIN@4 at line 4 of Type/Coercion.pm # once (3µs+0s) by Pod::Simple::BEGIN@4 at line 4 of Pod/Simple.pm # once (3µs+0s) by Types::Standard::ArrayRef::BEGIN@6 at line 6 of Types/Standard/ArrayRef.pm # once (3µs+0s) by Module::Implementation::BEGIN@5 at line 5 of Module/Implementation.pm # once (3µs+0s) by YAML::PP::Lexer::BEGIN@1 at line 1 of YAML/PP/Grammar.pm # once (3µs+0s) by OpenAPI::Modern::BEGIN@1.241 at line 1 of JSON/Schema/Modern/Document/OpenAPI.pm # once (3µs+0s) by Moo::Role::BEGIN@2 at line 2 of Moo/Role.pm # once (3µs+0s) by version::regex::BEGIN@3 at line 3 of version/regex.pm # once (3µs+0s) by IO::Compress::Base::Common::BEGIN@520 at line 520 of IO/Compress/Base/Common.pm # once (3µs+0s) by Pod::Usage::BEGIN@13 at line 13 of Pod/Usage.pm # once (3µs+0s) by YAML::PP::BEGIN@2.284 at line 2 of YAML/PP/Loader.pm # once (3µs+0s) by Types::Standard::Map::BEGIN@6 at line 6 of Types/Standard/Map.pm # once (3µs+0s) by File::ShareDir::BEGIN@121 at line 121 of File/ShareDir.pm # once (3µs+0s) by JSON::Schema::Modern::BEGIN@1.158 at line 1 of JSON/Schema/Modern/Utilities.pm # once (3µs+0s) by Eval::TypeTiny::BEGIN@3 at line 3 of Eval/TypeTiny.pm # once (3µs+0s) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm # once (3µs+0s) by Moo::Object::BEGIN@2 at line 2 of Moo/Object.pm # once (3µs+0s) by YAML::PP::Parser::BEGIN@2 at line 2 of YAML/PP/Render.pm # once (3µs+0s) by B::Hooks::EndOfScope::XS::BEGIN@4 at line 4 of B/Hooks/EndOfScope/XS.pm # once (3µs+0s) by Pod::Simple::BEGIN@2 at line 2 of Pod/Simple/TiedOutFH.pm # once (3µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@1.308 at line 1 of JSON/Schema/Modern/Vocabulary/Unevaluated.pm # once (3µs+0s) by if::BEGIN@2 at line 2 of if.pm # once (2µs+0s) by YAML::PP::Dumper::BEGIN@1.297 at line 1 of YAML/PP/Writer/File.pm # once (2µs+0s) by Sub::Defer::BEGIN@2 at line 2 of Sub/Defer.pm # once (2µs+0s) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm # once (2µs+0s) by Type::Tiny::ConstrainedObject::BEGIN@4 at line 4 of Type/Tiny/ConstrainedObject.pm # once (2µs+0s) by IO::Uncompress::Gunzip::BEGIN@8 at line 8 of IO/Uncompress/Gunzip.pm # once (2µs+0s) by IO::Seekable::BEGIN@99 at line 99 of IO/Seekable.pm # once (2µs+0s) by IO::Uncompress::Base::BEGIN@4 at line 4 of IO/Uncompress/Base.pm # once (2µs+0s) by IO::Uncompress::RawInflate::BEGIN@4 at line 4 of IO/Uncompress/RawInflate.pm # once (2µs+0s) by IO::Handle::BEGIN@264 at line 264 of IO/Handle.pm # once (2µs+0s) by B::Hooks::EndOfScope::BEGIN@5 at line 5 of B/Hooks/EndOfScope.pm # once (2µs+0s) by List::MoreUtils::XS::BEGIN@4 at line 4 of List/MoreUtils/XS.pm # once (2µs+0s) by File::GlobMapper::BEGIN@3 at line 3 of File/GlobMapper.pm # once (2µs+0s) by URI::Escape::BEGIN@3 at line 3 of URI/Escape.pm # once (2µs+0s) by IO::Poll::BEGIN@10 at line 10 of IO/Poll.pm # once (2µs+0s) by Config::BEGIN@9 at line 9 of Config.pm # once (2µs+0s) by JSON::MaybeXS::BEGIN@3 at line 3 of JSON/MaybeXS.pm # once (2µs+0s) by Ref::Util::XS::BEGIN@4 at line 4 of Ref/Util/XS.pm # once (2µs+0s) by OpenAPI::Modern::BEGIN@1 at line 1 of JSON/Schema/Modern.pm # once (2µs+0s) by re::BEGIN@4 at line 4 of re.pm # once (2µs+0s) by Ref::Util::BEGIN@4 at line 4 of Ref/Util.pm # once (2µs+0s) by Symbol::BEGIN@167 at line 167 of Symbol.pm # once (2µs+0s) by Type::Tiny::Duck::BEGIN@4 at line 4 of Type/Tiny/Duck.pm # once (2µs+0s) by version::BEGIN@5 at line 5 of version.pm # once (2µs+0s) by Compress::Raw::Zlib::BEGIN@8 at line 8 of Compress/Raw/Zlib.pm # once (2µs+0s) by IO::Compress::Base::Common::BEGIN@3 at line 3 of IO/Compress/Base/Common.pm # once (2µs+0s) by YAML::PP::Dumper::BEGIN@1 at line 1 of YAML/PP/Emitter.pm # once (2µs+0s) by File::Basename::BEGIN@50 at line 50 of File/Basename.pm # once (2µs+0s) by File::Glob::BEGIN@3 at line 3 of File/Glob.pm # once (2µs+0s) by JSON::PP::BEGIN@6 at line 6 of JSON/PP.pm # once (2µs+0s) by Pod::Escapes::BEGIN@2 at line 2 of Pod/Escapes.pm # once (2µs+0s) by YAML::PP::Dumper::BEGIN@2.296 at line 2 of YAML/PP/Writer.pm # once (2µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm # once (2µs+0s) by experimental::BEGIN@3 at line 3 of experimental.pm # once (2µs+0s) by Exporter::BEGIN@3 at line 3 of Exporter.pm # once (2µs+0s) by Moo::_Utils::BEGIN@2 at line 2 of Moo/_Utils.pm # once (2µs+0s) by Pod::Simple::BlackBox::BEGIN@22 at line 22 of Pod/Simple/BlackBox.pm # once (2µs+0s) by Cwd::BEGIN@2 at line 2 of Cwd.pm # once (2µs+0s) by namespace::clean::_Util::BEGIN@13 at line 13 of namespace/clean/_Util.pm # once (2µs+0s) by Carp::BEGIN@4 at line 4 of Carp.pm # once (2µs+0s) by Types::Standard::HashRef::BEGIN@6 at line 6 of Types/Standard/HashRef.pm # once (2µs+0s) by List::Util::BEGIN@9 at line 9 of List/Util.pm # once (2µs+0s) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm # once (2µs+0s) by strictures::BEGIN@3 at line 3 of strictures.pm # once (2µs+0s) by IO::Compress::RawDeflate::BEGIN@5 at line 5 of IO/Compress/RawDeflate.pm # once (2µs+0s) by IO::Compress::Base::BEGIN@6 at line 6 of IO/Compress/Base.pm # once (1µs+0s) by namespace::clean::BEGIN@4 at line 4 of namespace/clean.pm # once (1µs+0s) by Sub::Exporter::Progressive::BEGIN@26 at line 26 of Sub/Exporter/Progressive.pm # once (1µs+0s) by Try::Tiny::BEGIN@7 at line 7 of Try/Tiny.pm # once (1µs+0s) by Pod::Simple::BEGIN@1521 at line 1521 of Pod/Simple.pm # once (1µs+0s) by List::MoreUtils::BEGIN@64 at line 64 of List/MoreUtils.pm # once (1µs+0s) by List::MoreUtils::BEGIN@134 at line 134 of List/MoreUtils.pm
sub import {
61 shift;
62 $^H |= @_ ? &bits : all_bits | all_explicit_bits;
63}
64
65
# spent 595µs within strict::unimport which was called 90 times, avg 7µs/call: # once (43µs+0s) by Types::Standard::BEGIN@2 at line 2 of (eval 46)[Types/Standard.pm:48] # once (14µs+0s) by Type::Tiny::BEGIN@1435 at line 1435 of Type/Tiny.pm # once (14µs+0s) by List::MoreUtils::PP::BEGIN@129 at line 129 of List/MoreUtils/PP.pm # once (14µs+0s) by Sub::Quote::BEGIN@348 at line 348 of Sub/Quote.pm # once (12µs+0s) by Class::Inspector::BEGIN@331 at line 331 of Class/Inspector.pm # once (12µs+0s) by Carp::BEGIN@730 at line 730 of Carp.pm # once (12µs+0s) by IO::Handle::BEGIN@609 at line 609 of IO/Handle.pm # once (12µs+0s) by Path::Tiny::BEGIN@1613 at line 1613 of Path/Tiny.pm # once (11µs+0s) by Cwd::BEGIN@638 at line 638 of Cwd.pm # once (11µs+0s) by Compress::Raw::Zlib::BEGIN@113 at line 113 of Compress/Raw/Zlib.pm # once (11µs+0s) by Pod::Simple::BEGIN@1517 at line 1517 of Pod/Simple.pm # once (10µs+0s) by Mojo::Util::BEGIN@532 at line 532 of Mojo/Util.pm # once (9µs+0s) by parent::BEGIN@21 at line 21 of parent.pm # once (9µs+0s) by Exporter::Tiny::BEGIN@69 at line 69 of Exporter/Tiny.pm # once (9µs+0s) by B::BEGIN@268 at line 268 of B.pm # once (9µs+0s) by Type::Library::BEGIN@188 at line 188 of Type/Library.pm # once (9µs+0s) by Types::TypeTiny::BEGIN@68 at line 68 of Types/TypeTiny.pm # once (8µs+0s) by overload::BEGIN@4 at line 4 of overload.pm # once (8µs+0s) by JSON::MaybeXS::BEGIN@32 at line 32 of JSON/MaybeXS.pm # once (8µs+0s) by Moo::_Utils::BEGIN@141 at line 141 of Moo/_Utils.pm # once (8µs+0s) by Type::Tiny::BEGIN@71 at line 71 of Type/Tiny.pm # once (8µs+0s) by Socket::BEGIN@842 at line 842 of Socket.pm # once (8µs+0s) by File::ShareDir::BEGIN@411 at line 411 of File/ShareDir.pm # once (8µs+0s) by Mojo::Util::BEGIN@203 at line 203 of Mojo/Util.pm # once (8µs+0s) by List::MoreUtils::PP::BEGIN@870 at line 870 of List/MoreUtils/PP.pm # once (8µs+0s) by Module::Implementation::BEGIN@128 at line 128 of Module/Implementation.pm # once (7µs+0s) by Type::Tiny::Class::BEGIN@164 at line 164 of Type/Tiny/Class.pm # once (7µs+0s) by File::Spec::Unix::BEGIN@167 at line 167 of File/Spec/Unix.pm # once (7µs+0s) by Mojo::Base::BEGIN@45 at line 45 of Mojo/Base.pm # once (7µs+0s) by Mojo::Base::BEGIN@133 at line 133 of Mojo/Base.pm # once (7µs+0s) by Config::BEGIN@47 at line 47 of Config.pm # once (7µs+0s) by Moo::_Utils::BEGIN@278 at line 278 of Moo/_Utils.pm # once (7µs+0s) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm # once (7µs+0s) by Time::HiRes::BEGIN@70 at line 70 of Time/HiRes.pm # once (7µs+0s) by Role::Tiny::BEGIN@24 at line 24 of Role/Tiny.pm # once (6µs+0s) by Symbol::BEGIN@103 at line 103 of Symbol.pm # once (6µs+0s) by Params::Util::BEGIN@85 at line 85 of Params/Util.pm # once (6µs+0s) by Carp::BEGIN@751 at line 751 of Carp.pm # once (6µs+0s) by Carp::BEGIN@256 at line 256 of Carp.pm # once (6µs+0s) by Sub::Exporter::Progressive::BEGIN@20 at line 20 of Sub/Exporter/Progressive.pm # once (6µs+0s) by Moo::_Utils::BEGIN@6 at line 6 of Moo/_Utils.pm # once (6µs+0s) by Module::Load::BEGIN@89 at line 89 of Module/Load.pm # once (6µs+0s) by Socket::BEGIN@941 at line 941 of Socket.pm # once (6µs+0s) by Class::Method::Modifiers::BEGIN@54 at line 54 of Class/Method/Modifiers.pm # once (6µs+0s) by Type::Library::BEGIN@284 at line 284 of Type/Library.pm # once (6µs+0s) by constant::BEGIN@40 at line 40 of constant.pm # once (6µs+0s) by Types::TypeTiny::BEGIN@98 at line 98 of Types/TypeTiny.pm # once (6µs+0s) by version::BEGIN@27 at line 27 of version.pm # once (5µs+0s) by List::Util::BEGIN@35 at line 35 of List/Util.pm # once (5µs+0s) by Ref::Util::BEGIN@25 at line 25 of Ref/Util.pm # once (5µs+0s) by Symbol::BEGIN@137 at line 137 of Symbol.pm # once (5µs+0s) by Exporter::Tiny::BEGIN@347 at line 347 of Exporter/Tiny.pm # once (5µs+0s) by Ref::Util::XS::BEGIN@47 at line 47 of Ref/Util/XS.pm # once (5µs+0s) by Sub::Install::BEGIN@170 at line 170 of Sub/Install.pm # once (5µs+0s) by Module::Load::BEGIN@14 at line 14 of Module/Load.pm # once (5µs+0s) by Moo::BEGIN@70 at line 70 of Moo.pm # once (5µs+0s) by List::MoreUtils::PP::BEGIN@421 at line 421 of List/MoreUtils/PP.pm # once (5µs+0s) by List::MoreUtils::PP::BEGIN@154 at line 154 of List/MoreUtils/PP.pm # once (5µs+0s) by MooX::HandlesVia::BEGIN@25 at line 25 of MooX/HandlesVia.pm # once (5µs+0s) by Sub::Defer::BEGIN@14 at line 14 of Sub/Defer.pm # once (4µs+0s) by Class::Inspector::BEGIN@344 at line 344 of Class/Inspector.pm # once (4µs+0s) by Carp::BEGIN@188 at line 188 of Carp.pm # once (4µs+0s) by Exporter::Tiny::BEGIN@236 at line 236 of Exporter/Tiny.pm # once (4µs+0s) by Exporter::Tiny::BEGIN@396 at line 396 of Exporter/Tiny.pm # once (4µs+0s) by Exporter::Tiny::BEGIN@190 at line 190 of Exporter/Tiny.pm # once (4µs+0s) by Exporter::BEGIN@4 at line 4 of Exporter.pm # once (4µs+0s) by List::MoreUtils::BEGIN@54 at line 54 of List/MoreUtils.pm # once (4µs+0s) by Class::Method::Modifiers::BEGIN@196 at line 196 of Class/Method/Modifiers.pm # once (4µs+0s) by Moo::BEGIN@275 at line 275 of Moo.pm # once (4µs+0s) by Moo::BEGIN@180 at line 180 of Moo.pm # once (4µs+0s) by Type::Library::BEGIN@207 at line 207 of Type/Library.pm # once (4µs+0s) by Type::Library::BEGIN@314 at line 314 of Type/Library.pm # once (4µs+0s) by Type::Library::BEGIN@232 at line 232 of Type/Library.pm # once (4µs+0s) by File::Glob::BEGIN@54 at line 54 of File/Glob.pm # once (4µs+0s) by Role::Tiny::BEGIN@65 at line 65 of Role/Tiny.pm # once (3µs+0s) by Type::Tiny::Class::BEGIN@185 at line 185 of Type/Tiny/Class.pm # once (3µs+0s) by Symbol::BEGIN@156 at line 156 of Symbol.pm # once (3µs+0s) by List::MoreUtils::BEGIN@129 at line 129 of List/MoreUtils.pm # once (3µs+0s) by Class::Method::Modifiers::BEGIN@145 at line 145 of Class/Method/Modifiers.pm # once (3µs+0s) by Moo::BEGIN@230 at line 230 of Moo.pm # once (3µs+0s) by constant::BEGIN@65 at line 65 of constant.pm # once (3µs+0s) by List::MoreUtils::PP::BEGIN@179 at line 179 of List/MoreUtils/PP.pm # once (3µs+0s) by POSIX::BEGIN@225 at line 225 of POSIX.pm # once (3µs+0s) by Types::TypeTiny::BEGIN@114 at line 114 of Types/TypeTiny.pm # once (3µs+0s) by Types::TypeTiny::BEGIN@124 at line 124 of Types/TypeTiny.pm # once (3µs+0s) by Role::Tiny::BEGIN@25 at line 25 of Role/Tiny.pm # once (2µs+0s) by Exporter::Tiny::BEGIN@253 at line 253 of Exporter/Tiny.pm # once (2µs+0s) by Exporter::Tiny::BEGIN@217 at line 217 of Exporter/Tiny.pm # once (2µs+0s) by constant::BEGIN@141 at line 141 of constant.pm # once (2µs+0s) by constant::BEGIN@90 at line 90 of constant.pm
sub unimport {
66 shift;
67
68 if (@_) {
69 $^H &= ~&bits;
70 }
71 else {
72 $^H &= ~all_bits;
73 $^H |= all_explicit_bits;
74 }
75}
76
771;
78__END__
79
80=head1 NAME
81
82strict - Perl pragma to restrict unsafe constructs
83
84=head1 SYNOPSIS
85
86 use strict;
87
88 use strict "vars";
89 use strict "refs";
90 use strict "subs";
91
92 use strict;
93 no strict "vars";
94
95=head1 DESCRIPTION
96
97The C<strict> pragma disables certain Perl expressions that could behave
98unexpectedly or are difficult to debug, turning them into errors. The
99effect of this pragma is limited to the current file or scope block.
100
101If no import list is supplied, all possible restrictions are assumed.
102(This is the safest mode to operate in, but is sometimes too strict for
103casual programming.) Currently, there are three possible things to be
104strict about: "subs", "vars", and "refs".
105
106=over 6
107
108=item C<strict refs>
109
110This generates a runtime error if you
111use symbolic references (see L<perlref>).
112
113 use strict 'refs';
114 $ref = \$foo;
115 print $$ref; # ok
116 $ref = "foo";
117 print $$ref; # runtime error; normally ok
118 $file = "STDOUT";
119 print $file "Hi!"; # error; note: no comma after $file
120
121There is one exception to this rule:
122
123 $bar = \&{'foo'};
124 &$bar;
125
126is allowed so that C<goto &$AUTOLOAD> would not break under stricture.
127
128
129=item C<strict vars>
130
131This generates a compile-time error if you access a variable that was
132neither explicitly declared (using any of C<my>, C<our>, C<state>, or C<use
133vars>) nor fully qualified. (Because this is to avoid variable suicide
134problems and subtle dynamic scoping issues, a merely C<local> variable isn't
135good enough.) See L<perlfunc/my>, L<perlfunc/our>, L<perlfunc/state>,
136L<perlfunc/local>, and L<vars>.
137
138 use strict 'vars';
139 $X::foo = 1; # ok, fully qualified
140 my $foo = 10; # ok, my() var
141 local $baz = 9; # blows up, $baz not declared before
142
143 package Cinna;
144 our $bar; # Declares $bar in current package
145 $bar = 'HgS'; # ok, global declared via pragma
146
147The local() generated a compile-time error because you just touched a global
148name without fully qualifying it.
149
150Because of their special use by sort(), the variables $a and $b are
151exempted from this check.
152
153=item C<strict subs>
154
155This disables the poetry optimization, generating a compile-time error if
156you try to use a bareword identifier that's not a subroutine, unless it
157is a simple identifier (no colons) and that it appears in curly braces,
158on the left hand side of the C<< => >> symbol, or has the unary minus
159operator applied to it.
160
161 use strict 'subs';
162 $SIG{PIPE} = Plumber; # blows up
163 $SIG{PIPE} = "Plumber"; # fine: quoted string is always ok
164 $SIG{PIPE} = \&Plumber; # preferred form
165
166=back
167
168See L<perlmodlib/Pragmatic Modules>.
169
170=head1 HISTORY
171
172C<strict 'subs'>, with Perl 5.6.1, erroneously permitted to use an unquoted
173compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or
174inside curlies), but without forcing it always to a literal string.
175
176Starting with Perl 5.8.1 strict is strict about its restrictions:
177if unknown restrictions are used, the strict pragma will abort with
178
179 Unknown 'strict' tag(s) '...'
180
181As of version 1.04 (Perl 5.10), strict verifies that it is used as
182"strict" to avoid the dreaded Strict trap on case insensitive file
183systems.
184
185=cut
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.