← Index
Performance Profile   « block view • line view • sub view »
For /wise/base/deliv/dev/bin/framedepth
  Run on Fri May 28 15:23:26 2010
Reported on Fri May 28 15:26:17 2010

File/opt/wise/lib/perl5/5.10.0/vars.pm
Statements Executed1171
Total Time0.00449500000000002 seconds

Subroutines — ordered by exclusive time
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
5959430.004050.00405vars::import
00000vars::BEGIN

LineStmts.Exclusive
Time		Avg.Code
1package vars;
2
338.4e-52.8e-5use 5.006;
4
511.0e-61.0e-6our $VERSION = '1.01';
6
730.000410.00014use warnings::register;
# spent 118µs making 1 call to warnings::register::import
830.000340.00011use strict qw(vars subs);
# spent 24µs making 1 call to strict::import
9
10
# spent 4.05ms within vars::import which was called 59 times, avg 69µs/call: # once (375µs+0) by WISE::IPACTbl::BEGIN at line 13 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm # once (139µs+0) at line 16 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (138µs+0) at line 7 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm # once (117µs+0) at line 7 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/WCS/LibWCS.pm # once (112µs+0) at line 37 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Time.pm # once (99µs+0) at line 44 of /wise/base/deliv/dev/lib/perl/WISE/Params.pm # once (98µs+0) by WISE::IPACTblXS::BEGIN at line 8 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/IPACTblXS.pm # once (96µs+0) by WISE::CHealPix::BEGIN at line 11 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/CHealPix.pm # once (96µs+0) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/FITSIO.pm # once (94µs+0) at line 10 of /opt/wise/lib/perl5/5.10.0/Math/Complex.pm # once (87µs+0) by Clone::BEGIN at line 6 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Clone.pm # once (86µs+0) at line 6 of /wise/base/static/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi/Astro/FITS/CFITSIO.pm # once (85µs+0) at line 8 of /wise/base/deliv/dev/lib/perl/WISE/Time.pm # once (84µs+0) at line 3 of /wise/base/deliv/dev/lib/perl/WISE/Dumper.pm # once (84µs+0) by List::Util::BEGIN at line 10 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/List/Util.pm # once (81µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Time/HiRes.pm # once (80µs+0) at line 12 of /wise/base/deliv/dev/lib/perl/FITSIO.pm # once (80µs+0) at line 17 of /wise/base/deliv/dev/lib/perl/WISE/FITSIO/Utils.pm # once (80µs+0) at line 10 of /wise/base/deliv/dev/lib/perl/WISE/IOUtils.pm # once (79µs+0) at line 31 of /wise/base/static/lib/perl5/site_perl/5.10.0/Astro/Coord.pm # once (78µs+0) at line 120 of /wise/base/static/lib/perl5/site_perl/5.10.0/Time/Timezone.pm # once (76µs+0) at line 172 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Cwd.pm # once (74µs+0) by WISE::CoUtilsXS::BEGIN at line 4 of /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/CoUtilsXS.pm # once (74µs+0) at line 8 of /wise/base/static/lib/perl5/site_perl/5.10.0/WISE/Env.pm # once (74µs+0) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/PgAitoff.pm # once (70µs+0) by WISE::Spawn::BEGIN at line 1082 of /wise/base/deliv/dev/lib/perl/WISE/Spawn.pm # once (67µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/Time/Local.pm # once (67µs+0) at line 14 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (67µs+0) by POSIX::SigRt::BEGIN at line 73 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/POSIX.pm # once (64µs+0) at line 3 of /opt/wise/lib/perl5/5.10.0/Text/ParseWords.pm # once (63µs+0) at line 12 of /wise/base/deliv/dev/lib/perl/WISE/BandUtils.pm # once (61µs+0) at line 27 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm # once (60µs+0) by Scalar::Util::BEGIN at line 10 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Scalar/Util.pm # once (56µs+0) by WISE::Release::BEGIN at line 10 of /wise/base/deliv/dev/lib/perl/WISE/Release.pm # once (56µs+0) at line 13 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (54µs+0) by Digest::MD5::BEGIN at line 4 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/Digest/MD5.pm # once (53µs+0) by File::Slurp::BEGIN at line 61 of /wise/base/static/lib/perl5/site_perl/5.10.0/File/Slurp.pm # once (52µs+0) at line 21 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (51µs+0) at line 9 of /opt/wise/lib/perl5/5.10.0/Text/Tabs.pm # once (48µs+0) by File::Spec::BEGIN at line 4 of /opt/wise/lib/perl5/5.10.0/File/Spec.pm # once (47µs+0) at line 19 of /opt/wise/lib/perl5/5.10.0/File/Path.pm # once (44µs+0) at line 14 of /wise/base/deliv/dev/lib/perl/WISE/Spawn.pm # once (43µs+0) at line 2011 of /wise/base/deliv/dev/lib/perl/WISE/Wrap.pm # once (39µs+0) at line 1364 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (37µs+0) at line 6 of /opt/wise/lib/perl5/5.10.0/constant.pm # once (35µs+0) at line 53 of /wise/base/deliv/dev/lib/perl/WISE/Params.pm # once (34µs+0) at line 40 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (34µs+0) at line 853 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm # once (34µs+0) at line 1970 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (33µs+0) at line 675 of /wise/base/deliv/dev/lib/perl/WISE/Time.pm # once (31µs+0) at line 4 of /opt/wise/lib/perl5/5.10.0/File/Spec/Unix.pm # once (28µs+0) at line 8 of /wise/base/deliv/dev/lib/perl/WISE/Utils.pm # once (25µs+0) by Digest::base::BEGIN at line 4 of /opt/wise/lib/perl5/5.10.0/Digest/base.pm # once (24µs+0) by base::BEGIN at line 4 of /opt/wise/lib/perl5/5.10.0/base.pm # once (23µs+0) by Time::Timezone::tz2zone at line 24 of /wise/base/static/lib/perl5/site_perl/5.10.0/Time/Timezone.pm # once (23µs+0) at line 16 of /wise/base/static/lib/perl5/site_perl/5.10.0/Time/Timezone.pm # once (22µs+0) by FITSIO::BEGIN or FITSIO::reform_tbl at line 1530 of /wise/base/deliv/dev/lib/perl/FITSIO.pm # once (21µs+0) at line 41 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm # once (19µs+0) by WISE::UtilsLight::BEGIN at line 42 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm
sub import {
1111600.003663.2e-6 my $callpack = caller;
12 my ($pack, @imports) = @_;
13 my ($sym, $ch);
14 foreach (@imports) {
15 if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
16 if ($sym =~ /\W/) {
17 # time for a more-detailed check-up
18 if ($sym =~ /^\w+[[{].*[]}]$/) {
19 require Carp;
20 Carp::croak("Can't declare individual elements of hash or array");
21 } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
22 warnings::warn("No need to declare built-in vars");
23 } elsif (($^H &= strict::bits('vars'))) {
24 require Carp;
25 Carp::croak("'$_' is not a valid variable name under strict vars");
26 }
27 }
28 $sym = "${callpack}::$sym" unless $sym =~ /::/;
29 *$sym =
30 ( $ch eq "\$" ? \$$sym
31 : $ch eq "\@" ? \@$sym
32 : $ch eq "\%" ? \%$sym
33 : $ch eq "\*" ? \*$sym
34 : $ch eq "\&" ? \&$sym
35 : do {
36 require Carp;
37 Carp::croak("'$_' is not a valid variable name");
38 });
39 } else {
40 require Carp;
41 Carp::croak("'$_' is not a valid variable name");
42 }
43 }
44};
45
4614.0e-64.0e-61;
47__END__
48
49=head1 NAME
50
51vars - Perl pragma to predeclare global variable names (obsolete)
52
53=head1 SYNOPSIS
54
55 use vars qw($frob @mung %seen);
56
57=head1 DESCRIPTION
58
59NOTE: For variables in the current package, the functionality provided
60by this pragma has been superseded by C<our> declarations, available
61in Perl v5.6.0 or later. See L<perlfunc/our>.
62
63This will predeclare all the variables whose names are
64in the list, allowing you to use them under "use strict", and
65disabling any typo warnings.
66
67Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
68C<use subs> declarations are not BLOCK-scoped. They are thus effective
69for the entire file in which they appear. You may not rescind such
70declarations with C<no vars> or C<no subs>.
71
72Packages such as the B<AutoLoader> and B<SelfLoader> that delay
73loading of subroutines within packages can create problems with
74package lexicals defined using C<my()>. While the B<vars> pragma
75cannot duplicate the effect of package lexicals (total transparency
76outside of the package), it can act as an acceptable substitute by
77pre-declaring global symbols, ensuring their availability to the
78later-loaded routines.
79
80See L<perlmodlib/Pragmatic Modules>.
81
82=cut

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