← Index
NYTProf Performance Profile   « block view • line view • sub view »
For t/app_dpath.t
  Run on Tue Jun 5 15:25:28 2012
Reported on Tue Jun 5 15:26:06 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/x86_64-linux-thread-multi/File/Spec/Functions.pm
StatementsExecuted 51 statements in 1.87ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11145µs45µsFile::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
11133µs352µsFile::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
11132µs49µsFile::Spec::Functions::::BEGIN@4File::Spec::Functions::BEGIN@4
11130µs79µsFile::Spec::Functions::::BEGIN@42File::Spec::Functions::BEGIN@42
0000s0sFile::Spec::Functions::::__ANON__[:43]File::Spec::Functions::__ANON__[:43]
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
32102µs145µs
# spent 45µs within File::Spec::Functions::BEGIN@3 which was called: # once (45µs+0s) by Config::General::BEGIN@21 at line 3
use File::Spec;
# spent 45µs making 1 call to File::Spec::Functions::BEGIN@3
42110µs266µs
# spent 49µs (32+17) within File::Spec::Functions::BEGIN@4 which was called: # once (32µs+17µs) by Config::General::BEGIN@21 at line 4
use strict;
# spent 49µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 17µs making 1 call to strict::import
5
62525µs2672µs
# spent 352µs (33+319) within File::Spec::Functions::BEGIN@6 which was called: # once (33µs+319µs) by Config::General::BEGIN@21 at line 6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
# spent 352µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 319µs making 1 call to vars::import
7
813µs$VERSION = '3.33';
9163µs$VERSION = eval $VERSION;
# spent 10µs executing statements in string eval
10
1111µsrequire Exporter;
12
13125µs@ISA = qw(Exporter);
14
1518µ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
2718µs@EXPORT_OK = qw(
28 devnull
29 tmpdir
30 splitpath
31 splitdir
32 catpath
33 abs2rel
34 rel2abs
35 case_tolerant
36);
37
38116µs%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
4014µsforeach my $meth (@EXPORT, @EXPORT_OK) {
4134715µs17213µs my $sub = File::Spec->can($meth);
# spent 213µs making 17 calls to UNIVERSAL::can, avg 13µs/call
422257µs2129µs
# spent 79µs (30+49) within File::Spec::Functions::BEGIN@42 which was called: # once (30µs+49µs) by Config::General::BEGIN@21 at line 42
no strict 'refs';
# spent 79µs making 1 call to File::Spec::Functions::BEGIN@42 # spent 50µs making 1 call to strict::unimport
43 *{$meth} = sub {&$sub('File::Spec', @_)};
44}
45
46
47136µs1;
48__END__