Profile of File/Spec.pm

← Index
NYTProf Performance Profile «line view»
For -e
Run on Thu Jun 30 16:16:00 2016
Reported on Thu Jun 30 16:16:08 2016

Filename | /home/s1/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/x86_64-linux/File/Spec.pm
Statements | Executed 11 statements in 381µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 30µs | 33µs | File::Spec::::BEGIN@3File::Spec::BEGIN@3
1 | 1 | 1 | 9µs | 48µ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 | 40µs | 2 | 37µs | # spent 33µs (30+4) within File::Spec::BEGIN@3 which was called: # once (30µs+4µs) by DateTime::TimeZone::Local::BEGIN@7 at line 3 use strict; # spent 33µs making 1 call to File::Spec::BEGIN@3 # spent 4µs making 1 call to strict::import
4 | 2 | 122µs | 2 | 88µs | # spent 48µs (9+40) within File::Spec::BEGIN@4 which was called: # once (9µs+40µs) by DateTime::TimeZone::Local::BEGIN@7 at line 4 use vars qw(@ISA $VERSION); # spent 48µs making 1 call to File::Spec::BEGIN@4 # spent 40µs making 1 call to vars::import
5 |  |  |  |  |
6 | 1 | 700ns |  |  | $VERSION = '3.62';
7 | 1 | 2µs |  |  | $VERSION =~ tr/_//d;
8 |  |  |  |  |
9 | 1 | 6µ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 |  |  |  |  | amigaos => 'AmigaOS');
19 |  |  |  |  |
20 |  |  |  |  |
21 | 1 | 2µs |  |  | my $module = $module{$^O} || 'Unix';
22 |  |  |  |  |
23 | 1 | 189µs |  |  | require "File/Spec/$module.pm";
24 | 1 | 10µs |  |  | @ISA = ("File::Spec::$module");
25 |  |  |  |  |
26 | 1 | 9µs |  |  | 1;
27 |  |  |  |  |
28 |  |  |  |  | __END__