Profile of File/Glob.pm

Filename	/usr/libdata/perl5/amd64-openbsd/File/Glob.pm
Statements	Executed 28 statements in 1.41ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	40µs	45µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	34µs	786µs	File::Glob::::importFile::Glob::import
1	1	1	20µs	94µs	File::Glob::::BEGIN@54File::Glob::BEGIN@54
1	1	1	17µs	26µs	File::Glob::::BEGIN@58File::Glob::BEGIN@58
1	1	1	11µs	11µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
2	2	2	4µs	4µ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	424µs	2	51µs	# spent 45µs (40+6) within File::Glob::BEGIN@3 which was called: # once (40µs+6µs) by File::GlobMapper::BEGIN@10 at line 3 use strict; # spent 45µs making 1 call to File::Glob::BEGIN@3 # spent 6µs making 1 call to strict::import
4					our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
6	1	1µs			require XSLoader;
7
8	1	10µ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	6µ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	5µs			$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
36	1	2µs			pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
37
38	1	5µs			@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
39
40	1	1µs			$VERSION = '1.26';
41
42					# spent 786µs (34+753) within File::Glob::import which was called: # once (34µs+753µs) by File::GlobMapper::BEGIN@10 at line 19 of File/GlobMapper.pm sub import {
43	1	2µs			require Exporter;
44	1	8µs			local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
45					Exporter::import(grep {
46	3	17µs	1	753µs	my $passthrough; # spent 753µs making 1 call to Exporter::import
47	2	4µ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	99µs	2	167µs	# spent 94µs (20+73) within File::Glob::BEGIN@54 which was called: # once (20µs+73µs) by File::GlobMapper::BEGIN@10 at line 54 no warnings 'redefine'; # spent 94µs making 1 call to File::Glob::BEGIN@54 # spent 73µs making 1 call to warnings::unimport
55					*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
56					}
57					elsif ($_ eq ':bsd_glob') {
58	2	342µs	2	35µs	# spent 26µs (17+9) within File::Glob::BEGIN@58 which was called: # once (17µs+9µs) by File::GlobMapper::BEGIN@10 at line 58 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 26µs making 1 call to File::Glob::BEGIN@58 # spent 9µs making 1 call to strict::unimport
59					$passthrough = 1;
60					}
61					else {
62	2	2µs			$passthrough = 1;
63					}
64	2	2µs			$passthrough;
65					} @_);
66					}
67
68	1	418µs	1	403µs	XSLoader::load(); # spent 403µs making 1 call to XSLoader::load
69
70	1	13µs	1	2µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 2µs making 1 call to File::Glob::GLOB_CSH
71	1	21µs	1	11µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|dos\|riscos)$/) { # spent 11µ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	32µs			1;
83					__END__

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