Profile of AutoLoader.pm

Filename	/usr/share/perl/5.10/AutoLoader.pm
Statements	Executed 171 statements in 4.01ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
6	6	4	1.11ms	1.25ms	AutoLoader::::importAutoLoader::import
3	3	3	1.06ms	1.38ms	AutoLoader::::AUTOLOADAutoLoader::AUTOLOAD
3	1	1	164µs	327µs	AutoLoader::::find_filenameAutoLoader::find_filename
7	2	1	125µs	125µs	AutoLoader::::CORE:regcompAutoLoader::CORE:regcomp (opcode)
17	5	1	77µs	77µs	AutoLoader::::CORE:substAutoLoader::CORE:subst (opcode)
3	1	1	45µs	45µs	AutoLoader::::CORE:ftereadAutoLoader::CORE:fteread (opcode)
7	3	1	38µs	38µs	AutoLoader::::CORE:matchAutoLoader::CORE:match (opcode)
1	1	1	30µs	30µs	AutoLoader::::BEGIN@4AutoLoader::BEGIN@4
1	1	1	28µs	35µs	AutoLoader::::BEGIN@3AutoLoader::BEGIN@3
14	2	1	18µs	18µs	AutoLoader::::CORE:substcontAutoLoader::CORE:substcont (opcode)
1	1	1	14µs	36µs	AutoLoader::::BEGIN@138AutoLoader::BEGIN@138
1	1	1	14µs	40µs	AutoLoader::::BEGIN@186AutoLoader::BEGIN@186
1	1	1	13µs	28µs	AutoLoader::::BEGIN@30AutoLoader::BEGIN@30
1	1	1	9µs	9µs	AutoLoader::::BEGIN@13AutoLoader::BEGIN@13
1	1	1	2µs	2µs	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	3	45µs	2	42µs	# spent 35µs (28+7) within AutoLoader::BEGIN@3 which was called: # once (28µs+7µs) by Storable::BEGIN@22 at line 3 use strict; # spent 35µs making 1 call to AutoLoader::BEGIN@3 # spent 7µs making 1 call to strict::import
4	3	125µs	1	30µs	# spent 30µs within AutoLoader::BEGIN@4 which was called: # once (30µs+0s) by Storable::BEGIN@22 at line 4 use 5.006_001; # spent 30µs making 1 call to AutoLoader::BEGIN@4
5
6	1	700ns			our($VERSION, $AUTOLOAD);
7
8	1	400ns			my $is_dosish;
9	1	200ns			my $is_epoc;
10	1	100ns			my $is_vms;
11	1	100ns			my $is_macos;
12
13					# spent 9µs within AutoLoader::BEGIN@13 which was called: # once (9µs+0s) by Storable::BEGIN@22 at line 19 BEGIN {
14	5	10µ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.68';
19	1	164µs	1	9µs	} # spent 9µs making 1 call to AutoLoader::BEGIN@13
20
21					# spent 1.38ms (1.06+327µs) within AutoLoader::AUTOLOAD which was called 3 times, avg 461µs/call: # once (670µs+85µs) by POSIX::import at line 44 of POSIX.pm # once (251µs+133µs) by Cache::Memcached::__ANON__[/usr/share/perl5/Cache/Memcached.pm:714] at line 706 of Cache/Memcached.pm # once (136µs+110µs) by C4::XSLT::XSLTParse4Display at line 228 of /usr/share/koha/lib/C4/XSLT.pm AUTOLOAD {
22	34	1.06ms			my $sub = $AUTOLOAD;
23			3	327µs	my $filename = AutoLoader::find_filename( $sub ); # spent 327µs making 3 calls to AutoLoader::find_filename, avg 109µs/call
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	3	595µs	2	44µs	# spent 28µs (13+15) within AutoLoader::BEGIN@30 which was called: # once (13µs+15µs) by Storable::BEGIN@22 at line 30 no strict 'refs'; # spent 28µs making 1 call to AutoLoader::BEGIN@30 # spent 15µs making 1 call to strict::unimport
31	1	4µs			# spent 2µs within AutoLoader::__ANON__[/usr/share/perl/5.10/AutoLoader.pm:31] which was called: # once (2µs+0s) by C4::XSLT::XSLTParse4Display at line 51 *$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			3	814µs	goto &$sub; # spent 636µs making 1 call to POSIX::load_imports # spent 176µs making 1 call to Storable::thaw # spent 2µs making 1 call to AutoLoader::__ANON__[AutoLoader.pm:31]
52					}
53
54					# spent 327µs (164+163) within AutoLoader::find_filename which was called 3 times, avg 109µs/call: # 3 times (164µs+163µs) by AutoLoader::AUTOLOAD at line 23, avg 109µs/call sub find_filename {
55	38	328µ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			3	27µs	my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); # spent 27µs making 3 calls to AutoLoader::CORE:match, avg 9µs/call
73			3	9µs	$pkg =~ s#::#/#g; # spent 9µs making 3 calls to AutoLoader::CORE:subst, avg 3µs/call
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			12	75µs	$filename = undef # spent 56µs making 3 calls to AutoLoader::CORE:regcomp, avg 19µs/call # spent 13µs making 3 calls to AutoLoader::CORE:subst, avg 4µs/call # spent 7µs making 6 calls to AutoLoader::CORE:substcont, avg 1µ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			3	45µs	if (defined $filename and -r $filename) { # spent 45µs making 3 calls to AutoLoader::CORE:fteread, avg 15µs/call
91			2	4µs	unless ($filename =~ m\|^/\|s) { # spent 4µs making 2 calls to AutoLoader::CORE:match, avg 2µs/call
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			1	4µs	$filename =~ s#::#/#g; # spent 4µs making 1 call to AutoLoader::CORE:subst
123					}
124					}
125					return $filename;
126					}
127
128					# spent 1.25ms (1.11+141µs) within AutoLoader::import which was called 6 times, avg 209µs/call: # once (696µs+22µs) by POSIX::BEGIN@9 at line 9 of POSIX.pm # once (171µs+23µs) by Storable::BEGIN@22 at line 22 of Storable.pm # once (111µs+45µs) by Compress::Zlib::BEGIN@6 at line 6 of Compress/Zlib.pm # once (98µs+39µs) by Compress::Raw::Zlib::BEGIN@6 at line 6 of Compress/Raw/Zlib.pm # once (21µs+7µs) by POSIX::SigAction::BEGIN@58 at line 58 of POSIX.pm # once (14µs+4µs) by POSIX::SigRt::BEGIN@62 at line 62 of POSIX.pm sub import {
129	72	1.26ms			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	7µs	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) { # spent 7µs making 2 calls to AutoLoader::CORE:match, avg 3µs/call
138	3	302µs	2	58µs	# spent 36µs (14+22) within AutoLoader::BEGIN@138 which was called: # once (14µs+22µs) by Storable::BEGIN@22 at line 138 no strict 'refs'; # spent 36µs making 1 call to AutoLoader::BEGIN@138 # spent 22µ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			6	25µs	(my $calldir = $callpkg) =~ s#::#/#g; # spent 25µs making 6 calls to AutoLoader::CORE:subst, avg 4µ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			16	109µs	$replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#); # spent 70µs making 4 calls to AutoLoader::CORE:regcomp, avg 17µs/call # spent 28µs making 4 calls to AutoLoader::CORE:subst, avg 7µs/call # spent 12µs making 8 calls to AutoLoader::CORE:substcont, avg 1µ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	3	103µs	2	66µs	# spent 40µs (14+26) within AutoLoader::BEGIN@186 which was called: # once (14µs+26µs) by Storable::BEGIN@22 at line 186 no strict 'refs'; # spent 40µs making 1 call to AutoLoader::BEGIN@186 # spent 26µ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	4µs			1;
196
197					__END__

					# spent 45µs within AutoLoader::CORE:fteread which was called 3 times, avg 15µs/call: # 3 times (45µs+0s) by AutoLoader::find_filename at line 90, avg 15µs/call sub AutoLoader::CORE:fteread; # opcode
					# spent 38µs within AutoLoader::CORE:match which was called 7 times, avg 5µs/call: # 3 times (27µs+0s) by AutoLoader::find_filename at line 72, avg 9µs/call # 2 times (7µs+0s) by AutoLoader::import at line 137, avg 3µs/call # 2 times (4µs+0s) by AutoLoader::find_filename at line 91, avg 2µs/call sub AutoLoader::CORE:match; # opcode
					# spent 125µs within AutoLoader::CORE:regcomp which was called 7 times, avg 18µs/call: # 4 times (70µs+0s) by AutoLoader::import at line 166, avg 17µs/call # 3 times (56µs+0s) by AutoLoader::find_filename at line 80, avg 19µs/call sub AutoLoader::CORE:regcomp; # opcode
					# spent 77µs within AutoLoader::CORE:subst which was called 17 times, avg 5µs/call: # 6 times (25µs+0s) by AutoLoader::import at line 155, avg 4µs/call # 4 times (28µs+0s) by AutoLoader::import at line 166, avg 7µs/call # 3 times (13µs+0s) by AutoLoader::find_filename at line 80, avg 4µs/call # 3 times (9µs+0s) by AutoLoader::find_filename at line 73, avg 3µs/call # once (4µs+0s) by AutoLoader::find_filename at line 122 sub AutoLoader::CORE:subst; # opcode
					# spent 18µs within AutoLoader::CORE:substcont which was called 14 times, avg 1µs/call: # 8 times (12µs+0s) by AutoLoader::import at line 166, avg 1µs/call # 6 times (7µs+0s) by AutoLoader::find_filename at line 80, avg 1µs/call sub AutoLoader::CORE:substcont; # opcode