← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:16 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/x86_64-linux/File/Spec/Functions.pm
StatementsExecuted 55 statements in 340µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11110µs10µsFile::Spec::Functions::::BEGIN@3File::Spec::Functions::BEGIN@3
1117µs71µsFile::Spec::Functions::::BEGIN@6File::Spec::Functions::BEGIN@6
1117µs9µsFile::Spec::Functions::::BEGIN@4File::Spec::Functions::BEGIN@4
1115µs14µ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
3318µs110µs
# spent 10µs within File::Spec::Functions::BEGIN@3 which was called: # once (10µs+0s) by SQL::Translator::BEGIN@35 at line 3
use File::Spec;
# spent 10µs making 1 call to File::Spec::Functions::BEGIN@3
4320µs212µs
# spent 9µs (7+2) within File::Spec::Functions::BEGIN@4 which was called: # once (7µs+2µs) by SQL::Translator::BEGIN@35 at line 4
use strict;
# spent 9µs making 1 call to File::Spec::Functions::BEGIN@4 # spent 2µs making 1 call to strict::import
5
6397µs2135µs
# spent 71µs (7+64) within File::Spec::Functions::BEGIN@6 which was called: # once (7µs+64µs) by SQL::Translator::BEGIN@35 at line 6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
# spent 71µs making 1 call to File::Spec::Functions::BEGIN@6 # spent 64µs making 1 call to vars::import
7
81500ns$VERSION = '3.33';
9113µs$VERSION = eval $VERSION;
# spent 2µs executing statements in string eval
10
111700nsrequire Exporter;
12
1317µs@ISA = qw(Exporter);
14
1512µ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
3814µs%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
39
401700nsforeach my $meth (@EXPORT, @EXPORT_OK) {
4134126µs1734µs my $sub = File::Spec->can($meth);
# spent 34µs making 17 calls to UNIVERSAL::can, avg 2µs/call
42343µs223µs
# spent 14µs (5+9) within File::Spec::Functions::BEGIN@42 which was called: # once (5µs+9µs) by SQL::Translator::BEGIN@35 at line 42
no strict 'refs';
# spent 14µs making 1 call to File::Spec::Functions::BEGIN@42 # spent 9µs making 1 call to strict::unimport
43 *{$meth} = sub {&$sub('File::Spec', @_)};
44}
45
46
4718µs1;
48__END__