Profile of File/Spec.pm

← 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
Statements | Executed 11 statements in 1.00ms

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 67µs | 85µs | File::Spec::::BEGIN@3File::Spec::BEGIN@3
1 | 1 | 1 | 27µs | 190µs | File::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
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package File::Spec;
2 |  |  |  |  |
3 | 2 | 110µs | 2 | 102µ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
4 | 2 | 403µs | 2 | 354µ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 |  |  |  |  |
6 | 1 | 2µs |  |  | $VERSION = '3.33';
7 | 1 | 61µs |  |  | $VERSION = eval $VERSION; # spent 9µs executing statements in string eval
8 |  |  |  |  |
9 | 1 | 19µs |  |  | my %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 |  |  |  |  |
20 | 1 | 7µs |  |  | my $module = $module{$^O} || 'Unix';
21 |  |  |  |  |
22 | 1 | 323µs |  |  | require "File/Spec/$module.pm";
23 | 1 | 36µs |  |  | @ISA = ("File::Spec::$module");
24 |  |  |  |  |
25 | 1 | 44µs |  |  | 1;
26 |  |  |  |  |
27 |  |  |  |  | __END__