← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/5.22.0/x86_64-linux/File/Glob.pm
StatementsExecuted 28 statements in 418µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1117µs8µsFile::Glob::::BEGIN@3File::Glob::BEGIN@3
1116µs141µsFile::Glob::::importFile::Glob::import
1116µs16µsFile::Glob::::BEGIN@54File::Glob::BEGIN@54
1115µs8µsFile::Glob::::BEGIN@58File::Glob::BEGIN@58
1112µs2µsFile::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
2221µs1µsFile::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)
0000s0sFile::Glob::::globFile::Glob::glob
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package File::Glob;
2
32120µs210µs
# spent 8µs (7+1) within File::Glob::BEGIN@3 which was called: # once (7µs+1µs) by File::GlobMapper::BEGIN@10 at line 3
use strict;
# spent 8µs making 1 call to File::Glob::BEGIN@3 # spent 1µs making 1 call to strict::import
4our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
61300nsrequire XSLoader;
7
814µs@ISA = qw(Exporter);
9
10# NOTE: The glob() export is only here for compatibility with 5.6.0.
11# csh_glob() should not be used directly, unless you know what you're doing.
12
1312µs%EXPORT_TAGS = (
14 'glob' => [ qw(
15 GLOB_ABEND
16 GLOB_ALPHASORT
17 GLOB_ALTDIRFUNC
18 GLOB_BRACE
19 GLOB_CSH
20 GLOB_ERR
21 GLOB_ERROR
22 GLOB_LIMIT
23 GLOB_MARK
24 GLOB_NOCASE
25 GLOB_NOCHECK
26 GLOB_NOMAGIC
27 GLOB_NOSORT
28 GLOB_NOSPACE
29 GLOB_QUOTE
30 GLOB_TILDE
31 bsd_glob
32 glob
33 ) ],
34);
3511µs$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
361500nspop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
37
3812µs@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
39
401100ns$VERSION = '1.24';
41
42
# spent 141µs (6+135) within File::Glob::import which was called: # once (6µs+135µs) by File::GlobMapper::BEGIN@10 at line 19 of File/GlobMapper.pm
sub import {
431500ns require Exporter;
441400ns local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
45 Exporter::import(grep {
4634µs1135µs my $passthrough;
# spent 135µs making 1 call to Exporter::import
472800ns if ($_ eq ':case') {
48 $DEFAULT_FLAGS &= ~GLOB_NOCASE()
49 }
50 elsif ($_ eq ':nocase') {
51 $DEFAULT_FLAGS |= GLOB_NOCASE();
52 }
53 elsif ($_ eq ':globally') {
54223µs225µs
# spent 16µs (6+10) within File::Glob::BEGIN@54 which was called: # once (6µs+10µs) by File::GlobMapper::BEGIN@10 at line 54
no warnings 'redefine';
# spent 16µs making 1 call to File::Glob::BEGIN@54 # spent 10µs making 1 call to warnings::unimport
55 *CORE::GLOBAL::glob = \&File::Glob::csh_glob;
56 }
57 elsif ($_ eq ':bsd_glob') {
582112µs210µs
# spent 8µs (5+3) within File::Glob::BEGIN@58 which was called: # once (5µs+3µs) by File::GlobMapper::BEGIN@10 at line 58
no strict; *{caller."::glob"} = \&bsd_glob_override;
# spent 8µs making 1 call to File::Glob::BEGIN@58 # spent 3µs making 1 call to strict::unimport
59 $passthrough = 1;
60 }
61 else {
622400ns $passthrough = 1;
63 }
642300ns $passthrough;
65 } @_);
66}
67
681130µs1124µsXSLoader::load();
# spent 124µs making 1 call to XSLoader::load
69
7014µs1700ns$DEFAULT_FLAGS = GLOB_CSH();
# spent 700ns making 1 call to File::Glob::GLOB_CSH
7114µs12µsif ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
# spent 2µs making 1 call to File::Glob::CORE:match
72 $DEFAULT_FLAGS |= GLOB_NOCASE();
73}
74
75# File::Glob::glob() is deprecated because its prototype is different from
76# CORE::glob() (use bsd_glob() instead)
77sub glob {
78 splice @_, 1; # no flags
79 goto &bsd_glob;
80}
81
8219µs1;
83__END__
 
# spent 2µs within File::Glob::CORE:match which was called: # once (2µs+0s) by File::GlobMapper::BEGIN@10 at line 71
sub File::Glob::CORE:match; # opcode
# spent 1µs within File::Glob::GLOB_CSH which was called 2 times, avg 550ns/call: # once (700ns+0s) by File::GlobMapper::BEGIN@10 at line 70 # once (400ns+0s) by File::GlobMapper::BEGIN@10 at line 20 of File/GlobMapper.pm
sub File::Glob::GLOB_CSH; # xsub