Profile of strict.pm

Filename	/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/strict.pm
Statements	Executed 0 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
226	182	169	692µs	692µs	strict::::importstrict::import
90	90	48	658µs	658µs	strict::::unimportstrict::unimport
0	0	0	0s	0s	strict::::BEGINstrict::BEGIN
0	0	0	0s	0s	strict::::__ANON__[:31]strict::__ANON__[:31]
0	0	0	0s	0s	strict::::__ANON__[:37]strict::__ANON__[:37]
0	0	0	0s	0s	strict::::bitsstrict::bits

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package strict;
2
3					$strict::VERSION = "1.12";
4
5					my ( %bitmask, %explicit_bitmask );
6
7					BEGIN {
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
40					sub 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 692µs within strict::import which was called 226 times, avg 3µs/call: # 18 times (18µs+0s) by strictures::_enable_2 at line 169 of strictures.pm, avg 1µs/call # 17 times (31µs+0s) by Moo::import at line 46 of Moo.pm, avg 2µs/call # 6 times (16µs+0s) by Mojo::Base::import at line 102 of Mojo/Base.pm, avg 3µs/call # 4 times (8µs+0s) by strictures::_enable_1 at line 139 of strictures.pm, avg 2µs/call # 4 times (6µs+0s) by Role::Tiny::import at line 84 of Role/Tiny.pm, avg 2µs/call # once (29µs+0s) by Unicode::Normalize::BEGIN@4 at line 4 of Unicode/Normalize.pm # once (22µs+0s) by Sub::Util::BEGIN@7 at line 7 of Sub/Util.pm # once (12µs+0s) by Eval::TypeTiny::BEGIN@3 at line 3 of Eval/TypeTiny.pm # once (10µs+0s) by Exporter::Tiny::BEGIN@4 at line 4 of Exporter/Tiny.pm # once (8µs+0s) by JSON::PP::BEGIN@6 at line 6 of JSON/PP.pm # once (7µs+0s) by vars::BEGIN@8 at line 8 of vars.pm # once (6µs+0s) by YAML::PP::Dumper::BEGIN@2.297 at line 2 of YAML/PP/Writer.pm # once (6µs+0s) by YAML::PP::Parser::BEGIN@1.287 at line 1 of YAML/PP/Exception.pm # once (6µs+0s) by base::BEGIN@4 at line 4 of base.pm # once (6µs+0s) by Class::Inspector::BEGIN@6 at line 6 of Class/Inspector.pm # once (6µs+0s) by Module::Load::BEGIN@1 at line 1 of YAML/PP/Schema/Core.pm # once (6µs+0s) by Tie::Array::BEGIN@4 at line 4 of Tie/Array.pm # once (5µs+0s) by attributes::BEGIN@9 at line 9 of attributes.pm # once (5µs+0s) by overload::BEGIN@3 at line 3 of overload.pm # once (5µs+0s) by Moo::_Utils::BEGIN@1 at line 1 of Class/Method/Modifiers.pm # once (5µs+0s) by Pod::Simple::LinkSection::BEGIN@6 at line 6 of Pod/Simple/LinkSection.pm # once (5µs+0s) by YAML::PP::Dumper::BEGIN@1.295 at line 1 of YAML/PP/Representer.pm # once (5µs+0s) by Mojo::Base::BEGIN@3 at line 3 of Mojo/Base.pm # once (5µs+0s) by Moo::_Utils::BEGIN@1.305 at line 1 of JSON/Schema/Modern/Vocabulary.pm # once (5µs+0s) by YAML::PP::Dumper::BEGIN@1 at line 1 of YAML/PP/Emitter.pm # once (4µs+0s) by YAML::PP::Parser::BEGIN@2.289 at line 2 of YAML/PP/Reader.pm # once (4µs+0s) by IO::Compress::Gzip::BEGIN@5 at line 5 of IO/Compress/Gzip.pm # once (4µs+0s) by Config::BEGIN@9 at line 9 of Config.pm # once (4µs+0s) by Symbol::BEGIN@167 at line 167 of Symbol.pm # once (4µs+0s) by YAML::PP::BEGIN@1.283 at line 1 of YAML/PP/Schema/JSON.pm # once (4µs+0s) by JSON::Schema::Modern::BEGIN@2 at line 2 of Path/Tiny.pm # once (4µs+0s) by Digest::MD5::BEGIN@3 at line 3 of Digest/MD5.pm # once (4µs+0s) by B::Hooks::EndOfScope::BEGIN@5 at line 5 of B/Hooks/EndOfScope.pm # once (4µs+0s) by Ref::Util::XS::BEGIN@4 at line 4 of Ref/Util/XS.pm # once (4µs+0s) by Pod::Simple::BEGIN@2 at line 2 of Pod/Simple/TiedOutFH.pm # once (4µs+0s) by YAML::PP::Loader::BEGIN@2.291 at line 2 of YAML/PP/Constructor.pm # once (4µs+0s) by Ref::Util::BEGIN@4 at line 4 of Ref/Util.pm # once (4µs+0s) by Method::Generate::Constructor::BEGIN@2 at line 2 of Method/Generate/Constructor.pm # once (4µs+0s) by IO::Uncompress::Adapter::Inflate::BEGIN@3 at line 3 of IO/Uncompress/Adapter/Inflate.pm # once (4µs+0s) by Moo::Role::BEGIN@2 at line 2 of Moo/Role.pm # once (4µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@1 at line 1 of Sub/Install.pm # once (4µs+0s) by Method::Generate::BuildAll::BEGIN@2 at line 2 of Method/Generate/BuildAll.pm # once (4µs+0s) by constant::BEGIN@3 at line 3 of constant.pm # once (4µs+0s) by IO::Compress::Gzip::Constants::BEGIN@3 at line 3 of IO/Compress/Gzip/Constants.pm # once (4µs+0s) by Pod::Text::BEGIN@18 at line 18 of Pod/Text.pm # once (4µs+0s) by Encode::MIME::Name::BEGIN@2 at line 2 of Encode/MIME/Name.pm # once (4µs+0s) by MIME::Base64::BEGIN@3 at line 3 of MIME/Base64.pm # once (4µs+0s) by YAML::PP::Schema::BEGIN@1 at line 1 of YAML/PP/Common.pm # once (4µs+0s) by IO::Seekable::BEGIN@99 at line 99 of IO/Seekable.pm # once (4µs+0s) by Type::Coercion::BEGIN@4 at line 4 of Type/Coercion.pm # once (4µs+0s) by Fcntl::BEGIN@58 at line 58 of Fcntl.pm # once (4µs+0s) by IO::File::BEGIN@128 at line 128 of IO/File.pm # once (4µs+0s) by IO::Compress::Adapter::Deflate::BEGIN@3 at line 3 of IO/Compress/Adapter/Deflate.pm # once (4µs+0s) by Params::Util::BEGIN@87 at line 87 of Params/Util.pm # once (4µs+0s) by Params::Util::BEGIN@59 at line 59 of Params/Util.pm # once (4µs+0s) by Safe::Isa::BEGIN@3 at line 3 of Safe/Isa.pm # once (4µs+0s) by main::BEGIN@1 at line 1 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-om-0.037/../prof.pl # once (4µs+0s) by IO::Uncompress::Base::BEGIN@4 at line 4 of IO/Uncompress/Base.pm # once (4µs+0s) by experimental::BEGIN@3 at line 3 of experimental.pm # once (4µs+0s) by YAML::PP::Dumper::BEGIN@1.298 at line 1 of YAML/PP/Writer/File.pm # once (4µs+0s) by YAML::PP::BEGIN@2.285 at line 2 of YAML/PP/Loader.pm # once (4µs+0s) by Module::Runtime::BEGIN@1.311 at line 1 of JSON/Schema/Modern/Vocabulary/Validation.pm # once (4µs+0s) by Module::Implementation::BEGIN@5 at line 5 of Module/Implementation.pm # once (4µs+0s) by Type::Tiny::Duck::BEGIN@4 at line 4 of Type/Tiny/Duck.pm # once (4µs+0s) by parent::BEGIN@2 at line 2 of parent.pm # once (4µs+0s) by MooX::TypeTiny::BEGIN@2 at line 2 of MooX/TypeTiny.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 Pod::Usage::BEGIN@13 at line 13 of Pod/Usage.pm # once (3µs+0s) by JSON::Schema::Modern::Vocabulary::Applicator::BEGIN@1.309 at line 1 of JSON/Schema/Modern/Vocabulary/Unevaluated.pm # once (3µs+0s) by Sub::Quote::BEGIN@5 at line 5 of Sub/Quote.pm # once (3µs+0s) by JSON::PP::Boolean::BEGIN@3 at line 3 of JSON/PP/Boolean.pm # once (3µs+0s) by Type::Tiny::Union::BEGIN@4 at line 4 of Type/Tiny/Union.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 Symbol::BEGIN@3 at line 3 of Symbol.pm # once (3µs+0s) by Role::Tiny::With::BEGIN@3 at line 3 of Role/Tiny/With.pm # once (3µs+0s) by Exporter::Heavy::BEGIN@3 at line 3 of Exporter/Heavy.pm # once (3µs+0s) by Compress::Raw::Zlib::BEGIN@8 at line 8 of Compress/Raw/Zlib.pm # once (3µs+0s) by JSON::PP::IncrParser::BEGIN@1506 at line 1506 of JSON/PP.pm # once (3µs+0s) by Encode::BEGIN@5 at line 5 of Encode.pm # once (3µs+0s) by IO::Uncompress::Gunzip::BEGIN@8 at line 8 of IO/Uncompress/Gunzip.pm # once (3µs+0s) by IO::Poll::BEGIN@10 at line 10 of IO/Poll.pm # once (3µs+0s) by URI::Escape::BEGIN@3 at line 3 of URI/Escape.pm # once (3µs+0s) by Module::Runtime::BEGIN@1.319 at line 1 of JSON/Schema/Modern/Vocabulary/MetaData.pm # once (3µs+0s) by Pod::Simple::BEGIN@4 at line 4 of Pod/Simple.pm # once (3µs+0s) by Moo::_Utils::BEGIN@2 at line 2 of Moo/_Utils.pm # once (3µs+0s) by YAML::PP::Parser::BEGIN@1 at line 1 of YAML/PP/Lexer.pm # once (3µs+0s) by Encode::Encoding::BEGIN@4 at line 4 of Encode/Encoding.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 Method::Generate::Accessor::BEGIN@2 at line 2 of Method/Generate/Accessor.pm # once (3µs+0s) by Config::BEGIN@5 at line 5 of Config_heavy.pl # once (3µs+0s) by Module::Runtime::BEGIN@1.313 at line 1 of JSON/Schema/Modern/Vocabulary/FormatAssertion.pm # once (3µs+0s) by List::MoreUtils::BEGIN@4 at line 4 of List/MoreUtils.pm # once (3µs+0s) by YAML::PP::Parser::BEGIN@2 at line 2 of YAML/PP/Render.pm # once (3µs+0s) by IO::Compress::Zlib::Extra::BEGIN@5 at line 5 of IO/Compress/Zlib/Extra.pm # once (3µs+0s) by Module::Runtime::BEGIN@1.315 at line 1 of JSON/Schema/Modern/Vocabulary/FormatAnnotation.pm # once (3µs+0s) by bytes::BEGIN@3 at line 3 of bytes.pm # once (3µs+0s) by Types::Standard::ArrayRef::BEGIN@6 at line 6 of Types/Standard/ArrayRef.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 Type::Tiny::ConstrainedObject::BEGIN@4 at line 4 of Type/Tiny/ConstrainedObject.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 File::Basename::BEGIN@50 at line 50 of File/Basename.pm # once (3µs+0s) by main::BEGIN@2.281 at line 2 of YAML/PP.pm # once (3µs+0s) by Data::Dumper::BEGIN@12 at line 12 of Data/Dumper.pm # once (3µs+0s) by Mojo::Util::BEGIN@15 at line 15 of Getopt/Long.pm # once (3µs+0s) by POSIX::BEGIN@2 at line 2 of POSIX.pm # once (3µs+0s) by YAML::PP::BEGIN@1 at line 1 of YAML/PP/Schema.pm # once (3µs+0s) by Time::HiRes::BEGIN@4 at line 4 of Time/HiRes.pm # once (3µs+0s) by Params::Util::PP::BEGIN@3 at line 3 of Params/Util/PP.pm # once (3µs+0s) by File::ShareDir::BEGIN@121 at line 121 of File/ShareDir.pm # once (3µs+0s) by PerlIO::encoding::BEGIN@3 at line 3 of PerlIO/encoding.pm # once (3µs+0s) by Type::Tiny::Class::BEGIN@4 at line 4 of Type/Tiny/Class.pm # once (3µs+0s) by JSON::MaybeXS::BEGIN@3 at line 3 of JSON/MaybeXS.pm # once (3µs+0s) by mro::BEGIN@10 at line 10 of mro.pm # once (3µs+0s) by Types::Standard::BEGIN@4 at line 4 of Types/Standard.pm # once (3µs+0s) by Types::Standard::Dict::BEGIN@6 at line 6 of Types/Standard/Dict.pm # once (3µs+0s) by YAML::PP::BEGIN@1.293 at line 1 of YAML/PP/Dumper.pm # once (3µs+0s) by Package::Stash::BEGIN@2 at line 2 of Package/Stash.pm # once (3µs+0s) by Digest::SHA::BEGIN@5 at line 5 of Digest/SHA.pm # once (3µs+0s) by strictures::BEGIN@3 at line 3 of strictures.pm # once (3µs+0s) by if::BEGIN@2 at line 2 of if.pm # once (3µs+0s) by Types::Standard::Map::BEGIN@6 at line 6 of Types/Standard/Map.pm # once (3µs+0s) by Pod::Escapes::BEGIN@2 at line 2 of Pod/Escapes.pm # once (3µs+0s) by Sub::Exporter::Progressive::BEGIN@3 at line 3 of Sub/Exporter/Progressive.pm # once (3µs+0s) by Types::Standard::HashRef::BEGIN@6 at line 6 of Types/Standard/HashRef.pm # once (3µs+0s) by File::Glob::BEGIN@3 at line 3 of File/Glob.pm # once (3µs+0s) by Encode::Alias::BEGIN@2 at line 2 of Encode/Alias.pm # once (3µs+0s) by Module::Runtime::BEGIN@1.321 at line 1 of JSON/Schema/Modern/Vocabulary/OpenAPI.pm # once (3µs+0s) by Type::Tiny::BEGIN@4 at line 4 of Type/Tiny.pm # once (3µs+0s) by Socket::BEGIN@3 at line 3 of Socket.pm # once (3µs+0s) by MooX::HandlesVia::BEGIN@4 at line 4 of MooX/HandlesVia.pm # once (3µs+0s) by JSON::Schema::Modern::BEGIN@1.159 at line 1 of JSON/Schema/Modern/Utilities.pm # once (2µs+0s) by main::BEGIN@1.2 at line 1 of OpenAPI/Modern.pm # once (2µs+0s) by Role::Tiny::BEGIN@2 at line 2 of Role/Tiny.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 namespace::clean::BEGIN@4 at line 4 of namespace/clean.pm # once (2µs+0s) by JSON::Schema::Modern::BEGIN@1.113 at line 1 of JSON/Schema/Modern/Document.pm # once (2µs+0s) by Variable::Magic::BEGIN@5 at line 5 of Variable/Magic.pm # once (2µs+0s) by version::regex::BEGIN@3 at line 3 of version/regex.pm # once (2µs+0s) by Pod::Simple::BlackBox::BEGIN@22 at line 22 of Pod/Simple/BlackBox.pm # once (2µs+0s) by Module::Runtime::BEGIN@1 at line 1 of JSON/Schema/Modern/Vocabulary/Core.pm # once (2µs+0s) by Encode::Config::BEGIN@7 at line 7 of Encode/Config.pm # once (2µs+0s) by Type::Library::BEGIN@4 at line 4 of Type/Library.pm # once (2µs+0s) by Type::Tiny::Enum::BEGIN@4 at line 4 of Type/Tiny/Enum.pm # once (2µs+0s) by OpenAPI::Modern::BEGIN@1.242 at line 1 of JSON/Schema/Modern/Document/OpenAPI.pm # once (2µs+0s) by Pod::Simple::BEGIN@1521 at line 1521 of Pod/Simple.pm # once (2µs+0s) by Digest::base::BEGIN@3 at line 3 of Digest/base.pm # once (2µs+0s) by OpenAPI::Modern::BEGIN@1 at line 1 of JSON/Schema/Modern.pm # once (2µs+0s) by IO::Uncompress::RawInflate::BEGIN@4 at line 4 of IO/Uncompress/RawInflate.pm # once (2µs+0s) by File::GlobMapper::BEGIN@3 at line 3 of File/GlobMapper.pm # once (2µs+0s) by List::MoreUtils::BEGIN@134 at line 134 of List/MoreUtils.pm # once (2µs+0s) by YAML::PP::Lexer::BEGIN@1 at line 1 of YAML/PP/Grammar.pm # once (2µs+0s) by Exporter::BEGIN@3 at line 3 of Exporter.pm # once (2µs+0s) by Module::Runtime::BEGIN@1.317 at line 1 of JSON/Schema/Modern/Vocabulary/Content.pm # once (2µs+0s) by Types::Standard::Tuple::BEGIN@6 at line 6 of Types/Standard/Tuple.pm # once (2µs+0s) by Moo::BEGIN@2 at line 2 of Moo.pm # once (2µs+0s) by List::MoreUtils::PP::BEGIN@4 at line 4 of List/MoreUtils/PP.pm # once (2µs+0s) by IO::Compress::Base::BEGIN@6 at line 6 of IO/Compress/Base.pm # once (2µs+0s) by utf8::BEGIN@3 at line 3 of utf8.pm # once (2µs+0s) by Moo::sification::BEGIN@2 at line 2 of Moo/sification.pm # once (2µs+0s) by IO::Handle::BEGIN@264 at line 264 of IO/Handle.pm # once (2µs+0s) by List::MoreUtils::XS::BEGIN@4 at line 4 of List/MoreUtils/XS.pm # once (2µs+0s) by YAML::PP::Loader::BEGIN@2 at line 2 of YAML/PP/Parser.pm # once (2µs+0s) by Module::Load::BEGIN@3 at line 3 of Module/Load.pm # once (2µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm # once (2µs+0s) by Carp::BEGIN@4 at line 4 of Carp.pm # once (2µs+0s) by Module::Runtime::BEGIN@1.307 at line 1 of JSON/Schema/Modern/Vocabulary/Applicator.pm # once (2µs+0s) by Moo::Object::BEGIN@2 at line 2 of Moo/Object.pm # once (2µs+0s) by Sub::Defer::BEGIN@2 at line 2 of Sub/Defer.pm # once (2µs+0s) by Sub::Exporter::Progressive::BEGIN@26 at line 26 of Sub/Exporter/Progressive.pm # once (2µs+0s) by IO::Compress::RawDeflate::BEGIN@5 at line 5 of IO/Compress/RawDeflate.pm # once (1µs+0s) by IO::BEGIN@7 at line 7 of IO.pm # once (1µs+0s) by Cwd::BEGIN@2 at line 2 of Cwd.pm # once (1µs+0s) by File::Spec::Unix::BEGIN@3 at line 3 of File/Spec/Unix.pm # once (1µs+0s) by List::MoreUtils::BEGIN@64 at line 64 of List/MoreUtils.pm # once (1µs+0s) by re::BEGIN@4 at line 4 of re.pm # once (1µs+0s) by List::Util::BEGIN@9 at line 9 of List/Util.pm # once (1µs+0s) by namespace::clean::_Util::BEGIN@13 at line 13 of namespace/clean/_Util.pm # once (1µs+0s) by Try::Tiny::BEGIN@7 at line 7 of Try/Tiny.pm # once (1µs+0s) by File::Spec::BEGIN@3 at line 3 of File/Spec.pm # once (1µs+0s) by version::BEGIN@5 at line 5 of version.pm # once (1µs+0s) by Package::Stash::XS::BEGIN@2 at line 2 of Package/Stash/XS.pm # once (1µs+0s) by Types::TypeTiny::BEGIN@4 at line 4 of Types/TypeTiny.pm sub import {
61					shift;
62					$^H \|= @_ ? &bits : all_bits \| all_explicit_bits;
63					}
64
65					# spent 658µs within strict::unimport which was called 90 times, avg 7µs/call: # once (41µs+0s) by Path::Tiny::BEGIN@1613 at line 1613 of Path/Tiny.pm # once (36µs+0s) by File::ShareDir::BEGIN@411 at line 411 of File/ShareDir.pm # once (24µs+0s) by Cwd::BEGIN@638 at line 638 of Cwd.pm # once (21µs+0s) by Class::Inspector::BEGIN@331 at line 331 of Class/Inspector.pm # once (18µs+0s) by Moo::BEGIN@70 at line 70 of Moo.pm # once (15µs+0s) by Type::Tiny::BEGIN@71 at line 71 of Type/Tiny.pm # once (13µs+0s) by Sub::Quote::BEGIN@348 at line 348 of Sub/Quote.pm # once (12µs+0s) by Exporter::Tiny::BEGIN@253 at line 253 of Exporter/Tiny.pm # once (11µs+0s) by Exporter::Tiny::BEGIN@69 at line 69 of Exporter/Tiny.pm # once (11µs+0s) by Mojo::Util::BEGIN@203 at line 203 of Mojo/Util.pm # once (11µs+0s) by IO::Handle::BEGIN@609 at line 609 of IO/Handle.pm # once (11µs+0s) by File::Spec::Unix::BEGIN@167 at line 167 of File/Spec/Unix.pm # once (10µs+0s) by Mojo::Util::BEGIN@532 at line 532 of Mojo/Util.pm # once (10µs+0s) by Type::Tiny::BEGIN@1435 at line 1435 of Type/Tiny.pm # once (10µs+0s) by parent::BEGIN@21 at line 21 of parent.pm # once (10µs+0s) by Class::Method::Modifiers::BEGIN@54 at line 54 of Class/Method/Modifiers.pm # once (10µs+0s) by Pod::Simple::BEGIN@1517 at line 1517 of Pod/Simple.pm # once (9µs+0s) by constant::BEGIN@40 at line 40 of constant.pm # once (9µs+0s) by Mojo::Base::BEGIN@45 at line 45 of Mojo/Base.pm # once (9µs+0s) by Symbol::BEGIN@103 at line 103 of Symbol.pm # once (9µs+0s) by Params::Util::BEGIN@85 at line 85 of Params/Util.pm # once (9µs+0s) by version::BEGIN@27 at line 27 of version.pm # once (9µs+0s) by Compress::Raw::Zlib::BEGIN@113 at line 113 of Compress/Raw/Zlib.pm # once (8µs+0s) by constant::BEGIN@65 at line 65 of constant.pm # once (8µs+0s) by Mojo::Base::BEGIN@133 at line 133 of Mojo/Base.pm # once (8µs+0s) by List::MoreUtils::PP::BEGIN@870 at line 870 of List/MoreUtils/PP.pm # once (8µs+0s) by Exporter::Heavy::BEGIN@4 at line 4 of Exporter/Heavy.pm # once (8µs+0s) by B::BEGIN@268 at line 268 of B.pm # once (8µs+0s) by Role::Tiny::BEGIN@24 at line 24 of Role/Tiny.pm # once (8µs+0s) by Type::Library::BEGIN@284 at line 284 of Type/Library.pm # once (8µs+0s) by Moo::_Utils::BEGIN@278 at line 278 of Moo/_Utils.pm # once (7µs+0s) by Sub::Install::BEGIN@170 at line 170 of Sub/Install.pm # once (7µs+0s) by Types::TypeTiny::BEGIN@68 at line 68 of Types/TypeTiny.pm # once (7µs+0s) by Types::Standard::BEGIN@2 at line 2 of (eval 46)[Types/Standard.pm:48] # once (7µs+0s) by Type::Library::BEGIN@188 at line 188 of Type/Library.pm # once (7µs+0s) by Ref::Util::BEGIN@25 at line 25 of Ref/Util.pm # once (7µs+0s) by Moo::_Utils::BEGIN@6 at line 6 of Moo/_Utils.pm # once (7µs+0s) by Ref::Util::XS::BEGIN@47 at line 47 of Ref/Util/XS.pm # once (6µs+0s) by Module::Implementation::BEGIN@128 at line 128 of Module/Implementation.pm # once (6µs+0s) by Exporter::Tiny::BEGIN@190 at line 190 of Exporter/Tiny.pm # once (6µs+0s) by Socket::BEGIN@842 at line 842 of Socket.pm # once (6µs+0s) by MooX::HandlesVia::BEGIN@25 at line 25 of MooX/HandlesVia.pm # once (6µs+0s) by List::MoreUtils::PP::BEGIN@129 at line 129 of List/MoreUtils/PP.pm # once (6µs+0s) by Time::HiRes::BEGIN@70 at line 70 of Time/HiRes.pm # once (6µs+0s) by Symbol::BEGIN@137 at line 137 of Symbol.pm # once (6µs+0s) by Config::BEGIN@47 at line 47 of Config.pm # once (6µs+0s) by overload::BEGIN@4 at line 4 of overload.pm # once (6µs+0s) by Carp::BEGIN@730 at line 730 of Carp.pm # once (6µs+0s) by Carp::BEGIN@188 at line 188 of Carp.pm # once (6µs+0s) by Moo::_Utils::BEGIN@141 at line 141 of Moo/_Utils.pm # once (6µs+0s) by Type::Tiny::Class::BEGIN@164 at line 164 of Type/Tiny/Class.pm # once (6µs+0s) by JSON::MaybeXS::BEGIN@32 at line 32 of JSON/MaybeXS.pm # once (5µs+0s) by Sub::Exporter::Progressive::BEGIN@20 at line 20 of Sub/Exporter/Progressive.pm # once (5µs+0s) by Sub::Defer::BEGIN@14 at line 14 of Sub/Defer.pm # once (5µs+0s) by Exporter::BEGIN@4 at line 4 of Exporter.pm # once (5µs+0s) by Exporter::Tiny::BEGIN@347 at line 347 of Exporter/Tiny.pm # once (5µs+0s) by Moo::BEGIN@180 at line 180 of Moo.pm # once (5µs+0s) by Module::Load::BEGIN@14 at line 14 of Module/Load.pm # once (4µs+0s) by constant::BEGIN@141 at line 141 of constant.pm # once (4µs+0s) by constant::BEGIN@90 at line 90 of constant.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@217 at line 217 of Exporter/Tiny.pm # once (4µs+0s) by List::MoreUtils::BEGIN@54 at line 54 of List/MoreUtils.pm # once (4µs+0s) by List::MoreUtils::BEGIN@129 at line 129 of List/MoreUtils.pm # once (4µs+0s) by List::MoreUtils::PP::BEGIN@421 at line 421 of List/MoreUtils/PP.pm # once (4µs+0s) by Class::Inspector::BEGIN@344 at line 344 of Class/Inspector.pm # once (4µs+0s) by Symbol::BEGIN@156 at line 156 of Symbol.pm # once (4µs+0s) by Class::Method::Modifiers::BEGIN@145 at line 145 of Class/Method/Modifiers.pm # once (4µs+0s) by Class::Method::Modifiers::BEGIN@196 at line 196 of Class/Method/Modifiers.pm # once (4µs+0s) by POSIX::BEGIN@225 at line 225 of POSIX.pm # once (4µs+0s) by Role::Tiny::BEGIN@65 at line 65 of Role/Tiny.pm # once (3µs+0s) by File::Glob::BEGIN@54 at line 54 of File/Glob.pm # once (3µs+0s) by Exporter::Tiny::BEGIN@236 at line 236 of Exporter/Tiny.pm # once (3µs+0s) by Moo::BEGIN@230 at line 230 of Moo.pm # once (3µs+0s) by Moo::BEGIN@275 at line 275 of Moo.pm # once (3µs+0s) by List::Util::BEGIN@35 at line 35 of List/Util.pm # once (3µs+0s) by Types::TypeTiny::BEGIN@124 at line 124 of Types/TypeTiny.pm # once (3µs+0s) by Types::TypeTiny::BEGIN@98 at line 98 of Types/TypeTiny.pm # once (3µs+0s) by Role::Tiny::BEGIN@25 at line 25 of Role/Tiny.pm # once (3µs+0s) by Carp::BEGIN@256 at line 256 of Carp.pm # once (3µs+0s) by Carp::BEGIN@751 at line 751 of Carp.pm # once (3µs+0s) by Type::Library::BEGIN@314 at line 314 of Type/Library.pm # once (3µs+0s) by Type::Library::BEGIN@232 at line 232 of Type/Library.pm # once (3µs+0s) by Type::Library::BEGIN@207 at line 207 of Type/Library.pm # once (3µs+0s) by Type::Tiny::Class::BEGIN@185 at line 185 of Type/Tiny/Class.pm # once (3µs+0s) by Module::Load::BEGIN@89 at line 89 of Module/Load.pm # once (2µs+0s) by Socket::BEGIN@941 at line 941 of Socket.pm # once (2µs+0s) by List::MoreUtils::PP::BEGIN@154 at line 154 of List/MoreUtils/PP.pm # once (1µs+0s) by List::MoreUtils::PP::BEGIN@179 at line 179 of List/MoreUtils/PP.pm # once (1µs+0s) by Types::TypeTiny::BEGIN@114 at line 114 of Types/TypeTiny.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
77					1;
78					__END__
79
80					=head1 NAME
81
82					strict - 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
97					The C<strict> pragma disables certain Perl expressions that could behave
98					unexpectedly or are difficult to debug, turning them into errors. The
99					effect of this pragma is limited to the current file or scope block.
100
101					If 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
103					casual programming.) Currently, there are three possible things to be
104					strict about: "subs", "vars", and "refs".
105
106					=over 6
107
108					=item C<strict refs>
109
110					This generates a runtime error if you
111					use 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
121					There is one exception to this rule:
122
123					$bar = \&{'foo'};
124					&$bar;
125
126					is allowed so that C<goto &$AUTOLOAD> would not break under stricture.
127
128
129					=item C<strict vars>
130
131					This generates a compile-time error if you access a variable that was
132					neither explicitly declared (using any of C<my>, C<our>, C<state>, or C<use
133					vars>) nor fully qualified. (Because this is to avoid variable suicide
134					problems and subtle dynamic scoping issues, a merely C<local> variable isn't
135					good enough.) See L<perlfunc/my>, L<perlfunc/our>, L<perlfunc/state>,
136					L<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
147					The local() generated a compile-time error because you just touched a global
148					name without fully qualifying it.
149
150					Because of their special use by sort(), the variables $a and $b are
151					exempted from this check.
152
153					=item C<strict subs>
154
155					This disables the poetry optimization, generating a compile-time error if
156					you try to use a bareword identifier that's not a subroutine, unless it
157					is a simple identifier (no colons) and that it appears in curly braces,
158					on the left hand side of the C<< => >> symbol, or has the unary minus
159					operator 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
168					See L<perlmodlib/Pragmatic Modules>.
169
170					=head1 HISTORY
171
172					C<strict 'subs'>, with Perl 5.6.1, erroneously permitted to use an unquoted
173					compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or
174					inside curlies), but without forcing it always to a literal string.
175
176					Starting with Perl 5.8.1 strict is strict about its restrictions:
177					if unknown restrictions are used, the strict pragma will abort with
178
179					Unknown 'strict' tag(s) '...'
180
181					As 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
183					systems.
184
185					=cut