Profile of File/Glob.pm

Filename	/usr/local/lib/perl5/5.24/mach/File/Glob.pm
Statements	Executed 20 statements in 1.56ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	53µs	66µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	25µs	93µs	File::Glob::::BEGIN@54File::Glob::BEGIN@54
1	1	1	20µs	36µs	File::Glob::::BEGIN@58File::Glob::BEGIN@58
1	1	1	10µs	10µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
1	1	1	3µs	3µs	File::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)
0	0	0	0s	0s	File::Glob::::globFile::Glob::glob
0	0	0	0s	0s	File::Glob::::importFile::Glob::import

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	452µs	2	80µs	# spent 66µs (53+14) within File::Glob::BEGIN@3 which was called: # once (53µs+14µs) by Mail::SpamAssassin::Util::BEGIN@1750 at line 3 use strict; # spent 66µs making 1 call to File::Glob::BEGIN@3 # spent 14µs making 1 call to strict::import
4					our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
6	1	2µs			require XSLoader;
7
8	1	21µ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
13	1	7µ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					);
35	2	16µs			$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
36	2	20µs			pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
37
38	2	9µs			@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
39
40	1	2µs			$VERSION = '1.26';
41
42					sub import {
43					require Exporter;
44					local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
45					Exporter::import(grep {
46					my $passthrough;
47					if ($_ eq ':case') {
48					$DEFAULT_FLAGS &= ~GLOB_NOCASE()
49					}
50					elsif ($_ eq ':nocase') {
51					$DEFAULT_FLAGS \|= GLOB_NOCASE();
52					}
53					elsif ($_ eq ':globally') {
54	2	94µs	2	161µs	# spent 93µs (25+68) within File::Glob::BEGIN@54 which was called: # once (25µs+68µs) by Mail::SpamAssassin::Util::BEGIN@1750 at line 54 no warnings 'redefine'; # spent 93µs making 1 call to File::Glob::BEGIN@54 # spent 68µs making 1 call to warnings::unimport
55					*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
56					}
57					elsif ($_ eq ':bsd_glob') {
58	2	376µs	2	52µs	# spent 36µs (20+16) within File::Glob::BEGIN@58 which was called: # once (20µs+16µs) by Mail::SpamAssassin::Util::BEGIN@1750 at line 58 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 36µs making 1 call to File::Glob::BEGIN@58 # spent 16µs making 1 call to strict::unimport
59					$passthrough = 1;
60					}
61					else {
62					$passthrough = 1;
63					}
64					$passthrough;
65					} @_);
66					}
67
68	1	470µs	1	452µs	XSLoader::load(); # spent 452µs making 1 call to XSLoader::load
69
70	1	20µs	1	3µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 3µs making 1 call to File::Glob::GLOB_CSH
71	1	31µs	1	10µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|dos\|riscos)$/) { # spent 10µ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)
77					sub glob {
78					splice @_, 1; # no flags
79					goto &bsd_glob;
80					}
81
82	1	41µs			1;
83					__END__

					# spent 10µs within File::Glob::CORE:match which was called: # once (10µs+0s) by Mail::SpamAssassin::Util::BEGIN@1750 at line 71 sub File::Glob::CORE:match; # opcode
					# spent 3µs within File::Glob::GLOB_CSH which was called: # once (3µs+0s) by Mail::SpamAssassin::Util::BEGIN@1750 at line 70 sub File::Glob::GLOB_CSH; # xsub