← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/wdate
  Run on Fri Jun 4 15:13:22 2010
Reported on Fri Jun 4 15:14:17 2010

File/opt/wise/lib/perl5/5.10.0/strict.pm
Statements Executed470
Total Time0.001404 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
8080750.001090.00111strict::import
33310.000570.00057strict::bits
3434220.000500.00099strict::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.
615.9e-55.9e-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
1215.0e-65.0e-6my %bitmask = (
13refs => 0x00000002,
14subs => 0x00000200,
15vars => 0x00000400
16);
17
18
# spent 568µs within strict::bits which was called 33 times, avg 17µs/call: # 30 times (487µs+0) by strict::unimport at line 41, avg 16µs/call # 2 times (27µs+0) by strict::import at line 36, avg 14µs/call # once (54µs+0) at line 32
sub bits {
192370.000421.8e-6 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
3214.9e-54.9e-5my $default_bits = bits(qw(refs subs vars));
# spent 54µs making 1 call to strict::bits
33
34
# spent 1.11ms (1.09+27µs) within strict::import which was called 80 times, avg 14µs/call: # once (53µs+0) at line 170 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Cwd.pm # once (47µs+0) at line 16 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Zlib.pm # once (46µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Base/Common.pm # once (37µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Spawn.pm # once (32µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/File/Glob.pm # once (30µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/re.pm # once (9µs+15µs) by vars::BEGIN at line 8 of /opt/wise/lib/perl5/5.10.0/vars.pm # once (23µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm # once (11µs+12µs) at line 3 of /opt/wise/lib/perl5/5.10.0/base.pm # once (23µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Coord.pm # once (22µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/Base.pm # once (21µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Scalar/Util.pm # once (21µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/NAIF.pm # once (17µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/Decom.pm # once (17µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/Seq.pm # once (17µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/threads/shared.pm # once (16µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (16µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/RawInflate.pm # once (16µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Zlib/Extra.pm # once (14µs+0) at line 3 of /wise/base/deliv/dev/bin/wdate # once (14µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (14µ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 (13µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/SurveyPlan.pm # once (13µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/IPACTblXS.pm # once (13µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm # once (13µs+0) at line 12 of /wise/base/static/lib/perl5/site_perl/5.10.0/Time/Timezone.pm # once (12µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Adapter/Deflate.pm # once (12µs+0) at line 58 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm # once (12µs+0) at line 2 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Time.pm # once (12µs+0) at line 9 of /wise/base/deliv/dev/lib/perl/WISE/FITSIO.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Params.pm # once (11µs+0) at line 4 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Clone.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/IOUtils.pm # once (11µs+0) at line 12 of /opt/wise/lib/perl5/5.10.0/Text/Tabs.pm # once (11µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Gzip.pm # once (11µs+0) at line 3 of /wise/base/static/lib/perl5/site_perl/5.10.0/File/Slurp.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/HK.pm # 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/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/Ingest/NAIFXS.pm # once (11µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Ingest/GroundTrack.pm # once (11µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Time/HiRes.pm # once (11µ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 11 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Compress/Raw/Zlib.pm # once (10µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Pars.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 3 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (10µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Gzip/Constants.pm # once (10µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/BandUtils.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 /opt/wise/lib/perl5/5.10.0/constant.pm # once (10µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm # once (10µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/Exporter/Heavy.pm # once (10µs+0) at line 9 of /wise/base/deliv/dev/lib/perl/FITSIO.pm # once (9µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/List/Util.pm # once (9µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/File/Path.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 3 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/File/GlobMapper.pm # once (9µs+0) at line 2 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/Ingest/Rice.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 1 of /wise/base/deliv/dev/lib/perl/WISE/Time.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 3 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (9µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Release.pm # once (9µs+0) at line 271 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/DBI.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) 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 (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 497 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/Base/Common.pm # once (9µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/FileHandle.pm # once (9µs+0) at line 5 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm # once (8µs+0) at line 8 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Uncompress/Gunzip.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 3 of /opt/wise/lib/perl5/5.10.0/File/Spec/Unix.pm # once (8µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/Time/Local.pm # once (8µs+0) at line 2 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/POSIX.pm # once (8µ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 (8µs+0) at line 5 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Compress/RawDeflate.pm # once (7µs+0) at line 99 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Seekable.pm # once (7µs+0) at line 50 of /opt/wise/lib/perl5/5.10.0/File/Basename.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 {
351600.000483.0e-6 shift;
36 $^H |= @_ ? bits(@_) : $default_bits;
# spent 27µs making 2 calls to strict::bits, avg 14µs/call
37}
38
39
# spent 991µs (504+487) within strict::unimport which was called 34 times, avg 29µs/call: # once (32µs+31µ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 (16µs+39µ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 (14µs+41µ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 (37µs+15µ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 (37µ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 (22µs+26µ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 (24µs+14µs) by WISE::UtilsLight::OO::BEGIN or WISE::UtilsLight::OO::AUTOLOAD at line 1388 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (10µs+23µs) by constant::import at line 38 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (16µ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 (17µs+14µs) by WISE::Utils::BEGIN or WISE::Utils::lockit at line 1535 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (16µs+15µs) by Cwd::BEGIN at line 731 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Cwd.pm # once (11µs+20µ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 (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 (15µs+15µs) at line 4 of /opt/wise/lib/perl5/5.10.0/Exporter/Heavy.pm # once (9µs+19µ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+16µ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 (12µs+14µ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 (12µs+14µ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 (17µs+9µ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 (14µs+11µs) by AutoLoader::can at line 65 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (10µs+14µ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 (11µs+12µs) by FileHandle::BEGIN at line 46 of /opt/wise/lib/perl5/5.10.0/FileHandle.pm # once (10µ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 (10µs+12µs) by AutoLoader::AUTOLOAD at line 30 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (11µs+10µs) by constant::BEGIN or constant::import at line 101 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (10µ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 (11µs+9µs) by AutoLoader::BEGIN or AutoLoader::unimport at line 199 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (10µs+10µ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 (9µ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 (10µs+9µs) by AutoLoader::import at line 153 of /opt/wise/lib/perl5/5.10.0/AutoLoader.pm # once (13µ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 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 (10µs+0) by WISE::Env::_export at line 267 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm # once (10µ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 {
40680.000385.6e-6 shift;
41 $^H &= ~ (@_ ? bits(@_) : $default_bits);
# spent 487µs making 30 calls to strict::bits, avg 16µs/call
42}
43
4411.4e-51.4e-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.