← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:07 2010

File /usr/share/perl/5.10/strict.pm
Statements Executed 672
Total Time 0.0012623 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1471391371.44ms1.47msstrict::::importstrict::import
404027530µs935µsstrict::::unimportstrict::unimport
4131453µs453µsstrict::::bitsstrict::bits
LineStmts.Exclusive
Time
Avg.Code
1package strict;
2
31700ns700ns$strict::VERSION = "1.04";
4
5# Verify that we're called correctly so that strictures will work.
6128µs28µsunless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) {
7 # Can't use Carp, since Carp uses us!
8 my (undef, $f, $l) = caller;
9 die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
10}
11
1213µs3µsmy %bitmask = (
13refs => 0x00000002,
14subs => 0x00000200,
15vars => 0x00000400
16);
17
18
# spent 453µs within strict::bits which was called 41 times, avg 11µs/call: # 38 times (406µs+0s) by strict::unimport at line 41, avg 11µs/call # 2 times (22µs+0s) by strict::import at line 36, avg 11µs/call # once (26µs+0s) at line 32
sub bits {
19293345µs1µs my $bits = 0;
20 my @wrong;
21 foreach my $s (@_) {
22 push @wrong, $s unless exists $bitmask{$s};
23 $bits |= $bitmask{$s} || 0;
24 }
25 if (@wrong) {
26 require Carp;
27 Carp::croak("Unknown 'strict' tag(s) '@wrong'");
28 }
29 $bits;
30}
31
3217µs7µsmy $default_bits = bits(qw(refs subs vars));
# spent 26µs making 1 call to strict::bits
33
34
# spent 1.47ms (1.44+22µs) within strict::import which was called 147 times, avg 10µs/call: # 8 times (52µs+0s) by Moose::Exporter::_make_import_sub or Moose::Exporter::__ANON__[/usr/local/lib/perl/5.10.0/Moose/Exporter.pm:425] at line 376 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm, avg 7µs/call # 2 times (11µs+0s) by Moose::Exporter::import at line 616 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm, avg 6µs/call # once (41µs+0s) at line 4 of /usr/lib/perl/5.10/IO/Handle.pm # once (15µs+12µs) by vars::BEGIN at line 8 of /usr/share/perl/5.10/vars.pm # once (22µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Util.pm # once (7µs+10µs) at line 3 of /usr/share/perl/5.10/base.pm # once (16µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Constructor.pm # once (16µs+0s) at line 2 of /usr/lib/perl/5.10/POSIX.pm # once (15µs+0s) at line 4 of /usr/share/perl5/MARC/Charset.pm # once (14µs+0s) at line 3 of /usr/local/share/perl/5.10.0/AutoLoader.pm # once (14µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Class.pm # once (14µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Generated.pm # once (14µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Parameterizable.pm # once (14µs+0s) at line 5 of /usr/local/share/perl/5.10.0/Package/Stash.pm # once (13µs+0s) at line 3 of /usr/lib/perl/5.10/SDBM_File.pm # once (13µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/MiniTrait.pm # once (13µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Package.pm # once (13µs+0s) at line 4 of /usr/lib/perl5/List/MoreUtils.pm # once (13µs+0s) at line 5 of /usr/lib/perl5/XML/LibXML/XPathContext.pm # once (13µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method.pm # once (13µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/DuckType.pm # once (12µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Mixin/HasMethods.pm # once (12µs+0s) at line 4 of /usr/local/share/perl/5.10.0/Sub/Install.pm # once (12µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Accessor.pm # once (12µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Registry.pm # once (12µs+0s) at line 4 of /usr/lib/perl5/XML/LibXML/NodeList.pm # once (12µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Method/Conflicting.pm # once (12µs+0s) at line 4 of /usr/lib/perl/5.10/re.pm # once (12µs+0s) at line 5 of /usr/lib/perl/5.10/Config.pm # once (12µs+0s) at line 2 of /usr/local/share/perl/5.10.0/Sub/Exporter.pm # once (12µs+0s) at line 3 of /usr/lib/perl5/File/Spec.pm # once (12µs+0s) by XML::SAX::DocumentLocator::BEGIN at line 4 of /usr/share/perl5/XML/SAX/DocumentLocator.pm # once (12µs+0s) at line 7 of /usr/lib/perl/5.10/IO/Seekable.pm # once (12µs+0s) at line 6 of /usr/local/share/perl/5.10.0/Package/DeprecationManager.pm # once (12µs+0s) at line 3 of /usr/share/perl/5.10/Exporter/Heavy.pm # once (12µs+0s) at line 5 of /usr/local/lib/perl/5.10.0/Encode.pm # once (11µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Instance.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Mixin/AttributeCore.pm # once (11µs+0s) at line 7 of /usr/local/lib/perl/5.10.0/Encode/Config.pm # once (11µs+0s) at line 5 of /usr/local/lib/perl/5.10.0/Variable/Magic.pm # once (11µs+0s) at line 34 of /usr/share/perl5/MARC/Charset/Table.pm # once (11µs+0s) at line 6 of /usr/lib/perl5/XML/LibXML/Number.pm # once (11µs+0s) at line 7 of /usr/lib/perl5/XML/LibXML/Boolean.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Class/Immutable/Trait.pm # once (11µs+0s) at line 10 of /usr/local/share/perl/5.10.0/namespace/clean.pm # once (11µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Constructor.pm # once (11µs+0s) at line 3 of /usr/share/perl/5.10/constant.pm # once (11µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Destructor.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Augmented.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Composite.pm # once (11µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Class.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm # once (11µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Deprecated.pm # once (11µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Instance.pm # once (10µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Method/Required.pm # once (10µs+0s) at line 5 of /usr/lib/perl5/XML/LibXML/SAX/Parser.pm # once (10µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint.pm # once (10µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Mixin/AttributeCore.pm # once (10µs+0s) at line 3 of /usr/lib/perl/5.10/Fcntl.pm # once (10µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Deprecated.pm # once (10µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Role.pm # once (10µs+0s) at line 28 of /usr/share/perl5/XML/SAX/Base.pm # once (10µs+0s) at line 1 of /usr/local/share/perl/5.10.0/B/Hooks/EndOfScope.pm # once (10µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Meta.pm # once (10µs+0s) at line 18 of /usr/share/perl5/MARC/Charset/Constants.pm # once (10µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Delegation.pm # once (10µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Error/Default.pm # once (10µs+0s) at line 5 of /usr/local/lib/perl/5.10.0/Devel/GlobalDestruction.pm # once (10µs+0s) at line 42 of /usr/share/perl5/XML/Simple.pm # once (10µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Wrapped.pm # once (10µs+0s) at line 3 of /usr/share/perl5/MARC/Charset/Code.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Module.pm # once (9µs+0s) at line 7 of /usr/lib/perl/5.10/IO.pm # once (9µs+0s) at line 4 of /usr/share/perl5/MARC/File/XML.pm # once (9µs+0s) at line 3 of /usr/lib/perl5/File/Spec/Unix.pm # once (9µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Application/ToRole.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Attribute.pm # once (9µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Mixin/HasAttributes.pm # once (9µs+0s) at line 11 of /usr/lib/perl/5.10/List/Util.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Attribute.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role.pm # once (9µs+0s) at line 3 of /usr/share/perl5/MARC/Field.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeCoercion.pm # once (9µs+0s) at line 4 of /home/tamil/util/marc-moose/t/test-parsing # once (9µs+0s) at line 1 of /usr/local/share/perl/5.10.0/namespace/autoclean.pm # once (9µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Meta.pm # once (9µs+0s) at line 2 of /usr/local/lib/perl/5.10.0/Encode/Alias.pm # once (9µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Application.pm # once (9µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Application/ToInstance.pm # once (9µs+0s) at line 3 of /usr/local/share/perl/5.10.0/Try/Tiny.pm # once (8µs+0s) at line 50 of /usr/share/perl/5.10/File/Basename.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Parameterized.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Class.pm # once (8µs+0s) at line 3 of /usr/lib/perl/5.10/Time/HiRes.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Application/ToClass.pm # once (8µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Method.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Enum.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Application/RoleSummation.pm # once (8µs+0s) at line 5 of /usr/share/perl5/XML/SAX/ParserFactory.pm # once (8µs+0s) at line 12 of /usr/share/perl5/MARC/File/SAX.pm # once (8µs+0s) at line 9 of /usr/share/perl5/MARC/Record.pm # once (8µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeCoercion/Union.pm # once (8µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Object.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role/Attribute.pm # once (8µs+0s) at line 4 of /usr/share/perl/5.10/FileHandle.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Util/TypeConstraints/OptimizedConstraints.pm # once (8µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Class/Immutable/Trait.pm # once (8µs+0s) at line 2 of /usr/local/lib/perl/5.10.0/Moose.pm # once (8µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Encode/Encoding.pm # once (8µs+0s) at line 2 of /usr/share/perl/5.10/charnames.pm # once (8µs+0s) at line 59 of /usr/local/lib/perl/5.10.0/Params/Util.pm # once (8µs+0s) at line 9 of /usr/share/perl/5.10/mro.pm # once (8µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Accessor.pm # once (7µs+0s) at line 3 of /usr/local/share/perl/5.10.0/Data/OptList.pm # once (7µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Util/MetaRole.pm # once (7µs+0s) at line 9 of /usr/lib/perl/5.10/Scalar/Util.pm # once (7µs+0s) at line 5 of /usr/share/perl5/XML/SAX.pm # once (7µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Method/Inlined.pm # once (7µs+0s) at line 44 of /usr/local/lib/perl/5.10.0/Sub/Name.pm # once (7µs+0s) at line 10 of /usr/lib/perl/5.10/Unicode/Normalize.pm # once (7µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Moose/Meta/Method/Overridden.pm # once (7µs+0s) at line 6 of /usr/lib/perl/5.10/IO/File.pm # once (7µs+0s) at line 9 of /usr/share/perl5/MARC/File.pm # once (7µs+0s) at line 2 of /usr/share/perl5/YAML/Node.pm # once (7µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Method.pm # once (7µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Moose/Meta/TypeConstraint/Union.pm # once (7µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP/Object.pm # once (7µs+0s) at line 3 of /usr/share/perl5/Class/Accessor.pm # once (7µs+0s) at line 3 of /usr/share/perl5/XML/SAX/Exception.pm # once (7µs+0s) at line 3 of /usr/local/lib/perl/5.10.0/Class/MOP/Mixin.pm # once (7µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/metaclass.pm # once (7µs+0s) at line 4 of /usr/local/lib/perl/5.10.0/Class/MOP.pm # once (7µs+0s) at line 2 of /usr/share/perl5/YAML/Tag.pm # once (7µs+0s) at line 2 of /usr/local/share/perl/5.10.0/MRO/Compat.pm # once (7µs+0s) at line 9 of /usr/lib/perl5/XML/LibXML/Common.pm # once (7µs+0s) at line 2 of /usr/share/perl5/YAML.pm # once (7µs+0s) at line 5 of /usr/lib/perl5/XML/LibXML.pm # once (6µs+0s) at line 6 of /usr/lib/perl5/XML/LibXML/Literal.pm # once (6µs+0s) at line 2 of /usr/share/perl5/YAML/Base.pm
sub import {
35294536µs2µs shift;
36 $^H |= @_ ? bits(@_) : $default_bits;
# spent 22µs making 2 calls to strict::bits, avg 11µs/call
37}
38
39
# spent 935µs (530+405) within strict::unimport which was called 40 times, avg 23µs/call: # once (26µs+9µs) by XML::SAX::ParserFactory::parser at line 37 of /usr/share/perl5/XML/SAX/ParserFactory.pm # once (20µs+13µs) by YAML::Base::field at line 71 of /usr/share/perl5/YAML/Base.pm # once (17µs+13µs) by Class::MOP::Module::BEGIN or Class::MOP::Module::_instantiate_module at line 64 of /usr/local/lib/perl/5.10.0/Class/MOP/Module.pm # once (15µs+14µs) by Fcntl::BEGIN or Fcntl::AUTOLOAD at line 184 of /usr/lib/perl/5.10/Fcntl.pm # once (15µs+13µs) by Moose::Object::DEMOLISHALL at line 81 of /usr/local/lib/perl/5.10.0/Moose/Object.pm # once (14µs+14µs) by FileHandle::BEGIN at line 46 of /usr/share/perl/5.10/FileHandle.pm # once (18µs+10µs) by Sub::Install::_installer or Sub::Install::__ANON__[/usr/local/share/perl/5.10.0/Sub/Install.pm:187] at line 184 of /usr/local/share/perl/5.10.0/Sub/Install.pm # once (16µs+11µs) by IO::Handle::BEGIN or IO::Handle::constant at line 356 of /usr/lib/perl/5.10/IO/Handle.pm # once (14µs+13µs) by Carp::trusts_directly at line 289 of /usr/share/perl/5.10/Carp/Heavy.pm # once (14µs+13µs) by Moose::Util::TypeConstraints::export_type_constraints_as_functions at line 66 of /usr/local/lib/perl/5.10.0/Moose/Util/TypeConstraints.pm # once (11µs+16µs) by Moose::Meta::Role::BEGIN or Moose::Meta::Role::DESTROY at line 590 of /usr/local/lib/perl/5.10.0/Moose/Meta/Role.pm # once (16µs+10µs) by Config::BEGIN or Config::import at line 31 of /usr/lib/perl/5.10/Config.pm # once (13µs+13µs) by XML::LibXML::XPathContext::BEGIN or XML::LibXML::XPathContext::_perl_dispatcher at line 126 of /usr/lib/perl5/XML/LibXML/XPathContext.pm # once (12µs+13µs) at line 4 of /usr/share/perl/5.10/Exporter/Heavy.pm # once (15µs+9µs) at line 150 of /usr/share/perl5/Class/Accessor.pm # once (12µs+12µs) by Time::HiRes::BEGIN or Time::HiRes::AUTOLOAD at line 42 of /usr/lib/perl/5.10/Time/HiRes.pm # once (11µs+13µs) by constant::import at line 38 of /usr/share/perl/5.10/constant.pm # once (11µs+12µs) by File::Spec::Unix::BEGIN or File::Spec::Unix::_tmpdir at line 145 of /usr/lib/perl5/File/Spec/Unix.pm # once (15µs+8µs) by Moose::Exporter::_remove_keywords at line 536 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm # once (13µs+11µs) by Moose::Exporter::BEGIN or Moose::Exporter::_remove_keywords at line 546 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm # once (12µs+11µs) by Moose::Exporter::_sub_from_package at line 235 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm # once (16µs+7µs) by MRO::Compat::BEGIN or MRO::Compat::__get_isarev_recurse at line 256 of /usr/local/share/perl/5.10.0/MRO/Compat.pm # once (11µs+12µs) by Package::Stash::new at line 18 of /usr/local/share/perl/5.10.0/Package/Stash.pm # once (12µs+11µs) by Package::Stash::BEGIN or Package::Stash::get_package_symbol at line 185 of /usr/local/share/perl/5.10.0/Package/Stash.pm # once (11µs+12µs) by Class::MOP::Class::Immutable::Trait::BEGIN at line 36 of /usr/local/lib/perl/5.10.0/Class/MOP/Class/Immutable/Trait.pm # once (11µs+12µs) by namespace::clean::__ANON__[/usr/local/share/perl/5.10.0/namespace/clean.pm:182] at line 167 of /usr/local/share/perl/5.10.0/namespace/clean.pm # once (12µs+9µs) by AutoLoader::AUTOLOAD at line 30 of /usr/local/share/perl/5.10.0/AutoLoader.pm # once (13µs+8µs) by Moose::Exporter::_make_import_sub or Moose::Exporter::__ANON__[/usr/local/lib/perl/5.10.0/Moose/Exporter.pm:425] at line 421 of /usr/local/lib/perl/5.10.0/Moose/Exporter.pm # once (11µs+10µs) by MRO::Compat::__get_linear_isa_dfs at line 116 of /usr/local/share/perl/5.10.0/MRO/Compat.pm # once (8µs+13µs) by AutoLoader::import at line 138 of /usr/local/share/perl/5.10.0/AutoLoader.pm # once (14µs+7µs) by MRO::Compat::__get_all_pkgs_with_isas at line 225 of /usr/local/share/perl/5.10.0/MRO/Compat.pm # once (12µs+8µs) by Class::MOP::Class::BEGIN or Class::MOP::Class::DESTROY at line 475 of /usr/local/lib/perl/5.10.0/Class/MOP/Class.pm # once (11µs+10µs) by namespace::clean::get_functions at line 311 of /usr/local/share/perl/5.10.0/namespace/clean.pm # once (12µs+8µs) by namespace::clean::get_class_store at line 291 of /usr/local/share/perl/5.10.0/namespace/clean.pm # once (12µs+7µs) by constant::BEGIN or constant::import at line 101 of /usr/share/perl/5.10/constant.pm # once (12µs+7µs) by AutoLoader::BEGIN or AutoLoader::unimport at line 186 of /usr/local/share/perl/5.10.0/AutoLoader.pm # once (11µs+7µs) by Package::Stash::remove_package_glob at line 115 of /usr/local/share/perl/5.10.0/Package/Stash.pm # once (8µs+8µs) by Package::Stash::add_package_symbol at line 107 of /usr/local/share/perl/5.10.0/Package/Stash.pm # once (12µs+0s) by MARC::File::in or MARC::File::BEGIN at line 57 of /usr/share/perl5/MARC/File.pm # once (10µs+0s) by POSIX::AUTOLOAD at line 42 of /usr/lib/perl/5.10/POSIX.pm
sub unimport {
4080331µs4µs shift;
41 $^H &= ~ (@_ ? bits(@_) : $default_bits);
# spent 406µs making 38 calls to strict::bits, avg 11µs/call
42}
43
44113µs13µs1;
45__END__
46