Profile of File/Spec.pm

← Index
NYTProf Performance Profile «line view»
For -e
Run on Thu Jun 30 16:34:56 2016
Reported on Thu Jun 30 16:35: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 290µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 17µs | 20µs | File::Spec::::BEGIN@3File::Spec::BEGIN@3
1 | 1 | 1 | 8µs | 49µ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 | 30µs | 2 | 22µs | # spent 20µs (17+2) within File::Spec::BEGIN@3 which was called: # once (17µs+2µs) by Class::Inspector::BEGIN@47 at line 3 use strict; # spent 20µs making 1 call to File::Spec::BEGIN@3 # spent 2µs making 1 call to strict::import
4 | 2 | 116µs | 2 | 90µs | # spent 49µs (8+41) within File::Spec::BEGIN@4 which was called: # once (8µs+41µs) by Class::Inspector::BEGIN@47 at line 4 use vars qw(@ISA $VERSION); # spent 49µs making 1 call to File::Spec::BEGIN@4 # spent 41µs making 1 call to vars::import
5 |  |  |  |  |
6 | 1 | 400ns |  |  | $VERSION = '3.62';
7 | 1 | 2µs |  |  | $VERSION =~ tr/_//d;
8 |  |  |  |  |
9 | 1 | 5µ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 | 116µs |  |  | require "File/Spec/$module.pm";
24 | 1 | 9µs |  |  | @ISA = ("File::Spec::$module");
25 |  |  |  |  |
26 | 1 | 10µs |  |  | 1;
27 |  |  |  |  |
28 |  |  |  |  | __END__