← Index
NYTProf Performance Profile   « block view • line view • sub view »
For conv.pl
  Run on Sun Nov 14 21:14:18 2010
Reported on Sun Nov 14 21:17:50 2010

Filename/usr/share/perl/5.10/constant.pm
StatementsExecuted 944 statements in 3.95ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
404062.34ms2.79msconstant::::importconstant::import
4011135µs135µsconstant::::CORE:matchconstant::CORE:match (opcode)
401197µs97µsconstant::::CORE:regcompconstant::CORE:regcomp (opcode)
11140µs40µsconstant::::BEGIN@2constant::BEGIN@2
11114µs38µsconstant::::BEGIN@38constant::BEGIN@38
11114µs184µsconstant::::BEGIN@4constant::BEGIN@4
11114µs21µsconstant::::BEGIN@3constant::BEGIN@3
11113µs80µsconstant::::BEGIN@6constant::BEGIN@6
11113µs38µsconstant::::BEGIN@101constant::BEGIN@101
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;
2362µs140µs
# spent 40µs within constant::BEGIN@2 which was called: # once (40µs+0s) by MARC::Field::BEGIN@7 at line 2
use 5.005;
# spent 40µs making 1 call to constant::BEGIN@2
3339µs228µs
# spent 21µs (14+7) within constant::BEGIN@3 which was called: # once (14µs+7µs) by MARC::Field::BEGIN@7 at line 3
use strict;
# spent 21µs making 1 call to constant::BEGIN@3 # spent 7µs making 1 call to strict::import
4342µs2354µs
# spent 184µs (14+170) within constant::BEGIN@4 which was called: # once (14µs+170µs) by MARC::Field::BEGIN@7 at line 4
use warnings::register;
# spent 184µs making 1 call to constant::BEGIN@4 # spent 170µs making 1 call to warnings::register::import
5
63201µs2147µs
# spent 80µs (13+67) within constant::BEGIN@6 which was called: # once (13µs+67µs) by MARC::Field::BEGIN@7 at line 6
use vars qw($VERSION %declared);
# spent 80µs making 1 call to constant::BEGIN@6 # spent 67µ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.79ms (2.34+453µs) within constant::import which was called 40 times, avg 70µs/call: # once (71µs+40µs) by MARC::Field::BEGIN@7 at line 7 of MARC/Field.pm # once (74µs+16µs) by MARC::File::USMARC::BEGIN@19 at line 19 of MARC/File/USMARC.pm # once (74µs+15µs) by MARC::Charset::Constants::BEGIN@22 at line 22 of MARC/Charset/Constants.pm # once (71µs+13µs) by XML::SAX::BEGIN@20 at line 20 of XML/SAX.pm # once (69µs+13µs) by XML::NamespaceSupport::BEGIN@9 at line 9 of XML/NamespaceSupport.pm # once (68µs+10µs) by MARC::Charset::Constants::BEGIN@29 at line 29 of MARC/Charset/Constants.pm # once (64µs+10µs) by MARC::File::USMARC::BEGIN@21 at line 21 of MARC/File/USMARC.pm # once (63µs+11µs) by MARC::Record::BEGIN@34 at line 34 of MARC/Record.pm # once (54µs+18µs) by XML::NamespaceSupport::BEGIN@11 at line 11 of XML/NamespaceSupport.pm # once (63µs+9µs) by XML::NamespaceSupport::BEGIN@10 at line 10 of XML/NamespaceSupport.pm # once (58µs+11µs) by MARC::Charset::Constants::BEGIN@40 at line 40 of MARC/Charset/Constants.pm # once (59µs+10µs) by MARC::Charset::Constants::BEGIN@31 at line 31 of MARC/Charset/Constants.pm # once (57µs+11µs) by MARC::Charset::Constants::BEGIN@24 at line 24 of MARC/Charset/Constants.pm # once (57µs+10µs) by MARC::File::USMARC::BEGIN@20 at line 20 of MARC/File/USMARC.pm # once (58µs+9µs) by XML::SAX::BEGIN@22 at line 22 of XML/SAX.pm # once (58µs+9µs) by MARC::Charset::Constants::BEGIN@26 at line 26 of MARC/Charset/Constants.pm # once (56µs+11µs) by MARC::Charset::Constants::BEGIN@27 at line 27 of MARC/Charset/Constants.pm # once (57µs+10µs) by MARC::Charset::Constants::BEGIN@47 at line 47 of MARC/Charset/Constants.pm # once (58µs+9µs) by MARC::Charset::Constants::BEGIN@34 at line 34 of MARC/Charset/Constants.pm # once (54µs+13µs) by MARC::Charset::Constants::BEGIN@45 at line 45 of MARC/Charset/Constants.pm # once (58µs+9µs) by MARC::Charset::Constants::BEGIN@37 at line 37 of MARC/Charset/Constants.pm # once (57µs+10µs) by XML::NamespaceSupport::BEGIN@14 at line 14 of XML/NamespaceSupport.pm # once (55µs+11µs) by MARC::Charset::Constants::BEGIN@35 at line 35 of MARC/Charset/Constants.pm # once (57µs+9µs) by MARC::Charset::Constants::BEGIN@30 at line 30 of MARC/Charset/Constants.pm # once (57µs+9µs) by MARC::Charset::Constants::BEGIN@44 at line 44 of MARC/Charset/Constants.pm # once (56µs+9µs) by MARC::File::USMARC::BEGIN@22 at line 22 of MARC/File/USMARC.pm # once (56µs+9µs) by MARC::Charset::Constants::BEGIN@46 at line 46 of MARC/Charset/Constants.pm # once (55µs+10µs) by MARC::Charset::Constants::BEGIN@25 at line 25 of MARC/Charset/Constants.pm # once (55µs+10µs) by MARC::Charset::Constants::BEGIN@39 at line 39 of MARC/Charset/Constants.pm # once (55µs+10µs) by MARC::Charset::Constants::BEGIN@36 at line 36 of MARC/Charset/Constants.pm # once (55µs+10µs) by XML::NamespaceSupport::BEGIN@13 at line 13 of XML/NamespaceSupport.pm # once (53µs+11µs) by XML::SAX::BEGIN@23 at line 23 of XML/SAX.pm # once (53µs+11µs) by MARC::Charset::Constants::BEGIN@32 at line 32 of MARC/Charset/Constants.pm # once (54µs+10µs) by MARC::Charset::Constants::BEGIN@42 at line 42 of MARC/Charset/Constants.pm # once (54µs+10µs) by MARC::Charset::Constants::BEGIN@41 at line 41 of MARC/Charset/Constants.pm # once (55µs+9µs) by MARC::Charset::Constants::BEGIN@43 at line 43 of MARC/Charset/Constants.pm # once (54µs+10µs) by XML::NamespaceSupport::BEGIN@12 at line 12 of XML/NamespaceSupport.pm # once (54µs+9µs) by XML::NamespaceSupport::BEGIN@15 at line 15 of XML/NamespaceSupport.pm # once (52µs+10µs) by MARC::Field::BEGIN@8 at line 8 of MARC/Field.pm # once (52µs+9µs) by XML::NamespaceSupport::BEGIN@16 at line 16 of XML/NamespaceSupport.pm
sub import {
299202.88ms 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
37 if ($] > 5.009002) {
383395µs262µs
# spent 38µs (14+24) within constant::BEGIN@38 which was called: # once (14µs+24µs) by MARC::Field::BEGIN@7 at line 38
no strict 'refs';
# spent 38µs making 1 call to constant::BEGIN@38 # spent 24µs making 1 call to strict::unimport
39 $symtab = \%{$pkg . '::'};
40 };
41
42 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 ) {
53 unless (defined $name) {
54 require Carp;
55 Carp::croak("Can't use undef as constant name");
56 }
57
58 # Normal constant name
5980232µs if ($name =~ /^_?[^\W_0-9]\w*$str_end/ and !$forbidden{$name}) {
# spent 135µs making 40 calls to constant::CORE:match, avg 3µs/call # spent 97µs making 40 calls to constant::CORE:regcomp, avg 2µ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µs263µs
# spent 38µs (13+25) within constant::BEGIN@101 which was called: # once (13µs+25µs) by MARC::Field::BEGIN@7 at line 101
no strict 'refs';
# spent 38µs making 1 call to constant::BEGIN@101 # spent 25µs making 1 call to strict::unimport
102 my $full_name = "${pkg}::$name";
103 $declared{$full_name}++;
104 if ($multiple || @_ == 1) {
105 my $scalar = $multiple ? $constants->{$name} : $_[0];
106 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:
1114090µs Internals::SvREADONLY($scalar, 1);
# spent 90µs making 40 calls to Internals::SvREADONLY, avg 2µs/call
112 $symtab->{$name} = \$scalar;
11340131µs mro::method_changed_in($pkg);
# spent 131µs making 40 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 135µs within constant::CORE:match which was called 40 times, avg 3µs/call: # 40 times (135µs+0s) by constant::import at line 59, avg 3µs/call
sub constant::CORE:match; # opcode
# spent 97µs within constant::CORE:regcomp which was called 40 times, avg 2µs/call: # 40 times (97µs+0s) by constant::import at line 59, avg 2µs/call
sub constant::CORE:regcomp; # opcode
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.