Profile of AutoLoader.pm

Filename	/usr/local/lib/perl5/5.24/AutoLoader.pm
Statements	Executed 224 statements in 9.36ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
5	1	1	2.81ms	4.77ms	AutoLoader::::autoload_subAutoLoader::autoload_sub
5	5	5	2.58ms	2.90ms	AutoLoader::::importAutoLoader::import
5	1	1	493µs	1.02ms	AutoLoader::::find_filenameAutoLoader::find_filename
10	2	1	279µs	279µs	AutoLoader::::CORE:regcompAutoLoader::CORE:regcomp (opcode)
5	1	1	264µs	264µs	AutoLoader::::CORE:ftereadAutoLoader::CORE:fteread (opcode)
23	7	1	161µs	161µs	AutoLoader::::CORE:substAutoLoader::CORE:subst (opcode)
5	5	3	136µs	4.90ms	AutoLoader::::AUTOLOADAutoLoader::AUTOLOAD
13	4	1	103µs	103µs	AutoLoader::::CORE:matchAutoLoader::CORE:match (opcode)
20	2	1	75µs	75µs	AutoLoader::::CORE:substcontAutoLoader::CORE:substcont (opcode)
1	1	1	51µs	58µs	AutoLoader::::BEGIN@3AutoLoader::BEGIN@3
1	1	1	32µs	80µs	AutoLoader::::BEGIN@194AutoLoader::BEGIN@194
1	1	1	30µs	89µs	AutoLoader::::BEGIN@37AutoLoader::BEGIN@37
1	1	1	30µs	82µs	AutoLoader::::BEGIN@146AutoLoader::BEGIN@146
1	1	1	24µs	24µs	AutoLoader::::BEGIN@4AutoLoader::BEGIN@4
1	1	1	19µs	19µs	AutoLoader::::BEGIN@13AutoLoader::BEGIN@13
0	0	0	0s	0s	AutoLoader::::__ANON__[:38]AutoLoader::__ANON__[:38]
0	0	0	0s	0s	AutoLoader::::unimportAutoLoader::unimport

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package AutoLoader;
2
3	2	65µs	2	65µs	# spent 58µs (51+7) within AutoLoader::BEGIN@3 which was called: # once (51µs+7µs) by NetAddr::IP::InetBase::BEGIN@9 at line 3 use strict; # spent 58µs making 1 call to AutoLoader::BEGIN@3 # spent 7µs making 1 call to strict::import
4	2	247µs	1	24µs	# spent 24µs within AutoLoader::BEGIN@4 which was called: # once (24µs+0s) by NetAddr::IP::InetBase::BEGIN@9 at line 4 use 5.006_001; # spent 24µs making 1 call to AutoLoader::BEGIN@4
5
6					our($VERSION, $AUTOLOAD);
7
8	1	2µs			my $is_dosish;
9					my $is_epoc;
10					my $is_vms;
11					my $is_macos;
12
13					# spent 19µs within AutoLoader::BEGIN@13 which was called: # once (19µs+0s) by NetAddr::IP::InetBase::BEGIN@9 at line 19 BEGIN {
14	1	5µs			$is_dosish = $^O eq 'dos' \|\| $^O eq 'os2' \|\| $^O eq 'MSWin32' \|\| $^O eq 'NetWare';
15	1	2µs			$is_epoc = $^O eq 'epoc';
16	1	2µs			$is_vms = $^O eq 'VMS';
17	1	2µs			$is_macos = $^O eq 'MacOS';
18	1	18µs			$VERSION = '5.74';
19	1	237µs	1	19µs	} # spent 19µs making 1 call to AutoLoader::BEGIN@13
20
21					# spent 4.90ms (136µs+4.77) within AutoLoader::AUTOLOAD which was called 5 times, avg 981µs/call: # once (23µs+1.44ms) by NetAddr::IP::Lite::BEGIN@9 at line 81 of NetAddr/IP/InetBase.pm # once (24µs+1.04ms) by NetAddr::IP::InetBase::inet_any2n at line 490 of NetAddr/IP/InetBase.pm # once (29µs+860µs) by NetAddr::IP::Lite::addr at line 1105 of NetAddr/IP/Lite.pm # once (25µs+845µs) by IO::Socket::SSL::init at line 389 of Net/SSLeay.pm # once (34µs+583µs) by NetAddr::IP::BEGIN@8 at line 644 of NetAddr/IP/Lite.pm AUTOLOAD {
22	5	12µs			my $sub = $AUTOLOAD;
23	5	33µs	5	4.77ms	autoload_sub($sub); # spent 4.77ms making 5 calls to AutoLoader::autoload_sub, avg 954µs/call
24	4	82µs	4	2.29ms	goto &$sub; # spent 1.46ms making 1 call to NetAddr::IP::InetBase::inet_any2n # spent 339µs making 1 call to Net::SSLeay::randomize # spent 336µs making 1 call to NetAddr::IP::InetBase::ipv6_aton # spent 154µs making 1 call to NetAddr::IP::InetBase::inet_n2dx
25					}
26
27					# spent 4.77ms (2.81+1.96) within AutoLoader::autoload_sub which was called 5 times, avg 954µs/call: # 5 times (2.81ms+1.96ms) by AutoLoader::AUTOLOAD at line 23, avg 954µs/call sub autoload_sub {
28	5	12µs			my $sub = shift;
29
30	5	38µs	5	1.02ms	my $filename = AutoLoader::find_filename( $sub ); # spent 1.02ms making 5 calls to AutoLoader::find_filename, avg 205µs/call
31
32	5	11µs			my $save = $@;
33	5	145µs			local $!; # Do not munge the value.
34	15	2.45ms			eval { local $SIG{__DIE__}; require $filename };
35	5	9µs			if ($@) {
36	1	21µs	1	4µs	if (substr($sub,-9) eq '::DESTROY') { # spent 4µs making 1 call to AutoLoader::CORE:match
37	2	1.23ms	2	148µs	# spent 89µs (30+59) within AutoLoader::BEGIN@37 which was called: # once (30µs+59µs) by NetAddr::IP::InetBase::BEGIN@9 at line 37 no strict 'refs'; # spent 89µs making 1 call to AutoLoader::BEGIN@37 # spent 59µ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.
46	1	20µs	1	12µs	if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){ # spent 12µs making 1 call to AutoLoader::CORE:subst
47					eval { local $SIG{__DIE__}; require $filename };
48					}
49					}
50	1	2µs			if ($@){
51	1	18µs	1	9µs	$@ =~ s/ at .*\n//; # spent 9µs making 1 call to AutoLoader::CORE:subst
52	1	2µs			my $error = $@;
53	1	2µs			require Carp;
54	1	6µs	1	906µs	Carp::croak($error); # spent 906µs making 1 call to Carp::croak
55					}
56					}
57	4	10µs			$@ = $save;
58
59	4	62µs			return 1;
60					}
61
62					# spent 1.02ms (493µs+531µs) within AutoLoader::find_filename which was called 5 times, avg 205µs/call: # 5 times (493µs+531µs) by AutoLoader::autoload_sub at line 30, avg 205µs/call sub find_filename {
63	5	11µs			my $sub = shift;
64	5	9µ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
80	10	130µs	5	56µs	my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); # spent 56µs making 5 calls to AutoLoader::CORE:match, avg 11µs/call
81	5	71µs	5	32µs	$pkg =~ s#::#/#g; # spent 32µs making 5 calls to AutoLoader::CORE:subst, avg 6µs/call
82	5	36µs			if (defined($filename = $INC{"$pkg.pm"})) {
83	5	21µs			if ($is_macos) {
84					$pkg =~ tr#/#:#;
85					$filename = undef
86					unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
87					} else {
88	5	299µs	20	150µs	$filename = undef # spent 82µs making 5 calls to AutoLoader::CORE:regcomp, avg 16µs/call # spent 37µs making 10 calls to AutoLoader::CORE:substcont, avg 4µs/call # spent 30µ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
98	5	317µs	5	264µs	if (defined $filename and -r $filename) { # spent 264µs making 5 calls to AutoLoader::CORE:fteread, avg 53µs/call
99	4	48µs	4	20µ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 {
124	1	2µs			$filename = undef;
125					}
126					}
127	5	14µs			unless (defined $filename) {
128					# let C<require> do the searching
129	1	4µs			$filename = "auto/$sub.al";
130	1	18µs	1	8µs	$filename =~ s#::#/#g; # spent 8µs making 1 call to AutoLoader::CORE:subst
131					}
132					}
133	5	55µs			return $filename;
134					}
135
136					# spent 2.90ms (2.58+325µs) within AutoLoader::import which was called 5 times, avg 580µs/call: # once (1.12ms+59µs) by Net::SSLeay::BEGIN@24 at line 24 of Net/SSLeay.pm # once (541µs+55µs) by NetAddr::IP::BEGIN@23 at line 23 of NetAddr/IP.pm # once (418µs+59µs) by NetAddr::IP::InetBase::BEGIN@9 at line 9 of NetAddr/IP/InetBase.pm # once (273µs+77µs) by Net::LibIDN::BEGIN@11 at line 11 of Net/LibIDN.pm # once (226µs+74µs) by NetAddr::IP::Util::BEGIN@9 at line 9 of NetAddr/IP/Util.pm sub import {
137	5	12µs			my $pkg = shift;
138	5	14µs			my $callpkg = caller;
139
140					#
141					# Export symbols, but not by accident of inheritance.
142					#
143
144	5	21µs			if ($pkg eq 'AutoLoader') {
145	5	75µs	3	22µs	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) { # spent 22µs making 3 calls to AutoLoader::CORE:match, avg 7µs/call
146	2	472µs	2	134µs	# spent 82µs (30+52) within AutoLoader::BEGIN@146 which was called: # once (30µs+52µs) by NetAddr::IP::InetBase::BEGIN@9 at line 146 no strict 'refs'; # spent 82µs making 1 call to AutoLoader::BEGIN@146 # spent 52µs making 1 call to strict::unimport
147	6	40µ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
163	5	77µs	5	30µs	(my $calldir = $callpkg) =~ s#::#/#g; # spent 30µs making 5 calls to AutoLoader::CORE:subst, avg 6µs/call
164	5	24µs			my $path = $INC{$calldir . '.pm'};
165	5	70µ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!
169	5	8µs			my $replaced_okay;
170	5	21µs			if ($is_macos) {
171					(my $malldir = $calldir) =~ tr#/#:#;
172					$replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
173					} else {
174	5	406µs	20	273µs	$replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#); # spent 196µs making 5 calls to AutoLoader::CORE:regcomp, avg 39µs/call # spent 39µs making 5 calls to AutoLoader::CORE:subst, avg 8µs/call # spent 38µs making 10 calls to AutoLoader::CORE:substcont, avg 4µs/call
175					}
176
177	10	2.10ms			eval { require $path; } if $replaced_okay;
178					# If that failed, try relative path with normal @INC searching.
179	5	12µs			if (!$replaced_okay or $@) {
180					$path ="auto/$calldir/autosplit.ix";
181					eval { require $path; };
182					}
183	5	19µs			if ($@) {
184					my $error = $@;
185					require Carp;
186					Carp::carp($error);
187					}
188					}
189					}
190
191					sub unimport {
192					my $callpkg = caller;
193
194	2	197µs	2	128µs	# spent 80µs (32+48) within AutoLoader::BEGIN@194 which was called: # once (32µs+48µs) by NetAddr::IP::InetBase::BEGIN@9 at line 194 no strict 'refs'; # spent 80µs making 1 call to AutoLoader::BEGIN@194 # spent 48µ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
203	1	18µs			1;
204
205					__END__

					# spent 264µs within AutoLoader::CORE:fteread which was called 5 times, avg 53µs/call: # 5 times (264µs+0s) by AutoLoader::find_filename at line 98, avg 53µs/call sub AutoLoader::CORE:fteread; # opcode
					# spent 103µs within AutoLoader::CORE:match which was called 13 times, avg 8µs/call: # 5 times (56µs+0s) by AutoLoader::find_filename at line 80, avg 11µs/call # 4 times (20µs+0s) by AutoLoader::find_filename at line 99, avg 5µs/call # 3 times (22µs+0s) by AutoLoader::import at line 145, avg 7µs/call # once (4µs+0s) by AutoLoader::autoload_sub at line 36 sub AutoLoader::CORE:match; # opcode
					# spent 279µs within AutoLoader::CORE:regcomp which was called 10 times, avg 28µs/call: # 5 times (196µs+0s) by AutoLoader::import at line 174, avg 39µs/call # 5 times (82µs+0s) by AutoLoader::find_filename at line 88, avg 16µs/call sub AutoLoader::CORE:regcomp; # opcode
					# spent 161µs within AutoLoader::CORE:subst which was called 23 times, avg 7µs/call: # 5 times (39µs+0s) by AutoLoader::import at line 174, avg 8µs/call # 5 times (32µs+0s) by AutoLoader::find_filename at line 81, avg 6µs/call # 5 times (30µs+0s) by AutoLoader::find_filename at line 88, avg 6µs/call # 5 times (30µs+0s) by AutoLoader::import at line 163, avg 6µs/call # once (12µs+0s) by AutoLoader::autoload_sub at line 46 # once (9µs+0s) by AutoLoader::autoload_sub at line 51 # once (8µs+0s) by AutoLoader::find_filename at line 130 sub AutoLoader::CORE:subst; # opcode
					# spent 75µs within AutoLoader::CORE:substcont which was called 20 times, avg 4µs/call: # 10 times (38µs+0s) by AutoLoader::import at line 174, avg 4µs/call # 10 times (37µs+0s) by AutoLoader::find_filename at line 88, avg 4µs/call sub AutoLoader::CORE:substcont; # opcode