← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/getfix
  Run on Thu May 20 15:30:03 2010
Reported on Thu May 20 16:25:29 2010

File/opt/wise/lib/perl5/5.10.0/strict.pm
Statements Executed775
Total Time0.001656 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1291291230.001550.00159strict::import
56310.000720.00072strict::bits
5656350.000670.00131strict::unimport

LineStmts.Exclusive
Time		Avg.Code
1package strict;
2
311.0e-61.0e-6$strict::VERSION = "1.04";
4
5# Verify that we're called correctly so that strictures will work.
613.7e-53.7e-5unless ( __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
1214.0e-64.0e-6my %bitmask = (
13refs => 0x00000002,
14subs => 0x00000200,
15vars => 0x00000400
16);
17
18
# spent 723µs within strict::bits which was called 56 times, avg 13µs/call: # 52 times (632µs+0) by strict::unimport at line 41, avg 12µs/call # 3 times (39µs+0) by strict::import at line 36, avg 13µs/call # once (52µs+0) at line 32
sub bits {
192800.000361.3e-6 my $bits = 0;
20 my @wrong;
21 foreach my $s (@_) {
221200.000191.6e-6 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
3213.1e-53.1e-5my $default_bits = bits(qw(refs subs vars));
# spent 52µs making 1 call to strict::bits
33
34
# spent 1.59ms (1.55+39µs) within strict::import which was called 129 times, avg 12µs/call: # once (47µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage/DBI/MultiDistinctEmulation.pm # once (39µs+0) at line 5 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage/DBI/Cursor.pm # once (31µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/CHealPix.pm # once (25µs+0) by DBD::_::db::BEGIN at line 1465 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (25µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/mro.pm # once (24µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Coord.pm # once (24µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/BandUtils.pm # once (11µs+12µs) at line 3 of /opt/wise/lib/perl5/5.10.0/base.pm # once (22µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (22µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/re.pm # once (9µs+13µs) at line 45 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Inspector.pm # once (8µs+14µs) by vars::BEGIN at line 8 of /opt/wise/lib/perl5/5.10.0/vars.pm # once (21µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Cursor.pm # once (21µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Spawn.pm # once (20µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Params.pm # once (19µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Clone.pm # once (19µs+0) at line 40 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3/Componentised.pm # once (18µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/Helpers.pm # once (17µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/CascadeActions.pm # once (16µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/File/Glob.pm # once (16µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/Base.pm # once (16µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/RawDeflate.pm # once (15µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/WISE/FITSIO/Utils.pm # once (14µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/IPACTblXS.pm # once (14µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm # once (14µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Row.pm # once (14µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Release.pm # once (13µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBD/SQLite.pm # once (13µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (13µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/File/Spec/Unix.pm # once (13µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm # once (13µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (12µs+0) at line 9 of /wise/base/deliv/dev/lib/perl/WISE/DB/FrameIndex.pm # once (12µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Core.pm # once (12µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage.pm # once (12µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSetColumn.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Pars.pm # once (11µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/List/Util.pm # once (11µs+0) by DBD::_::common::BEGIN at line 1314 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasMany.pm # once (11µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/Exporter/Heavy.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/InflateColumn.pm # once (11µs+0) at line 5 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/WCS/LibWCS.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/ProxyMethods.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Componentised.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSource.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSourceHandle.pm # once (11µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Scalar/Util.pm # once (11µs+0) at line 12 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI/Const/GetInfoType.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/bin/getfix # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/FITS/CFITSIO.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage/DBI/SQLite.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/HasOne.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/Module/Find.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/PK.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSourceProxy/Table.pm # once (11µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm # once (11µs+0) at line 16 of /wise/base/static/lib/perl5/site_perl/5.10.0/Carp/Clan.pm # once (10µs+0) by base::BEGIN at line 1 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Chained/Fast.pm # once (10µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Adapter/Deflate.pm # once (10µs+0) at line 1 of /wise/base/deliv/dev/lib/perl/WISE/Time.pm # once (10µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage/Statistics.pm # once (10µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Gzip.pm # once (10µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Time.pm # once (10µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSourceProxy.pm # once (10µs+0) at line 34 of /opt/wise/lib/perl5/5.10.0/Math/Complex.pm # once (10µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/Accessor.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/File/Slurp.pm # once (10µs+0) at line 9 of /wise/base/deliv/dev/lib/perl/FITSIO.pm # once (10µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/MRO/Compat.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor.pm # once (10µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/CoUtilsXS.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/Base.pm # once (10µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/SQL/Abstract/Limit.pm # once (10µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/Adapter/Inflate.pm # once (10µs+0) at line 7 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/BelongsTo.pm # once (10µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/IOUtils.pm # once (10µs+0) at line 2 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/POSIX.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSource/Table.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Exception.pm # once (10µs+0) at line 50 of /opt/wise/lib/perl5/5.10.0/File/Basename.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/Scope/Guard.pm # once (10µs+0) at line 497 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Base/Common.pm # once (10µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/ResultSet.pm # once (10µs+0) at line 5 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm # once (9µs+0) at line 11 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Raw/Zlib.pm # once (9µs+0) at line 8 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/Gunzip.pm # once (9µs+0) by DBD::_::st::BEGIN at line 1766 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (9µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Base.pm # once (9µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/Time/Local.pm # once (9µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/RawInflate.pm # once (9µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm # once (9µs+0) at line 6 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Storage/DBI.pm # once (9µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/File/GlobMapper.pm # once (9µs+0) at line 12 of /opt/wise/lib/perl5/5.10.0/Text/Tabs.pm # once (9µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/File/Spec.pm # once (9µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Zlib/Extra.pm # once (9µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class.pm # once (9µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Gzip/Constants.pm # once (9µs+0) at line 58 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm # once (9µs+0) at line 5 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/PK/Auto.pm # once (9µs+0) at line 12 of /wise/base/static/lib/perl5/site_perl/5.10.0/Time/Timezone.pm # once (9µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Schema.pm # once (9µs+0) at line 258 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm # once (9µs+0) at line 128 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/File.pm # once (9µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Base/Common.pm # once (9µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Time/HiRes.pm # once (9µs+0) by SQL::Abstract::BEGIN at line 145 of /wise/base/static/lib/perl5/site_perl/5.10.0/SQL/Abstract.pm # once (9µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/ManyToMany.pm # once (8µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (8µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/Data/Page.pm # once (8µs+0) at line 271 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (8µs+0) by DBD::_::dr::BEGIN at line 1403 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (8µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/File/Path.pm # once (8µs+0) by File::Find::BEGIN at line 419 of /opt/wise/lib/perl5/5.10.0/File/Find.pm # once (8µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/File/Find.pm # once (8µs+0) at line 9 of /wise/base/deliv/dev/lib/perl/WISE/FITSIO.pm # once (8µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/threads/shared.pm # once (8µs+0) at line 99 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Seekable.pm # once (8µs+0) at line 7 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm # once (8µs+0) at line 16 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Zlib.pm # once (8µs+0) at line 11 of /opt/wise/lib/perl5/5.10.0/File/Copy.pm # once (8µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (8µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/FileHandle.pm # once (8µs+0) at line 170 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Cwd.pm # once (8µs+0) by Class::Accessor::Fast::BEGIN at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Fast.pm # once (7µs+0) by lib::BEGIN at line 8 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/lib.pm
sub import {
352580.000592.3e-6 shift;
36 $^H |= @_ ? bits(@_) : $default_bits;
# spent 39µs making 3 calls to strict::bits, avg 13µs/call
37}
38
39
# spent 1.31ms (675µs+632µs) within strict::unimport which was called 56 times, avg 23µs/call: # once (45µs+10µs) by DBI::_set_isa at line 838 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (17µs+29µs) by Class::C3::Componentised::BEGIN or Class::C3::Componentised::inject_base at line 169 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3/Componentised.pm # once (11µs+23µs) by Compress::Zlib::AUTOLOAD at line 49 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Zlib.pm # once (20µs+13µs) by FileHandle::BEGIN at line 46 of /opt/wise/lib/perl5/5.10.0/FileHandle.pm # once (18µs+14µs) by Class::Inspector::BEGIN or Class::Inspector::recursive_children at line 542 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Inspector.pm # once (14µs+16µs) by File::Spec::Unix::BEGIN or File::Spec::Unix::_tmpdir at line 144 of /opt/wise/lib/perl5/5.10.0/File/Spec/Unix.pm # once (19µs+11µs) by File::Path::BEGIN or File::Path::_rmtree at line 265 of /opt/wise/lib/perl5/5.10.0/File/Path.pm # once (16µs+14µs) by WISE::Wrap::OO::BEGIN or WISE::Wrap::OO::AUTOLOAD at line 2034 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (10µs+20µs) by constant::import at line 38 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (14µs+16µs) by WISE::UtilsLight::OO::BEGIN or WISE::UtilsLight::OO::AUTOLOAD at line 1387 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (12µs+17µs) by threads::shared::BEGIN or threads::shared::import at line 52 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/threads/shared.pm # once (14µs+13µs) by Cwd::BEGIN at line 731 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Cwd.pm # once (13µs+13µs) by WISE::Utils::BEGIN or WISE::Utils::lockit at line 1535 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (13µs+13µs) by Astro::WCS::LibWCS::BEGIN or Astro::WCS::LibWCS::AUTOLOAD at line 454 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/WCS/LibWCS.pm # once (12µs+13µs) by Carp::Clan::BEGIN or Carp::Clan::import at line 211 of /wise/base/static/lib/perl5/site_perl/5.10.0/Carp/Clan.pm # once (10µs+14µs) by DBI::install_driver at line 775 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (12µs+12µs) by Class::Inspector::children at line 529 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Inspector.pm # once (12µs+12µs) by IO::Handle::BEGIN or IO::Handle::constant at line 611 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm # once (10µs+14µs) by constant::BEGIN or constant::import at line 101 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (11µs+13µs) by Time::HiRes::BEGIN or Time::HiRes::AUTOLOAD at line 42 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Time/HiRes.pm # once (11µs+12µs) by Fcntl::BEGIN or Fcntl::AUTOLOAD at line 239 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm # once (11µs+12µs) at line 150 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor.pm # once (10µs+13µs) at line 4 of /opt/wise/lib/perl5/5.10.0/Exporter/Heavy.pm # once (13µs+10µs) by Compress::Raw::Zlib::AUTOLOAD at line 73 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Raw/Zlib.pm # once (11µs+12µs) by WISE::Time::OO::BEGIN or WISE::Time::OO::AUTOLOAD at line 698 of /wise/base/deliv/dev/lib/perl/WISE/Time.pm # once (11µs+12µs) by DBI::CLONE at line 518 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (13µs+10µs) by Class::Accessor::Grouped::BEGIN or Class::Accessor::Grouped::set_inherited at line 347 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm # once (10µs+13µs) by DBIx::Class::Relationship::ManyToMany::many_to_many at line 19 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/ManyToMany.pm # once (11µs+11µs) by AutoLoader::AUTOLOAD at line 30 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (10µs+12µs) by Class::C3::_remove_method_dispatch_table at line 178 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm # once (10µs+12µs) by MRO::Compat::__get_all_pkgs_with_isas at line 222 of /wise/base/static/lib/perl5/site_perl/5.10.0/MRO/Compat.pm # once (10µs+11µs) by DBI::BEGIN or DBI::installed_versions at line 1001 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (9µs+12µs) by DBI::connect or DBI::__ANON__[/wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm:703] at line 663 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (11µs+10µs) by DBIx::Class::Schema::compose_namespace at line 606 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Schema.pm # once (10µs+11µs) by Class::Accessor::Grouped::get_inherited at line 305 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm # once (11µs+10µs) by Class::C3::_calculate_method_dispatch_table at line 116 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm # once (10µs+11µs) by Config::BEGIN or Config::import at line 31 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm # once (11µs+9µs) by DBI::_load_class at line 935 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (10µs+10µs) by DBIx::Class::Schema::compose_connection at line 537 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Schema.pm # once (11µs+9µs) by DBIx::Class::Relationship::Accessor::add_relationship_accessor at line 57 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/Accessor.pm # once (10µs+10µs) by DBI::setup_driver at line 809 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (11µs+9µs) by WISE::Utils::OO::BEGIN or WISE::Utils::OO::AUTOLOAD at line 1993 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (10µs+9µs) by AutoLoader::BEGIN or AutoLoader::unimport at line 199 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (9µs+10µs) by AutoLoader::import at line 153 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (10µs+9µs) by Class::C3::_apply_method_dispatch_table at line 155 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm # once (10µs+9µs) by Class::C3::calculateMRO or Class::C3::__ANON__[/wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm:193] at line 191 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/C3.pm # once (10µs+9µs) by MRO::Compat::BEGIN or MRO::Compat::__get_isarev_recurse at line 253 of /wise/base/static/lib/perl5/site_perl/5.10.0/MRO/Compat.pm # once (10µs+9µs) by DBIx::Class::Relationship::ProxyMethods::proxy_to_related at line 20 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Relationship/ProxyMethods.pm # once (10µs+9µs) at line 58 of /wise/base/static/lib/perl5/site_perl/5.10.0/Class/Accessor/Grouped.pm # once (9µs+9µs) by MRO::Compat::__get_linear_isa_dfs at line 116 of /wise/base/static/lib/perl5/site_perl/5.10.0/MRO/Compat.pm # once (9µs+9µs) by DBIx::Class::Componentised::BEGIN or DBIx::Class::Componentised::inject_base at line 13 of /wise/base/static/lib/perl5/site_perl/5.10.0/DBIx/Class/Componentised.pm # once (8µs+9µs) by AutoLoader::can at line 65 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (11µs+0) by Astro::FITS::CFITSIO::BEGIN or Astro::FITS::CFITSIO::AUTOLOAD at line 779 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/FITS/CFITSIO.pm # once (11µs+0) at line 267 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.pm # once (11µs+0) by WISE::Env::_export at line 267 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm # once (9µs+0) by POSIX::AUTOLOAD at line 40 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/POSIX.pm
sub unimport {
401120.000433.9e-6 shift;
41 $^H &= ~ (@_ ? bits(@_) : $default_bits);
# spent 632µs making 52 calls to strict::bits, avg 12µs/call
42}
43
4411.3e-51.3e-51;
45__END__
46
47=head1 NAME
48
49strict - Perl pragma to restrict unsafe constructs
50
51=head1 SYNOPSIS
52
53 use strict;
54
55 use strict "vars";
56 use strict "refs";
57 use strict "subs";
58
59 use strict;
60 no strict "vars";
61
62=head1 DESCRIPTION
63
64If no import list is supplied, all possible restrictions are assumed.
65(This is the safest mode to operate in, but is sometimes too strict for
66casual programming.) Currently, there are three possible things to be
67strict about: "subs", "vars", and "refs".
68
69=over 6
70
71=item C<strict refs>
72
73This generates a runtime error if you
74use symbolic references (see L<perlref>).
75
76 use strict 'refs';
77 $ref = \$foo;
78 print $$ref; # ok
79 $ref = "foo";
80 print $$ref; # runtime error; normally ok
81 $file = "STDOUT";
82 print $file "Hi!"; # error; note: no comma after $file
83
84There is one exception to this rule:
85
86 $bar = \&{'foo'};
87 &$bar;
88
89is allowed so that C<goto &$AUTOLOAD> would not break under stricture.
90
91
92=item C<strict vars>
93
94This generates a compile-time error if you access a variable that wasn't
95declared via C<our> or C<use vars>,
96localized via C<my()>, or wasn't fully qualified. Because this is to avoid
97variable suicide problems and subtle dynamic scoping issues, a merely
98local() variable isn't good enough. See L<perlfunc/my> and
99L<perlfunc/local>.
100
101 use strict 'vars';
102 $X::foo = 1; # ok, fully qualified
103 my $foo = 10; # ok, my() var
104 local $foo = 9; # blows up
105
106 package Cinna;
107 our $bar; # Declares $bar in current package
108 $bar = 'HgS'; # ok, global declared via pragma
109
110The local() generated a compile-time error because you just touched a global
111name without fully qualifying it.
112
113Because of their special use by sort(), the variables $a and $b are
114exempted from this check.
115
116=item C<strict subs>
117
118This disables the poetry optimization, generating a compile-time error if
119you try to use a bareword identifier that's not a subroutine, unless it
120is a simple identifier (no colons) and that it appears in curly braces or
121on the left hand side of the C<< => >> symbol.
122
123 use strict 'subs';
124 $SIG{PIPE} = Plumber; # blows up
125 $SIG{PIPE} = "Plumber"; # just fine: quoted string is always ok
126 $SIG{PIPE} = \&Plumber; # preferred form
127
128=back
129
130See L<perlmodlib/Pragmatic Modules>.
131
132=head1 HISTORY
133
134C<strict 'subs'>, with Perl 5.6.1, erroneously permitted to use an unquoted
135compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or
136inside curlies), but without forcing it always to a literal string.
137
138Starting with Perl 5.8.1 strict is strict about its restrictions:
139if unknown restrictions are used, the strict pragma will abort with
140
141 Unknown 'strict' tag(s) '...'
142
143As of version 1.04 (Perl 5.10), strict verifies that it is used as
144"strict" to avoid the dreaded Strict trap on case insensitive file
145systems.
146
147=cut

Report produced by the NYTProf 2.07 Perl profiler, developed by Tim Bunce and Adam Kaplan.