← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/File/Spec.pm
StatementsExecuted 11 statements in 124µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1116µs7µsFile::Spec::::BEGIN@3File::Spec::BEGIN@3
1115µs30µ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
3215µs28µs
# spent 7µs (6+1) within File::Spec::BEGIN@3 which was called: # once (6µs+1µs) by File::HomeDir::BEGIN@9 at line 3
use strict;
# spent 7µs making 1 call to File::Spec::BEGIN@3 # spent 1µs making 1 call to strict::import
4256µs256µs
# spent 30µs (5+26) within File::Spec::BEGIN@4 which was called: # once (5µs+26µs) by File::HomeDir::BEGIN@9 at line 4
use vars qw(@ISA $VERSION);
# spent 30µs making 1 call to File::Spec::BEGIN@4 # spent 26µs making 1 call to vars::import
5
61200ns$VERSION = '3.62';
71900ns$VERSION =~ tr/_//d;
8
916µ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 amigaos => 'AmigaOS');
19
20
2111µsmy $module = $module{$^O} || 'Unix';
22
23134µsrequire "File/Spec/$module.pm";
2416µs@ISA = ("File::Spec::$module");
25
2615µs1;
27
28__END__