← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 21:27:43 2010
Reported on Sun Nov 14 21:29:10 2010

Filename/usr/share/perl/5.10/constant.pm
StatementsExecuted 760 statements in 3.33ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
323251.83ms2.19msconstant::::importconstant::import
3211107µs107µsconstant::::CORE:matchconstant::CORE:match (opcode)
321183µs83µsconstant::::CORE:regcompconstant::CORE:regcomp (opcode)
11139µs39µsconstant::::BEGIN@2constant::BEGIN@2
11116µs175µsconstant::::BEGIN@4constant::BEGIN@4
11115µs40µsconstant::::BEGIN@38constant::BEGIN@38
11114µs19µsconstant::::BEGIN@3constant::BEGIN@3
11114µs40µsconstant::::BEGIN@101constant::BEGIN@101
11113µs74µsconstant::::BEGIN@6constant::BEGIN@6
0000s0sconstant::::__ANON__[:115]constant::__ANON__[:115]
0000s0sconstant::::__ANON__[:119]constant::__ANON__[:119]
0000s0sconstant::::__ANON__[:121]constant::__ANON__[:121]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package constant;
2361µs139µs
# spent 39µs within constant::BEGIN@2 which was called: # once (39µs+0s) by MARC::Field::BEGIN@7 at line 2
use 5.005;
# spent 39µs making 1 call to constant::BEGIN@2
3339µs224µs
# spent 19µs (14+5) within constant::BEGIN@3 which was called: # once (14µs+5µs) by MARC::Field::BEGIN@7 at line 3
use strict;
# spent 19µs making 1 call to constant::BEGIN@3 # spent 5µs making 1 call to strict::import
4344µs2334µs
# spent 175µs (16+159) within constant::BEGIN@4 which was called: # once (16µs+159µs) by MARC::Field::BEGIN@7 at line 4
use warnings::register;
# spent 175µs making 1 call to constant::BEGIN@4 # spent 159µs making 1 call to warnings::register::import
5
63192µs2135µs
# spent 74µs (13+61) within constant::BEGIN@6 which was called: # once (13µs+61µs) by MARC::Field::BEGIN@7 at line 6
use vars qw($VERSION %declared);
# spent 74µs making 1 call to constant::BEGIN@6 # spent 61µs making 1 call to vars::import
712µs$VERSION = '1.17';
8
9#=======================================================================
10
11# Some names are evil choices.
1219µsmy %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
1313µs$keywords{UNITCHECK}++ if $] > 5.009;
14
1518µsmy %forced_into_main = map +($_, 1),
16 qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
17
1818µsmy %forbidden = (%keywords, %forced_into_main);
19
20#=======================================================================
21# import() - import symbols into user's namespace
22#
23# What we actually do is define a function in the caller's namespace
24# which returns the value. The function we create will normally
25# be inlined as a constant, thereby avoiding further sub calling
26# overhead.
27#=======================================================================
28
# spent 2.19ms (1.83+357µs) within constant::import which was called 32 times, avg 68µs/call: # once (70µs+39µs) by MARC::Field::BEGIN@7 at line 7 of MARC/Field.pm # once (81µs+17µs) by MARC::Charset::Constants::BEGIN@22 at line 22 of MARC/Charset/Constants.pm # once (78µs+12µs) by MARC::File::USMARC::BEGIN@19 at line 19 of MARC/File/USMARC.pm # once (62µs+11µs) by MARC::Field::BEGIN@8 at line 8 of MARC/Field.pm # once (59µs+13µs) by XML::SAX::BEGIN@20 at line 20 of XML/SAX.pm # once (60µs+10µs) by MARC::Charset::Constants::BEGIN@29 at line 29 of MARC/Charset/Constants.pm # once (58µs+10µs) by XML::SAX::BEGIN@22 at line 22 of XML/SAX.pm # once (57µs+11µs) by MARC::File::USMARC::BEGIN@22 at line 22 of MARC/File/USMARC.pm # once (57µs+10µs) by MARC::Charset::Constants::BEGIN@39 at line 39 of MARC/Charset/Constants.pm # once (56µs+11µs) by MARC::Charset::Constants::BEGIN@24 at line 24 of MARC/Charset/Constants.pm # once (57µs+10µs) by MARC::Charset::Constants::BEGIN@43 at line 43 of MARC/Charset/Constants.pm # once (56µs+10µs) by MARC::Charset::Constants::BEGIN@32 at line 32 of MARC/Charset/Constants.pm # once (57µs+9µs) by MARC::Charset::Constants::BEGIN@42 at line 42 of MARC/Charset/Constants.pm # once (56µs+10µs) by MARC::Charset::Constants::BEGIN@46 at line 46 of MARC/Charset/Constants.pm # once (56µs+10µs) by MARC::Charset::Constants::BEGIN@47 at line 47 of MARC/Charset/Constants.pm # once (55µs+10µs) by MARC::Charset::Constants::BEGIN@35 at line 35 of MARC/Charset/Constants.pm # once (56µs+9µs) by MARC::Charset::Constants::BEGIN@27 at line 27 of MARC/Charset/Constants.pm # once (56µs+9µs) by MARC::Charset::Constants::BEGIN@37 at line 37 of MARC/Charset/Constants.pm # once (54µs+10µs) by MARC::Charset::Constants::BEGIN@30 at line 30 of MARC/Charset/Constants.pm # once (54µs+10µs) by MARC::Charset::Constants::BEGIN@34 at line 34 of MARC/Charset/Constants.pm # once (54µs+10µs) by MARC::File::USMARC::BEGIN@20 at line 20 of MARC/File/USMARC.pm # once (54µs+10µs) by MARC::Record::BEGIN@34 at line 34 of MARC/Record.pm # once (54µs+9µs) by MARC::Charset::Constants::BEGIN@44 at line 44 of MARC/Charset/Constants.pm # once (54µs+9µs) by MARC::Charset::Constants::BEGIN@25 at line 25 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@36 at line 36 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@41 at line 41 of MARC/Charset/Constants.pm # once (53µs+10µs) by MARC::Charset::Constants::BEGIN@45 at line 45 of MARC/Charset/Constants.pm # once (52µs+10µs) by XML::SAX::BEGIN@23 at line 23 of XML/SAX.pm # once (52µs+10µs) by MARC::Charset::Constants::BEGIN@26 at line 26 of MARC/Charset/Constants.pm # once (52µs+9µs) by MARC::Charset::Constants::BEGIN@40 at line 40 of MARC/Charset/Constants.pm # once (51µs+10µs) by MARC::Charset::Constants::BEGIN@31 at line 31 of MARC/Charset/Constants.pm # once (52µs+9µs) by MARC::File::USMARC::BEGIN@21 at line 21 of MARC/File/USMARC.pm
sub import {
29320671µs my $class = shift;
30 return unless @_; # Ignore 'use constant;'
31 my $constants;
32 my $multiple = ref $_[0];
33 my $pkg = caller;
34 my $symtab;
35 my $str_end = $] >= 5.006 ? "\\z" : "\\Z";
36
373282µs if ($] > 5.009002) {
383405µs265µs
# spent 40µs (15+25) within constant::BEGIN@38 which was called: # once (15µs+25µs) by MARC::Field::BEGIN@7 at line 38
no strict 'refs';
# spent 40µs making 1 call to constant::BEGIN@38 # spent 25µs making 1 call to strict::unimport
39 $symtab = \%{$pkg . '::'};
40 };
41
423277µs if ( $multiple ) {
43 if (ref $_[0] ne 'HASH') {
44 require Carp;
45 Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
46 }
47 $constants = shift;
48 } else {
49 $constants->{+shift} = undef;
50 }
51
52 foreach my $name ( keys %$constants ) {
5396601µs unless (defined $name) {
54 require Carp;
55 Carp::croak("Can't use undef as constant name");
56 }
57
58 # Normal constant name
5964190µs if ($name =~ /^_?[^\W_0-9]\w*$str_end/ and !$forbidden{$name}) {
# spent 107µs making 32 calls to constant::CORE:match, avg 3µs/call # spent 83µs making 32 calls to constant::CORE:regcomp, avg 3µs/call
60 # Everything is okay
61
62 # Name forced into main, but we're not in main. Fatal.
63 } elsif ($forced_into_main{$name} and $pkg ne 'main') {
64 require Carp;
65 Carp::croak("Constant name '$name' is forced into main::");
66
67 # Starts with double underscore. Fatal.
68 } elsif ($name =~ /^__/) {
69 require Carp;
70 Carp::croak("Constant name '$name' begins with '__'");
71
72 # Maybe the name is tolerable
73 } elsif ($name =~ /^[A-Za-z_]\w*$str_end/) {
74 # Then we'll warn only if you've asked for warnings
75 if (warnings::enabled()) {
76 if ($keywords{$name}) {
77 warnings::warn("Constant name '$name' is a Perl keyword");
78 } elsif ($forced_into_main{$name}) {
79 warnings::warn("Constant name '$name' is " .
80 "forced into package main::");
81 }
82 }
83
84 # Looks like a boolean
85 # use constant FRED == fred;
86 } elsif ($name =~ /^[01]?$str_end/) {
87 require Carp;
88 if (@_) {
89 Carp::croak("Constant name '$name' is invalid");
90 } else {
91 Carp::croak("Constant name looks like boolean value");
92 }
93
94 } else {
95 # Must have bad characters
96 require Carp;
97 Carp::croak("Constant name '$name' has invalid characters");
98 }
99
100 {
1013288µs266µs
# spent 40µs (14+26) within constant::BEGIN@101 which was called: # once (14µs+26µs) by MARC::Field::BEGIN@7 at line 101
no strict 'refs';
# spent 40µs making 1 call to constant::BEGIN@101 # spent 26µs making 1 call to strict::unimport
10296213µs my $full_name = "${pkg}::$name";
103 $declared{$full_name}++;
10464118µs if ($multiple || @_ == 1) {
105 my $scalar = $multiple ? $constants->{$name} : $_[0];
10696499µs if ($symtab && !exists $symtab->{$name}) {
107 # No typeglob yet, so we can use a reference as space-
108 # efficient proxy for a constant subroutine
109 # The check in Perl_ck_rvconst knows that inlinable
110 # constants from cv_const_sv are read only. So we have to:
1113271µs Internals::SvREADONLY($scalar, 1);
# spent 71µs making 32 calls to Internals::SvREADONLY, avg 2µs/call
112 $symtab->{$name} = \$scalar;
1133296µs mro::method_changed_in($pkg);
# spent 96µs making 32 calls to mro::method_changed_in, avg 3µs/call
114 } else {
115 *$full_name = sub () { $scalar };
116 }
117 } elsif (@_) {
118 my @list = @_;
119 *$full_name = sub () { @list };
120 } else {
121 *$full_name = sub () { };
122 }
123 }
124 }
125}
126
127112µs1;
128
129__END__
 
# spent 107µs within constant::CORE:match which was called 32 times, avg 3µs/call: # 32 times (107µs+0s) by constant::import at line 59, avg 3µs/call
sub constant::CORE:match; # opcode
# spent 83µs within constant::CORE:regcomp which was called 32 times, avg 3µs/call: # 32 times (83µs+0s) by constant::import at line 59, avg 3µs/call
sub constant::CORE:regcomp; # opcode
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.