← Index
NYTProf Performance Profile   « line view »
For /usr/local/bin/sa-learn
  Run on Sun Nov 5 03:09:29 2017
Reported on Mon Nov 6 13:20:46 2017

Filename/usr/local/lib/perl5/5.24/AutoLoader.pm
StatementsExecuted 224 statements in 9.14ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
5112.76ms4.73msAutoLoader::::autoload_subAutoLoader::autoload_sub
5552.38ms2.74msAutoLoader::::importAutoLoader::import
511463µs1.16msAutoLoader::::find_filenameAutoLoader::find_filename
511421µs421µsAutoLoader::::CORE:ftereadAutoLoader::CORE:fteread (opcode)
1021312µs312µsAutoLoader::::CORE:regcompAutoLoader::CORE:regcomp (opcode)
2371167µs167µsAutoLoader::::CORE:substAutoLoader::CORE:subst (opcode)
553131µs4.86msAutoLoader::::AUTOLOADAutoLoader::AUTOLOAD
1341100µs100µsAutoLoader::::CORE:matchAutoLoader::CORE:match (opcode)
202182µs82µsAutoLoader::::CORE:substcontAutoLoader::CORE:substcont (opcode)
11146µs52µsAutoLoader::::BEGIN@3AutoLoader::BEGIN@3
11133µs33µsAutoLoader::::BEGIN@4AutoLoader::BEGIN@4
11126µs68µsAutoLoader::::BEGIN@146AutoLoader::BEGIN@146
11125µs63µsAutoLoader::::BEGIN@194AutoLoader::BEGIN@194
11122µs22µsAutoLoader::::BEGIN@13AutoLoader::BEGIN@13
11119µs70µsAutoLoader::::BEGIN@37AutoLoader::BEGIN@37
0000s0sAutoLoader::::__ANON__[:38]AutoLoader::__ANON__[:38]
0000s0sAutoLoader::::unimportAutoLoader::unimport
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package AutoLoader;
2
3252µs259µs
# spent 52µs (46+7) within AutoLoader::BEGIN@3 which was called: # once (46µs+7µs) by NetAddr::IP::InetBase::BEGIN@9 at line 3
use strict;
# spent 52µs making 1 call to AutoLoader::BEGIN@3 # spent 7µs making 1 call to strict::import
42254µs133µs
# spent 33µs within AutoLoader::BEGIN@4 which was called: # once (33µs+0s) by NetAddr::IP::InetBase::BEGIN@9 at line 4
use 5.006_001;
# spent 33µs making 1 call to AutoLoader::BEGIN@4
5
6our($VERSION, $AUTOLOAD);
7
812µsmy $is_dosish;
9my $is_epoc;
10my $is_vms;
11my $is_macos;
12
13
# spent 22µs within AutoLoader::BEGIN@13 which was called: # once (22µs+0s) by NetAddr::IP::InetBase::BEGIN@9 at line 19
BEGIN {
1416µs $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare';
1512µs $is_epoc = $^O eq 'epoc';
1612µs $is_vms = $^O eq 'VMS';
1712µs $is_macos = $^O eq 'MacOS';
18117µs $VERSION = '5.74';
191211µs122µs}
# spent 22µs making 1 call to AutoLoader::BEGIN@13
20
21
# spent 4.86ms (131µs+4.73) within AutoLoader::AUTOLOAD which was called 5 times, avg 972µs/call: # once (24µs+1.30ms) by NetAddr::IP::Lite::BEGIN@9 at line 81 of NetAddr/IP/InetBase.pm # once (22µs+965µs) by NetAddr::IP::InetBase::inet_any2n at line 490 of NetAddr/IP/InetBase.pm # once (24µs+935µs) by IO::Socket::SSL::init at line 389 of Net/SSLeay.pm # once (29µs+915µs) by NetAddr::IP::Lite::addr at line 1105 of NetAddr/IP/Lite.pm # once (31µs+614µs) by NetAddr::IP::BEGIN@8 at line 644 of NetAddr/IP/Lite.pm
AUTOLOAD {
22512µs my $sub = $AUTOLOAD;
23535µs54.73ms autoload_sub($sub);
# spent 4.73ms making 5 calls to AutoLoader::autoload_sub, avg 946µs/call
24470µs41.94ms goto &$sub;
# spent 1.27ms making 1 call to NetAddr::IP::InetBase::inet_any2n # spent 297µs making 1 call to Net::SSLeay::randomize # spent 243µs making 1 call to NetAddr::IP::InetBase::ipv6_aton # spent 130µs making 1 call to NetAddr::IP::InetBase::inet_n2dx
25}
26
27
# spent 4.73ms (2.76+1.97) within AutoLoader::autoload_sub which was called 5 times, avg 946µs/call: # 5 times (2.76ms+1.97ms) by AutoLoader::AUTOLOAD at line 23, avg 946µs/call
sub autoload_sub {
28512µs my $sub = shift;
29
30540µs51.16ms my $filename = AutoLoader::find_filename( $sub );
# spent 1.16ms making 5 calls to AutoLoader::find_filename, avg 233µs/call
31
32512µs my $save = $@;
335150µs local $!; # Do not munge the value.
34152.40ms eval { local $SIG{__DIE__}; require $filename };
3559µs if ($@) {
36121µs14µs if (substr($sub,-9) eq '::DESTROY') {
# spent 4µs making 1 call to AutoLoader::CORE:match
3721.17ms2122µs
# spent 70µs (19+51) within AutoLoader::BEGIN@37 which was called: # once (19µs+51µs) by NetAddr::IP::InetBase::BEGIN@9 at line 37
no strict 'refs';
# spent 70µs making 1 call to AutoLoader::BEGIN@37 # spent 51µs making 1 call to strict::unimport
38 *$sub = sub {};
39 $@ = undef;
40 } elsif ($@ =~ /^Can't locate/) {
41 # The load might just have failed because the filename was too
42 # long for some old SVR3 systems which treat long names as errors.
43 # If we can successfully truncate a long name then it's worth a go.
44 # There is a slight risk that we could pick up the wrong file here
45 # but autosplit should have warned about that when splitting.
46116µs19µs if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
# spent 9µs making 1 call to AutoLoader::CORE:subst
47 eval { local $SIG{__DIE__}; require $filename };
48 }
49 }
5012µs if ($@){
51118µs19µs $@ =~ s/ at .*\n//;
# spent 9µs making 1 call to AutoLoader::CORE:subst
5212µs my $error = $@;
5312µs require Carp;
5416µs1786µs Carp::croak($error);
# spent 786µs making 1 call to Carp::croak
55 }
56 }
57410µs $@ = $save;
58
59451µs return 1;
60}
61
62
# spent 1.16ms (463µs+701µs) within AutoLoader::find_filename which was called 5 times, avg 233µs/call: # 5 times (463µs+701µs) by AutoLoader::autoload_sub at line 30, avg 233µs/call
sub find_filename {
63511µs my $sub = shift;
6459µs my $filename;
65 # Braces used to preserve $1 et al.
66 {
67 # Try to find the autoloaded file from the package-qualified
68 # name of the sub. e.g., if the sub needed is
69 # Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is
70 # something like '/usr/lib/perl5/Getopt/Long.pm', and the
71 # autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'.
72 #
73 # However, if @INC is a relative path, this might not work. If,
74 # for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is
75 # 'lib/Getopt/Long.pm', and we want to require
76 # 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib').
77 # In this case, we simple prepend the 'auto/' and let the
78 # C<require> take care of the searching for us.
79
8010119µs550µs my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/);
# spent 50µs making 5 calls to AutoLoader::CORE:match, avg 10µs/call
81569µs532µs $pkg =~ s#::#/#g;
# spent 32µs making 5 calls to AutoLoader::CORE:subst, avg 6µs/call
82539µs if (defined($filename = $INC{"$pkg.pm"})) {
83521µs if ($is_macos) {
84 $pkg =~ tr#/#:#;
85 $filename = undef
86 unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
87 } else {
885294µs20169µs $filename = undef
# spent 99µs making 5 calls to AutoLoader::CORE:regcomp, avg 20µs/call # spent 38µs making 10 calls to AutoLoader::CORE:substcont, avg 4µs/call # spent 31µs making 5 calls to AutoLoader::CORE:subst, avg 6µs/call
89 unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
90 }
91
92 # if the file exists, then make sure that it is a
93 # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
94 # or './lib/auto/foo/bar.al'. This avoids C<require> searching
95 # (and failing) to find the 'lib/auto/foo/bar.al' because it
96 # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
97
985473µs5421µs if (defined $filename and -r $filename) {
# spent 421µs making 5 calls to AutoLoader::CORE:fteread, avg 84µs/call
99456µs420µs unless ($filename =~ m|^/|s) {
# spent 20µs making 4 calls to AutoLoader::CORE:match, avg 5µs/call
100 if ($is_dosish) {
101 unless ($filename =~ m{^([a-z]:)?[\\/]}is) {
102 if ($^O ne 'NetWare') {
103 $filename = "./$filename";
104 } else {
105 $filename = "$filename";
106 }
107 }
108 }
109 elsif ($is_epoc) {
110 unless ($filename =~ m{^([a-z?]:)?[\\/]}is) {
111 $filename = "./$filename";
112 }
113 }
114 elsif ($is_vms) {
115 # XXX todo by VMSmiths
116 $filename = "./$filename";
117 }
118 elsif (!$is_macos) {
119 $filename = "./$filename";
120 }
121 }
122 }
123 else {
12412µs $filename = undef;
125 }
126 }
127515µs unless (defined $filename) {
128 # let C<require> do the searching
12914µs $filename = "auto/$sub.al";
130117µs19µs $filename =~ s#::#/#g;
# spent 9µs making 1 call to AutoLoader::CORE:subst
131 }
132 }
133544µs return $filename;
134}
135
136
# spent 2.74ms (2.38+359µs) within AutoLoader::import which was called 5 times, avg 548µs/call: # once (935µs+72µs) by Net::SSLeay::BEGIN@24 at line 24 of Net/SSLeay.pm # once (487µs+61µs) by NetAddr::IP::BEGIN@23 at line 23 of NetAddr/IP.pm # once (402µs+70µs) by NetAddr::IP::InetBase::BEGIN@9 at line 9 of NetAddr/IP/InetBase.pm # once (293µs+85µs) by Net::LibIDN::BEGIN@11 at line 11 of Net/LibIDN.pm # once (261µs+72µs) by NetAddr::IP::Util::BEGIN@9 at line 9 of NetAddr/IP/Util.pm
sub import {
137512µs my $pkg = shift;
138514µs my $callpkg = caller;
139
140 #
141 # Export symbols, but not by accident of inheritance.
142 #
143
144522µs if ($pkg eq 'AutoLoader') {
145567µs326µs if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) {
# spent 26µs making 3 calls to AutoLoader::CORE:match, avg 9µs/call
1462450µs2109µs
# spent 68µs (26+41) within AutoLoader::BEGIN@146 which was called: # once (26µs+41µs) by NetAddr::IP::InetBase::BEGIN@9 at line 146
no strict 'refs';
# spent 68µs making 1 call to AutoLoader::BEGIN@146 # spent 42µs making 1 call to strict::unimport
147633µs *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
148 }
149 }
150
151 #
152 # Try to find the autosplit index file. Eg., if the call package
153 # is POSIX, then $INC{POSIX.pm} is something like
154 # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in
155 # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that.
156 #
157 # However, if @INC is a relative path, this might not work. If,
158 # for example, @INC = ('lib'), then
159 # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require
160 # 'auto/POSIX/autosplit.ix' (without the leading 'lib').
161 #
162
163582µs534µs (my $calldir = $callpkg) =~ s#::#/#g;
# spent 34µs making 5 calls to AutoLoader::CORE:subst, avg 7µs/call
164524µs my $path = $INC{$calldir . '.pm'};
165571µs if (defined($path)) {
166 # Try absolute path name, but only eval it if the
167 # transformation from module path to autosplit.ix path
168 # succeeded!
16959µs my $replaced_okay;
170522µs if ($is_macos) {
171 (my $malldir = $calldir) =~ tr#/#:#;
172 $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
173 } else {
1745437µs20300µs $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#);
# spent 213µs making 5 calls to AutoLoader::CORE:regcomp, avg 43µs/call # spent 44µs making 10 calls to AutoLoader::CORE:substcont, avg 4µs/call # spent 42µs making 5 calls to AutoLoader::CORE:subst, avg 8µs/call
175 }
176
177101.92ms eval { require $path; } if $replaced_okay;
178 # If that failed, try relative path with normal @INC searching.
179512µs if (!$replaced_okay or $@) {
180 $path ="auto/$calldir/autosplit.ix";
181 eval { require $path; };
182 }
183510µs if ($@) {
184 my $error = $@;
185 require Carp;
186 Carp::carp($error);
187 }
188 }
189}
190
191sub unimport {
192 my $callpkg = caller;
193
1942188µs2101µs
# spent 63µs (25+38) within AutoLoader::BEGIN@194 which was called: # once (25µs+38µs) by NetAddr::IP::InetBase::BEGIN@9 at line 194
no strict 'refs';
# spent 63µs making 1 call to AutoLoader::BEGIN@194 # spent 38µs making 1 call to strict::unimport
195
196 for my $exported (qw( AUTOLOAD )) {
197 my $symname = $callpkg . '::' . $exported;
198 undef *{ $symname } if \&{ $symname } == \&{ $exported };
199 *{ $symname } = \&{ $symname };
200 }
201}
202
203112µs1;
204
205__END__
 
# spent 421µs within AutoLoader::CORE:fteread which was called 5 times, avg 84µs/call: # 5 times (421µs+0s) by AutoLoader::find_filename at line 98, avg 84µs/call
sub AutoLoader::CORE:fteread; # opcode
# spent 100µs within AutoLoader::CORE:match which was called 13 times, avg 8µs/call: # 5 times (50µs+0s) by AutoLoader::find_filename at line 80, avg 10µs/call # 4 times (20µs+0s) by AutoLoader::find_filename at line 99, avg 5µs/call # 3 times (26µs+0s) by AutoLoader::import at line 145, avg 9µs/call # once (4µs+0s) by AutoLoader::autoload_sub at line 36
sub AutoLoader::CORE:match; # opcode
# spent 312µs within AutoLoader::CORE:regcomp which was called 10 times, avg 31µs/call: # 5 times (213µs+0s) by AutoLoader::import at line 174, avg 43µs/call # 5 times (99µs+0s) by AutoLoader::find_filename at line 88, avg 20µs/call
sub AutoLoader::CORE:regcomp; # opcode
# spent 167µs within AutoLoader::CORE:subst which was called 23 times, avg 7µs/call: # 5 times (42µs+0s) by AutoLoader::import at line 174, avg 8µs/call # 5 times (34µs+0s) by AutoLoader::import at line 163, avg 7µs/call # 5 times (32µs+0s) by AutoLoader::find_filename at line 81, avg 6µs/call # 5 times (31µs+0s) by AutoLoader::find_filename at line 88, avg 6µs/call # once (9µs+0s) by AutoLoader::autoload_sub at line 51 # once (9µs+0s) by AutoLoader::find_filename at line 130 # once (9µs+0s) by AutoLoader::autoload_sub at line 46
sub AutoLoader::CORE:subst; # opcode
# spent 82µs within AutoLoader::CORE:substcont which was called 20 times, avg 4µs/call: # 10 times (44µs+0s) by AutoLoader::import at line 174, avg 4µs/call # 10 times (38µs+0s) by AutoLoader::find_filename at line 88, avg 4µs/call
sub AutoLoader::CORE:substcont; # opcode
Report produced by the NYTProf 6.04 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.