← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/dpath
  Run on Tue Jun 5 15:31:33 2012
Reported on Tue Jun 5 15:31:38 2012

Filename/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/x86_64-linux-thread-multi/File/Spec.pm
StatementsExecuted 11 statements in 1.00ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11167µs85µsFile::Spec::::BEGIN@3File::Spec::BEGIN@3
11127µs190µsFile::Spec::::BEGIN@4File::Spec::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;
2
32110µs2102µs
# spent 85µs (67+18) within File::Spec::BEGIN@3 which was called: # once (67µs+18µs) by Devel::StackTrace::BEGIN@12 at line 3
use strict;
# spent 85µs making 1 call to File::Spec::BEGIN@3 # spent 18µs making 1 call to strict::import
42403µs2354µs
# spent 190µs (27+164) within File::Spec::BEGIN@4 which was called: # once (27µs+164µs) by Devel::StackTrace::BEGIN@12 at line 4
use vars qw(@ISA $VERSION);
# spent 190µs making 1 call to File::Spec::BEGIN@4 # spent 164µs making 1 call to vars::import
5
612µs$VERSION = '3.33';
7161µs$VERSION = eval $VERSION;
# spent 9µs executing statements in string eval
8
9119µsmy %module = (MacOS => 'Mac',
10 MSWin32 => 'Win32',
11 os2 => 'OS2',
12 VMS => 'VMS',
13 epoc => 'Epoc',
14 NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
15 symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
16 dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP.
17 cygwin => 'Cygwin');
18
19
2017µsmy $module = $module{$^O} || 'Unix';
21
221323µsrequire "File/Spec/$module.pm";
23136µs@ISA = ("File::Spec::$module");
24
25144µs1;
26
27__END__