Profile of File/Glob.pm

Filename	/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/darwin-2level/File/Glob.pm
Statements	Executed 26 statements in 4.24ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	24µs	26µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	13µs	158µs	File::Glob::::importFile::Glob::import
1	1	1	7µs	26µs	File::Glob::::BEGIN@50File::Glob::BEGIN@50
1	1	1	5µs	5µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
1	1	1	4µs	7µs	File::Glob::::BEGIN@54File::Glob::BEGIN@54
2	2	2	3µs	3µs	File::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)

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::Glob;
2
3	2	158µs	2	28µs	# spent 26µs (24+2) within File::Glob::BEGIN@3 which was called: # once (24µs+2µs) by File::GlobMapper::BEGIN@10 at line 3 use strict; # spent 26µs making 1 call to File::Glob::BEGIN@3 # spent 2µs making 1 call to strict::import
4					our($DEFAULT_FLAGS);
5
6	1	0s			require XSLoader;
7
8					# NOTE: The glob() export is only here for compatibility with 5.6.0.
9					# csh_glob() should not be used directly, unless you know what you're doing.
10
11	1	2µs			our %EXPORT_TAGS = (
12					'glob' => [ qw(
13					GLOB_ABEND
14					GLOB_ALPHASORT
15					GLOB_ALTDIRFUNC
16					GLOB_BRACE
17					GLOB_CSH
18					GLOB_ERR
19					GLOB_ERROR
20					GLOB_LIMIT
21					GLOB_MARK
22					GLOB_NOCASE
23					GLOB_NOCHECK
24					GLOB_NOMAGIC
25					GLOB_NOSORT
26					GLOB_NOSPACE
27					GLOB_QUOTE
28					GLOB_TILDE
29					bsd_glob
30					) ],
31					);
32	1	1µs			$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
33
34	1	1µs			our @EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
35
36	1	0s			our $VERSION = '1.37';
37
38					# spent 158µs (13+145) within File::Glob::import which was called: # once (13µs+145µs) by File::GlobMapper::BEGIN@10 at line 19 of File/GlobMapper.pm sub import {
39	1	1µs			require Exporter;
40	1	1µs			local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
41					Exporter::import(grep {
42	3	7µs	1	145µs	my $passthrough; # spent 145µs making 1 call to Exporter::import
43	2	2µs			if ($_ eq ':case') {
44					$DEFAULT_FLAGS &= ~GLOB_NOCASE()
45					}
46					elsif ($_ eq ':nocase') {
47					$DEFAULT_FLAGS \|= GLOB_NOCASE();
48					}
49					elsif ($_ eq ':globally') {
50	2	29µs	2	45µs	# spent 26µs (7+19) within File::Glob::BEGIN@50 which was called: # once (7µs+19µs) by File::GlobMapper::BEGIN@10 at line 50 no warnings 'redefine'; # spent 26µs making 1 call to File::Glob::BEGIN@50 # spent 19µs making 1 call to warnings::unimport
51					*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
52					}
53					elsif ($_ eq ':bsd_glob') {
54	2	151µs	2	10µs	# spent 7µs (4+3) within File::Glob::BEGIN@54 which was called: # once (4µs+3µs) by File::GlobMapper::BEGIN@10 at line 54 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 7µs making 1 call to File::Glob::BEGIN@54 # spent 3µs making 1 call to strict::unimport
55					$passthrough = 1;
56					}
57					else {
58	2	0s			$passthrough = 1;
59					}
60	2	0s			$passthrough;
61					} @_);
62					}
63
64	1	3.86ms	1	3.85ms	XSLoader::load(); # spent 3.85ms making 1 call to XSLoader::load
65
66	1	6µs	1	2µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 2µs making 1 call to File::Glob::GLOB_CSH
67	1	9µs	1	5µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|riscos)$/) { # spent 5µs making 1 call to File::Glob::CORE:match
68					$DEFAULT_FLAGS \|= GLOB_NOCASE();
69					}
70
71	1	14µs			1;
72					__END__

					# spent 5µs within File::Glob::CORE:match which was called: # once (5µs+0s) by File::GlobMapper::BEGIN@10 at line 67 sub File::Glob::CORE:match; # opcode
					# spent 3µs within File::Glob::GLOB_CSH which was called 2 times, avg 2µs/call: # once (2µs+0s) by File::GlobMapper::BEGIN@10 at line 66 # once (1µs+0s) by File::GlobMapper::BEGIN@10 at line 20 of File/GlobMapper.pm sub File::Glob::GLOB_CSH; # xsub