Profile of File/Spec.pm

← Index
NYTProf Performance Profile «line view»
For t/bug-md-11.t
Run on Fri Mar 8 13:27:24 2024
Reported on Fri Mar 8 13:30:23 2024

Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/5.38.2/x86_64-linux/File/Spec.pm
Statements | Executed 9 statements in 143µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 9µs | 10µs | File::Spec::::BEGIN@3File::Spec::BEGIN@3

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 | 71µs | 2 | 12µs | # spent 10µs (9+2) within File::Spec::BEGIN@3 which was called: # once (9µs+2µs) by Archive::Zip::BEGIN@10 at line 3 use strict; # spent 10µs making 1 call to File::Spec::BEGIN@3 # spent 2µs making 1 call to strict::import
4 |  |  |  |  |
5 | 1 | 300ns |  |  | our $VERSION = '3.88';
6 | 1 | 600ns |  |  | $VERSION =~ tr/_//d;
7 |  |  |  |  |
8 | 1 | 2µs |  |  | my %module = (
9 |  |  |  |  | MSWin32 => 'Win32',
10 |  |  |  |  | os2 => 'OS2',
11 |  |  |  |  | VMS => 'VMS',
12 |  |  |  |  | NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
13 |  |  |  |  | symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
14 |  |  |  |  | dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP.
15 |  |  |  |  | cygwin => 'Cygwin',
16 |  |  |  |  | amigaos => 'AmigaOS');
17 |  |  |  |  |
18 |  |  |  |  |
19 | 1 | 900ns |  |  | my $module = $module{$^O} || 'Unix';
20 |  |  |  |  |
21 | 1 | 57µs |  |  | require "File/Spec/$module.pm";
22 | 1 | 6µs |  |  | our @ISA = ("File::Spec::$module");
23 |  |  |  |  |
24 | 1 | 5µs |  |  | 1;
25 |  |  |  |  |
26 |  |  |  |  | __END__