← Index
NYTProf Performance Profile   « line view »
For webmerge/scripts/webmerge.pl
  Run on Mon Oct 7 02:42:42 2013
Reported on Mon Oct 7 03:03:21 2013

Filename/usr/lib64/perl5/vendor_perl/5.16.0/x86_64-linux/File/Spec/Functions.pm
StatementsExecuted 32652 statements in 1.41s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
32601211.16s58.2sFile::Spec::Functions::::__ANON__[:43]File::Spec::Functions::__ANON__[:43]
11165µs141µsFile::Spec::Functions::::BEGIN@42File::Spec::Functions::BEGIN@42
11162µs62µsFile::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
11161µs518µsFile::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
11151µs144µsFile::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
1package File::Spec::Functions;
2
32150µs162µs
# spent 62µs within File::Spec::Functions::BEGIN@3 which was called: # once (62µs+0s) by RTP::Webmerge::Path::BEGIN@43 at line 3
use File::Spec;
# spent 62µs making 1 call to File::Spec::Functions::BEGIN@3
42211µs2236µs
# spent 144µs (51+93) within File::Spec::Functions::BEGIN@4 which was called: # once (51µs+93µs) by RTP::Webmerge::Path::BEGIN@43 at line 4
use strict;
# spent 144µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 93µs making 1 call to strict::import
5
62643µs2976µs
# spent 518µs (61+458) within File::Spec::Functions::BEGIN@6 which was called: # once (61µs+458µs) by RTP::Webmerge::Path::BEGIN@43 at line 6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
# spent 518µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 458µs making 1 call to vars::import
7
813µs$VERSION = '3.40';
914µs$VERSION =~ tr/_//;
10
1113µsrequire Exporter;
12
13135µs@ISA = qw(Exporter);
14
15112µ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
27110µs@EXPORT_OK = qw(
28 devnull
29 tmpdir
30 splitpath
31 splitdir
32 catpath
33 abs2rel
34 rel2abs
35 case_tolerant
36);
37
38122µs%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
4017µsforeach my $meth (@EXPORT, @EXPORT_OK) {
4117664µs17284µs my $sub = File::Spec->can($meth);
# spent 284µs making 17 calls to UNIVERSAL::can, avg 17µs/call
422319µs2216µs
# spent 141µs (65+76) within File::Spec::Functions::BEGIN@42 which was called: # once (65µs+76µs) by RTP::Webmerge::Path::BEGIN@43 at line 42
no strict 'refs';
# spent 141µs making 1 call to File::Spec::Functions::BEGIN@42 # spent 76µs making 1 call to strict::unimport
43326181.40s3260157.0s
# spent 58.2s (1.16+57.0) within File::Spec::Functions::__ANON__[/usr/lib64/perl5/vendor_perl/5.16.0/x86_64-linux/File/Spec/Functions.pm:43] which was called 32601 times, avg 1.78ms/call: # 19016 times (671ms+47.1s) by RTP::Webmerge::Path::exportURI at line 109 of webmerge/scripts/modules/RTP/Webmerge/Path.pm, avg 2.51ms/call # 13585 times (488ms+9.89s) by RTP::Webmerge::Path::importURI at line 80 of webmerge/scripts/modules/RTP/Webmerge/Path.pm, avg 764µs/call
*{$meth} = sub {&$sub('File::Spec', @_)};
# spent 47.1s making 19016 calls to File::Spec::Unix::abs2rel, avg 2.48ms/call # spent 9.89s making 13585 calls to File::Spec::Unix::rel2abs, avg 728µs/call
44}
45
46
47145µs1;
48__END__