Profile of File/Spec/Functions.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/darwin-2level/File/Spec/Functions.pm
Statements	Executed 347 statements in 4.73ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
282	2	1	892µs	24.8ms	File::Spec::Functions::::__ANON__[:62]File::Spec::Functions::__ANON__[:62]
1	1	1	9µs	9µs	File::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
1	1	1	8µs	18µs	File::Spec::Functions::::BEGIN@54File::Spec::Functions::BEGIN@54
1	1	1	7µs	68µs	File::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
1	1	1	6µs	18µs	File::Spec::Functions::::BEGIN@4File::Spec::Functions::BEGIN@4

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package File::Spec::Functions;
2
3	2	21µs	1	9µs	# spent 9µs within File::Spec::Functions::BEGIN@3 which was called: # once (9µs+0s) by Module::Pluggable::Object::BEGIN@6 at line 3 use File::Spec; # spent 9µs making 1 call to File::Spec::Functions::BEGIN@3
4	2	26µs	2	29µs	# spent 18µs (6+11) within File::Spec::Functions::BEGIN@4 which was called: # once (6µs+11µs) by Module::Pluggable::Object::BEGIN@6 at line 4 use strict; # spent 18µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 11µs making 1 call to strict::import
5
6	2	107µs	2	130µs	# spent 68µs (7+61) within File::Spec::Functions::BEGIN@6 which was called: # once (7µs+61µs) by Module::Pluggable::Object::BEGIN@6 at line 6 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); # spent 68µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 61µs making 1 call to vars::import
7
8	1	600ns			$VERSION = '3.47';
9	1	400ns			$VERSION =~ tr/_//;
10
11	1	300ns			require Exporter;
12
13	1	5µs			@ISA = qw(Exporter);
14
15	1	2µs			@EXPORT = qw(
16					canonpath
17					catdir
18					catfile
19					curdir
20					rootdir
21					updir
22					no_upwards
23					file_name_is_absolute
24					path
25					);
26
27	1	1µs			@EXPORT_OK = qw(
28					devnull
29					tmpdir
30					splitpath
31					splitdir
32					catpath
33					abs2rel
34					rel2abs
35					case_tolerant
36					);
37
38	1	4µs			%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
40	1	400ns			require File::Spec::Unix;
41	1	4µs			my %udeps = (
42					canonpath => [],
43					catdir => [qw(canonpath)],
44					catfile => [qw(canonpath catdir)],
45					case_tolerant => [],
46					curdir => [],
47					devnull => [],
48					rootdir => [],
49					updir => [],
50					);
51
52	1	700ns			foreach my $meth (@EXPORT, @EXPORT_OK) {
53	17	71µs	17	32µs	my $sub = File::Spec->can($meth); # spent 32µs making 17 calls to UNIVERSAL::can, avg 2µs/call
54	2	103µs	2	28µs	# spent 18µs (8+10) within File::Spec::Functions::BEGIN@54 which was called: # once (8µs+10µs) by Module::Pluggable::Object::BEGIN@6 at line 54 no strict 'refs'; # spent 18µs making 1 call to File::Spec::Functions::BEGIN@54 # spent 10µs making 1 call to strict::unimport
55	20	98µs	14	12µs	if (exists($udeps{$meth}) && $sub == File::Spec::Unix->can($meth) && # spent 12µs making 14 calls to UNIVERSAL::can, avg 886ns/call
56					!(grep {
57					File::Spec->can($_) != File::Spec::Unix->can($_)
58					} @{$udeps{$meth}}) &&
59					defined(&{"File::Spec::Unix::_fn_$meth"})) {
60					*{$meth} = \&{"File::Spec::Unix::_fn_$meth"};
61					} else {
62	291	4.27ms	282	23.9ms	# spent 24.8ms (892µs+23.9) within File::Spec::Functions::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/darwin-2level/File/Spec/Functions.pm:62] which was called 282 times, avg 88µs/call: # 141 times (447µs+23.8ms) by Module::Pluggable::Object::search_paths at line 197 of Module/Pluggable/Object.pm, avg 172µs/call # 141 times (446µs+177µs) by Module::Pluggable::Object::search_paths at line 226 of Module/Pluggable/Object.pm, avg 4µs/call *{$meth} = sub {&$sub('File::Spec', @_)}; # spent 23.8ms making 141 calls to File::Spec::Unix::abs2rel, avg 168µs/call # spent 177µs making 141 calls to File::Spec::Unix::splitdir, avg 1µs/call
63					}
64					}
65
66
67	1	12µs			1;
68					__END__