← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:09 2016

Filename/usr/lib/perl/5.18/File/Spec/Functions.pm
StatementsExecuted 89 statements in 370µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
384186µs1.23msFile::Spec::Functions::::__ANON__[:43]File::Spec::Functions::__ANON__[:43]
11121µs21µsFile::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
1116µs14µsFile::Spec::Functions::::BEGIN@4File::Spec::Functions::BEGIN@4
1115µs13µsFile::Spec::Functions::::BEGIN@42File::Spec::Functions::BEGIN@42
1115µs52µsFile::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
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
3222µs121µs
# spent 21µs within File::Spec::Functions::BEGIN@3 which was called: # once (21µs+0s) by Module::Pluggable::Object::BEGIN@6 at line 3
use File::Spec;
# spent 21µs making 1 call to File::Spec::Functions::BEGIN@3
4221µs223µs
# spent 14µs (6+9) within File::Spec::Functions::BEGIN@4 which was called: # once (6µs+9µs) by Module::Pluggable::Object::BEGIN@6 at line 4
use strict;
# spent 14µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 9µs making 1 call to strict::import
5
6285µs299µs
# spent 52µs (5+47) within File::Spec::Functions::BEGIN@6 which was called: # once (5µs+47µs) by Module::Pluggable::Object::BEGIN@6 at line 6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
# spent 52µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 47µs making 1 call to vars::import
7
81400ns$VERSION = '3.40';
91300ns$VERSION =~ tr/_//;
10
111500nsrequire Exporter;
12
1314µs@ISA = qw(Exporter);
14
1511µ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
2711µs@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
401600nsforeach my $meth (@EXPORT, @EXPORT_OK) {
411763µs1728µs my $sub = File::Spec->can($meth);
# spent 28µs making 17 calls to UNIVERSAL::can, avg 2µs/call
42246µs221µs
# spent 13µs (5+8) within File::Spec::Functions::BEGIN@42 which was called: # once (5µs+8µs) by Module::Pluggable::Object::BEGIN@6 at line 42
no strict 'refs';
# spent 13µs making 1 call to File::Spec::Functions::BEGIN@42 # spent 8µs making 1 call to strict::unimport
4355117µs381.14ms
# spent 1.23ms (86µs+1.14) within File::Spec::Functions::__ANON__[/usr/lib/perl/5.18/File/Spec/Functions.pm:43] which was called 38 times, avg 32µs/call: # 20 times (38µs+247µs) by Module::Pluggable::Object::search_paths at line 181 of Module/Pluggable/Object.pm, avg 14µs/call # 6 times (15µs+726µs) by Module::Pluggable::Object::search_paths at line 197 of Module/Pluggable/Object.pm, avg 123µs/call # 6 times (16µs+163µs) by Module::Pluggable::Object::search_paths at line 204 of Module/Pluggable/Object.pm, avg 30µs/call # 6 times (18µs+5µ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 726µs making 6 calls to File::Spec::Unix::abs2rel, avg 121µs/call # spent 247µs making 20 calls to File::Spec::Unix::catdir, avg 12µs/call # spent 163µs making 6 calls to File::Spec::Unix::catfile, avg 27µs/call # spent 5µs making 6 calls to File::Spec::Unix::curdir, avg 767ns/call
44}
45
46
4716µs1;
48__END__