Profile of AutoLoader.pm

Filename	/usr/lib/perl5/5.14/AutoLoader.pm
Statements	Executed 87 statements in 6.31ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
4	4	2	2.13ms	2.25ms	AutoLoader::::importAutoLoader::import
1	1	1	1.59ms	1.88ms	AutoLoader::::AUTOLOADAutoLoader::AUTOLOAD
1	1	1	190µs	199µs	AutoLoader::::BEGIN@3AutoLoader::BEGIN@3
1	1	1	184µs	184µs	AutoLoader::::CORE:ftereadAutoLoader::CORE:fteread (opcode)
1	1	1	74µs	74µs	AutoLoader::::BEGIN@4AutoLoader::BEGIN@4
3	2	1	71µs	71µs	AutoLoader::::CORE:regcompAutoLoader::CORE:regcomp (opcode)
1	1	1	64µs	293µs	AutoLoader::::find_filenameAutoLoader::find_filename
8	4	1	56µs	56µs	AutoLoader::::CORE:substAutoLoader::CORE:subst (opcode)
4	3	1	20µs	20µs	AutoLoader::::CORE:matchAutoLoader::CORE:match (opcode)
1	1	1	15µs	15µs	AutoLoader::::BEGIN@13AutoLoader::BEGIN@13
1	1	1	15µs	33µs	AutoLoader::::BEGIN@138AutoLoader::BEGIN@138
6	2	1	14µs	14µs	AutoLoader::::CORE:substcontAutoLoader::CORE:substcont (opcode)
1	1	1	13µs	39µs	AutoLoader::::BEGIN@30AutoLoader::BEGIN@30
1	1	1	12µs	30µs	AutoLoader::::BEGIN@186AutoLoader::BEGIN@186
0	0	0	0s	0s	AutoLoader::::__ANON__[:31]AutoLoader::__ANON__[:31]
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	59µs	2	207µs	# spent 199µs (190+9) within AutoLoader::BEGIN@3 which was called: # once (190µs+9µs) by Compress::Raw::Zlib::BEGIN@6 at line 3 use strict; # spent 199µs making 1 call to AutoLoader::BEGIN@3 # spent 9µs making 1 call to strict::import
4	2	322µs	1	74µs	# spent 74µs within AutoLoader::BEGIN@4 which was called: # once (74µs+0s) by Compress::Raw::Zlib::BEGIN@6 at line 4 use 5.006_001; # spent 74µs making 1 call to AutoLoader::BEGIN@4
5
6	1	500ns			our($VERSION, $AUTOLOAD);
7
8	1	0s			my $is_dosish;
9	1	0s			my $is_epoc;
10	1	500ns			my $is_vms;
11	1	500ns			my $is_macos;
12
13					# spent 15µs within AutoLoader::BEGIN@13 which was called: # once (15µs+0s) by Compress::Raw::Zlib::BEGIN@6 at line 19 BEGIN {
14	5	16µs			$is_dosish = $^O eq 'dos' \|\| $^O eq 'os2' \|\| $^O eq 'MSWin32' \|\| $^O eq 'NetWare';
15					$is_epoc = $^O eq 'epoc';
16					$is_vms = $^O eq 'VMS';
17					$is_macos = $^O eq 'MacOS';
18					$VERSION = '5.71';
19	1	171µs	1	15µs	} # spent 15µs making 1 call to AutoLoader::BEGIN@13
20
21					# spent 1.88ms (1.59+293µs) within AutoLoader::AUTOLOAD which was called: # once (1.59ms+293µs) by POSIX::import at line 43 of POSIX.pm AUTOLOAD {
22	10	1.59ms			my $sub = $AUTOLOAD;
23			1	293µs	my $filename = AutoLoader::find_filename( $sub ); # spent 293µs making 1 call to AutoLoader::find_filename
24
25					my $save = $@;
26					local $!; # Do not munge the value.
27					eval { local $SIG{__DIE__}; require $filename };
28					if ($@) {
29					if (substr($sub,-9) eq '::DESTROY') {
30	2	1.01ms	2	64µs	# spent 39µs (13+25) within AutoLoader::BEGIN@30 which was called: # once (13µs+25µs) by Compress::Raw::Zlib::BEGIN@6 at line 30 no strict 'refs'; # spent 39µs making 1 call to AutoLoader::BEGIN@30 # spent 25µs making 1 call to strict::unimport
31					*$sub = sub {};
32					$@ = undef;
33					} elsif ($@ =~ /^Can't locate/) {
34					# The load might just have failed because the filename was too
35					# long for some old SVR3 systems which treat long names as errors.
36					# If we can successfully truncate a long name then it's worth a go.
37					# There is a slight risk that we could pick up the wrong file here
38					# but autosplit should have warned about that when splitting.
39					if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
40					eval { local $SIG{__DIE__}; require $filename };
41					}
42					}
43					if ($@){
44					$@ =~ s/ at .*\n//;
45					my $error = $@;
46					require Carp;
47					Carp::croak($error);
48					}
49					}
50					$@ = $save;
51			1	1.47ms	goto &$sub; # spent 1.47ms making 1 call to POSIX::load_imports
52					}
53
54					# spent 293µs (64+229) within AutoLoader::find_filename which was called: # once (64µs+229µs) by AutoLoader::AUTOLOAD at line 23 sub find_filename {
55	12	297µs			my $sub = shift;
56					my $filename;
57					# Braces used to preserve $1 et al.
58					{
59					# Try to find the autoloaded file from the package-qualified
60					# name of the sub. e.g., if the sub needed is
61					# Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is
62					# something like '/usr/lib/perl5/Getopt/Long.pm', and the
63					# autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'.
64					#
65					# However, if @INC is a relative path, this might not work. If,
66					# for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is
67					# 'lib/Getopt/Long.pm', and we want to require
68					# 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib').
69					# In this case, we simple prepend the 'auto/' and let the
70					# C<require> take care of the searching for us.
71
72			1	6µs	my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); # spent 6µs making 1 call to AutoLoader::CORE:match
73			1	2µs	$pkg =~ s#::#/#g; # spent 2µs making 1 call to AutoLoader::CORE:subst
74					if (defined($filename = $INC{"$pkg.pm"})) {
75					if ($is_macos) {
76					$pkg =~ tr#/#:#;
77					$filename = undef
78					unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
79					} else {
80			4	35µs	$filename = undef # spent 26µs making 1 call to AutoLoader::CORE:regcomp # spent 5µs making 1 call to AutoLoader::CORE:subst # spent 4µs making 2 calls to AutoLoader::CORE:substcont, avg 2µs/call
81					unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
82					}
83
84					# if the file exists, then make sure that it is a
85					# a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
86					# or './lib/auto/foo/bar.al'. This avoids C<require> searching
87					# (and failing) to find the 'lib/auto/foo/bar.al' because it
88					# looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
89
90			1	184µs	if (defined $filename and -r $filename) { # spent 184µs making 1 call to AutoLoader::CORE:fteread
91			1	3µs	unless ($filename =~ m\|^/\|s) { # spent 3µs making 1 call to AutoLoader::CORE:match
92					if ($is_dosish) {
93					unless ($filename =~ m{^([a-z]:)?[\\/]}is) {
94					if ($^O ne 'NetWare') {
95					$filename = "./$filename";
96					} else {
97					$filename = "$filename";
98					}
99					}
100					}
101					elsif ($is_epoc) {
102					unless ($filename =~ m{^([a-z?]:)?[\\/]}is) {
103					$filename = "./$filename";
104					}
105					}
106					elsif ($is_vms) {
107					# XXX todo by VMSmiths
108					$filename = "./$filename";
109					}
110					elsif (!$is_macos) {
111					$filename = "./$filename";
112					}
113					}
114					}
115					else {
116					$filename = undef;
117					}
118					}
119					unless (defined $filename) {
120					# let C<require> do the searching
121					$filename = "auto/$sub.al";
122					$filename =~ s#::#/#g;
123					}
124					}
125					return $filename;
126					}
127
128					# spent 2.25ms (2.13+116µs) within AutoLoader::import which was called 4 times, avg 562µs/call: # once (1.67ms+49µs) by POSIX::BEGIN@9 at line 9 of POSIX.pm # once (413µs+45µs) by Compress::Raw::Zlib::BEGIN@6 at line 6 of Compress/Raw/Zlib.pm # once (28µs+14µs) by POSIX::SigAction::BEGIN@52 at line 52 of POSIX.pm # once (18µs+8µs) by POSIX::SigRt::BEGIN@56 at line 56 of POSIX.pm sub import {
129	44	2.25ms			my $pkg = shift;
130					my $callpkg = caller;
131
132					#
133					# Export symbols, but not by accident of inheritance.
134					#
135
136					if ($pkg eq 'AutoLoader') {
137			2	10µs	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) { # spent 10µs making 2 calls to AutoLoader::CORE:match, avg 5µs/call
138	2	402µs	2	52µs	# spent 33µs (15+18) within AutoLoader::BEGIN@138 which was called: # once (15µs+18µs) by Compress::Raw::Zlib::BEGIN@6 at line 138 no strict 'refs'; # spent 33µs making 1 call to AutoLoader::BEGIN@138 # spent 18µs making 1 call to strict::unimport
139					*{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
140					}
141					}
142
143					#
144					# Try to find the autosplit index file. Eg., if the call package
145					# is POSIX, then $INC{POSIX.pm} is something like
146					# '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in
147					# '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that.
148					#
149					# However, if @INC is a relative path, this might not work. If,
150					# for example, @INC = ('lib'), then
151					# $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require
152					# 'auto/POSIX/autosplit.ix' (without the leading 'lib').
153					#
154
155			4	27µs	(my $calldir = $callpkg) =~ s#::#/#g; # spent 27µs making 4 calls to AutoLoader::CORE:subst, avg 7µs/call
156					my $path = $INC{$calldir . '.pm'};
157					if (defined($path)) {
158					# Try absolute path name, but only eval it if the
159					# transformation from module path to autosplit.ix path
160					# succeeded!
161					my $replaced_okay;
162					if ($is_macos) {
163					(my $malldir = $calldir) =~ tr#/#:#;
164					$replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
165					} else {
166			8	78µs	$replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#); # spent 45µs making 2 calls to AutoLoader::CORE:regcomp, avg 23µs/call # spent 23µs making 2 calls to AutoLoader::CORE:subst, avg 12µs/call # spent 10µs making 4 calls to AutoLoader::CORE:substcont, avg 3µs/call
167					}
168
169					eval { require $path; } if $replaced_okay;
170					# If that failed, try relative path with normal @INC searching.
171					if (!$replaced_okay or $@) {
172					$path ="auto/$calldir/autosplit.ix";
173					eval { require $path; };
174					}
175					if ($@) {
176					my $error = $@;
177					require Carp;
178					Carp::carp($error);
179					}
180					}
181					}
182
183					sub unimport {
184					my $callpkg = caller;
185
186	2	180µs	2	48µs	# spent 30µs (12+18) within AutoLoader::BEGIN@186 which was called: # once (12µs+18µs) by Compress::Raw::Zlib::BEGIN@6 at line 186 no strict 'refs'; # spent 30µs making 1 call to AutoLoader::BEGIN@186 # spent 18µs making 1 call to strict::unimport
187
188					for my $exported (qw( AUTOLOAD )) {
189					my $symname = $callpkg . '::' . $exported;
190					undef *{ $symname } if \&{ $symname } == \&{ $exported };
191					*{ $symname } = \&{ $symname };
192					}
193					}
194
195	1	14µs			1;
196
197					__END__

					# spent 184µs within AutoLoader::CORE:fteread which was called: # once (184µs+0s) by AutoLoader::find_filename at line 90 sub AutoLoader::CORE:fteread; # opcode
					# spent 20µs within AutoLoader::CORE:match which was called 4 times, avg 5µs/call: # 2 times (10µs+0s) by AutoLoader::import at line 137, avg 5µs/call # once (6µs+0s) by AutoLoader::find_filename at line 72 # once (3µs+0s) by AutoLoader::find_filename at line 91 sub AutoLoader::CORE:match; # opcode
					# spent 71µs within AutoLoader::CORE:regcomp which was called 3 times, avg 24µs/call: # 2 times (45µs+0s) by AutoLoader::import at line 166, avg 23µs/call # once (26µs+0s) by AutoLoader::find_filename at line 80 sub AutoLoader::CORE:regcomp; # opcode
					# spent 56µs within AutoLoader::CORE:subst which was called 8 times, avg 7µs/call: # 4 times (27µs+0s) by AutoLoader::import at line 155, avg 7µs/call # 2 times (23µs+0s) by AutoLoader::import at line 166, avg 12µs/call # once (5µs+0s) by AutoLoader::find_filename at line 80 # once (2µs+0s) by AutoLoader::find_filename at line 73 sub AutoLoader::CORE:subst; # opcode
					# spent 14µs within AutoLoader::CORE:substcont which was called 6 times, avg 2µs/call: # 4 times (10µs+0s) by AutoLoader::import at line 166, avg 3µs/call # 2 times (4µs+0s) by AutoLoader::find_filename at line 80, avg 2µs/call sub AutoLoader::CORE:substcont; # opcode