← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/File/Spec/Functions.pm
StatementsExecuted 65 statements in 322µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1119µs9µsFile::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
1115µs13µsFile::Spec::Functions::::BEGIN@54File::Spec::Functions::BEGIN@54
1115µs6µsFile::Spec::Functions::::BEGIN@4File::Spec::Functions::BEGIN@4
1114µs33µsFile::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
0000s0sFile::Spec::Functions::::__ANON__[:62]File::Spec::Functions::__ANON__[:62]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package File::Spec::Functions;
2
3220µs19µs
# spent 9µs within File::Spec::Functions::BEGIN@3 which was called: # once (9µs+0s) by CHI::Util::BEGIN@8 at line 3
use File::Spec;
# spent 9µs making 1 call to File::Spec::Functions::BEGIN@3
4214µs28µs
# spent 6µs (5+2) within File::Spec::Functions::BEGIN@4 which was called: # once (5µs+2µs) by CHI::Util::BEGIN@8 at line 4
use strict;
# spent 6µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 2µs making 1 call to strict::import
5
6280µs262µs
# spent 33µs (4+29) within File::Spec::Functions::BEGIN@6 which was called: # once (4µs+29µs) by CHI::Util::BEGIN@8 at line 6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
# spent 33µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 29µs making 1 call to vars::import
7
81200ns$VERSION = '3.62';
911µs$VERSION =~ tr/_//d;
10
111300nsrequire Exporter;
12
1313µs@ISA = qw(Exporter);
14
151700ns@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
271500ns@EXPORT_OK = qw(
28 devnull
29 tmpdir
30 splitpath
31 splitdir
32 catpath
33 abs2rel
34 rel2abs
35 case_tolerant
36);
37
3812µs%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
401400nsrequire File::Spec::Unix;
4114µsmy %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
521600nsforeach my $meth (@EXPORT, @EXPORT_OK) {
531742µs1723µs my $sub = File::Spec->can($meth);
# spent 23µs making 17 calls to UNIVERSAL::can, avg 1µs/call
54278µs221µs
# spent 13µs (5+8) within File::Spec::Functions::BEGIN@54 which was called: # once (5µs+8µs) by CHI::Util::BEGIN@8 at line 54
no strict 'refs';
# spent 13µs making 1 call to File::Spec::Functions::BEGIN@54 # spent 8µs making 1 call to strict::unimport
551748µs84µs if (exists($udeps{$meth}) && $sub == File::Spec::Unix->can($meth) &&
# spent 4µs making 8 calls to UNIVERSAL::can, avg 462ns/call
56 !(grep {
5738µs62µs File::Spec->can($_) != File::Spec::Unix->can($_)
# spent 2µs making 6 calls to UNIVERSAL::can, avg 317ns/call
58 } @{$udeps{$meth}}) &&
59 defined(&{"File::Spec::Unix::_fn_$meth"})) {
60 *{$meth} = \&{"File::Spec::Unix::_fn_$meth"};
61 } else {
62910µs *{$meth} = sub {&$sub('File::Spec', @_)};
63 }
64}
65
66
67110µs1;
68__END__