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 629µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	11µs	12µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	8µs	120µs	File::Glob::::importFile::Glob::import
1	1	1	4µs	19µs	File::Glob::::BEGIN@50File::Glob::BEGIN@50
1	1	1	3µs	5µs	File::Glob::::BEGIN@54File::Glob::BEGIN@54
1	1	1	2µs	2µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
2	2	2	2µs	2µ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	109µs	2	13µs	# spent 12µs (11+1) within File::Glob::BEGIN@3 which was called: # once (11µs+1µs) by File::GlobMapper::BEGIN@10 at line 3 use strict; # spent 12µs making 1 call to File::Glob::BEGIN@3 # spent 1µ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	1µs			our $VERSION = '1.37';
37
38					# spent 120µs (8+112) within File::Glob::import which was called: # once (8µs+112µs) by File::GlobMapper::BEGIN@10 at line 19 of File/GlobMapper.pm sub import {
39	1	0s			require Exporter;
40	1	1µs			local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
41					Exporter::import(grep {
42	3	2µs	1	112µs	my $passthrough; # spent 112µs making 1 call to Exporter::import
43	2	0s			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	23µs	2	34µs	# spent 19µs (4+15) within File::Glob::BEGIN@50 which was called: # once (4µs+15µs) by File::GlobMapper::BEGIN@10 at line 50 no warnings 'redefine'; # spent 19µs making 1 call to File::Glob::BEGIN@50 # spent 15µs making 1 call to warnings::unimport
51					*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
52					}
53					elsif ($_ eq ':bsd_glob') {
54	2	123µs	2	7µs	# spent 5µs (3+2) within File::Glob::BEGIN@54 which was called: # once (3µs+2µs) by File::GlobMapper::BEGIN@10 at line 54 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 5µs making 1 call to File::Glob::BEGIN@54 # spent 2µs making 1 call to strict::unimport
55					$passthrough = 1;
56					}
57					else {
58	2	1µs			$passthrough = 1;
59					}
60	2	1µs			$passthrough;
61					} @_);
62					}
63
64	1	346µs	1	340µs	XSLoader::load(); # spent 340µs making 1 call to XSLoader::load
65
66	1	4µs	1	1µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 1µs making 1 call to File::Glob::GLOB_CSH
67	1	6µs	1	2µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|riscos)$/) { # spent 2µs making 1 call to File::Glob::CORE:match
68					$DEFAULT_FLAGS \|= GLOB_NOCASE();
69					}
70
71	1	8µs			1;
72					__END__

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