Profile of File/Spec.pm

← 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:22:53 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/x86_64-linux/File/Spec.pm
Statements | Executed 13 statements in 213µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 11µs | 13µs | File::Spec::::BEGIN@3File::Spec::BEGIN@3
1 | 1 | 1 | 8µs | 53µ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 | 3 | 24µs | 2 | 15µs | # spent 13µs (11+2) within File::Spec::BEGIN@3 which was called: # once (11µs+2µs) by Log::Log4perl::Util::BEGIN@3 at line 3 use strict; # spent 13µs making 1 call to File::Spec::BEGIN@3 # spent 2µs making 1 call to strict::import
4 | 3 | 93µs | 2 | 97µs | # spent 53µs (8+44) within File::Spec::BEGIN@4 which was called: # once (8µs+44µs) by Log::Log4perl::Util::BEGIN@3 at line 4 use vars qw(@ISA $VERSION); # spent 53µs making 1 call to File::Spec::BEGIN@4 # spent 44µs making 1 call to vars::import
5 |  |  |  |  |
6 | 1 | 500ns |  |  | $VERSION = '3.33';
7 | 1 | 13µs |  |  | $VERSION = eval $VERSION; # spent 2µs executing statements in string eval
8 |  |  |  |  |
9 | 1 | 7µ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 | 2µs |  |  | my $module = $module{$^O} || 'Unix';
21 |  |  |  |  |
22 | 1 | 57µs |  |  | require "File/Spec/$module.pm";
23 | 1 | 10µs |  |  | @ISA = ("File::Spec::$module");
24 |  |  |  |  |
25 | 1 | 8µs |  |  | 1;
26 |  |  |  |  |
27 |  |  |  |  | __END__