Profile of File/Glob.pm

Filename	/usr/local/perls/perl-5.26.1/lib/5.26.1/darwin-2level/File/Glob.pm
Statements	Executed 32 statements in 2.47ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	26µs	26µs	File::Glob::::BEGIN@78File::Glob::BEGIN@78
1	1	1	18µs	22µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	16µs	293µs	File::Glob::::importFile::Glob::import
1	1	1	12µs	33µs	File::Glob::::BEGIN@54File::Glob::BEGIN@54
1	1	1	12µs	16µs	File::Glob::::BEGIN@58File::Glob::BEGIN@58
1	1	1	6µs	6µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
1	1	1	4µs	4µs	File::Glob::::BEGIN@79File::Glob::BEGIN@79
2	2	2	3µs	3µs	File::Glob::::GLOB_CSHFile::Glob::GLOB_CSH (xsub)
0	0	0	0s	0s	File::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
1					package File::Glob;
2
3	2	253µs	2	26µs	# spent 22µs (18+4) within File::Glob::BEGIN@3 which was called: # once (18µs+4µs) by File::GlobMapper::BEGIN@10 at line 3 use strict; # spent 22µs making 1 call to File::Glob::BEGIN@3 # spent 4µs making 1 call to strict::import
4					our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
6	1	0s			require XSLoader;
7
8	1	9µ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	3µ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	1	2µs			$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
36	1	1µs			pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
37
38	1	2µs			@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
39
40	1	1µs			$VERSION = '1.28';
41
42					# spent 293µs (16+277) within File::Glob::import which was called: # once (16µs+277µs) by File::GlobMapper::BEGIN@10 at line 19 of File/GlobMapper.pm sub import {
43	1	1µs			require Exporter;
44	1	1µs			local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
45					Exporter::import(grep {
46	3	9µs	1	277µs	my $passthrough; # spent 277µs making 1 call to Exporter::import
47	2	2µs			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	54µs	2	54µs	# spent 33µs (12+21) within File::Glob::BEGIN@54 which was called: # once (12µs+21µs) by File::GlobMapper::BEGIN@10 at line 54 no warnings 'redefine'; # spent 33µs making 1 call to File::Glob::BEGIN@54 # spent 21µs making 1 call to warnings::unimport
55					*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
56					}
57					elsif ($_ eq ':bsd_glob') {
58	2	206µs	2	20µs	# spent 16µs (12+4) within File::Glob::BEGIN@58 which was called: # once (12µs+4µs) by File::GlobMapper::BEGIN@10 at line 58 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 16µs making 1 call to File::Glob::BEGIN@58 # spent 4µs making 1 call to strict::unimport
59					$passthrough = 1;
60					}
61					else {
62	2	0s			$passthrough = 1;
63					}
64	2	2µs			$passthrough;
65					} @_);
66					}
67
68	1	1.72ms	1	1.70ms	XSLoader::load(); # spent 1.70ms making 1 call to XSLoader::load
69
70	1	8µs	1	2µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 2µs making 1 call to File::Glob::GLOB_CSH
71	1	12µs	1	6µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|dos\|riscos)$/) { # spent 6µ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	2	55µs	1	26µs	# spent 26µs within File::Glob::BEGIN@78 which was called: # once (26µs+0s) by File::GlobMapper::BEGIN@10 at line 78 use 5.024; # spent 26µs making 1 call to File::Glob::BEGIN@78
79	2	106µs	1	4µs	# spent 4µs within File::Glob::BEGIN@79 which was called: # once (4µs+0s) by File::GlobMapper::BEGIN@10 at line 79 use warnings (); # spent 4µs making 1 call to File::Glob::BEGIN@79
80					warnings::warnif (deprecated =>
81					"File::Glob::glob() will disappear in perl 5.30. " .
82					"Use File::Glob::bsd_glob() instead.") unless state $warned ++;
83
84					splice @_, 1; # no flags
85					goto &bsd_glob;
86					}
87
88	1	21µs			1;
89					__END__

					# spent 6µs within File::Glob::CORE:match which was called: # once (6µs+0s) by File::GlobMapper::BEGIN@10 at line 71 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 70 # once (1µs+0s) by File::GlobMapper::BEGIN@10 at line 20 of File/GlobMapper.pm sub File::Glob::GLOB_CSH; # xsub