Profile of File/Glob.pm

Filename	/usr/lib64/perl5/5.16.0/x86_64-linux/File/Glob.pm
Statements	Executed 113 statements in 86.4ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	4.69ms	4.91ms	File::Glob::::BEGIN@7File::Glob::BEGIN@7
3	3	3	457µs	1.30ms	File::Glob::::importFile::Glob::import
2	1	1	128µs	128µs	File::Glob::::bsd_globFile::Glob::bsd_glob (xsub)
1	1	1	84µs	188µs	File::Glob::::BEGIN@3File::Glob::BEGIN@3
1	1	1	66µs	128µs	File::Glob::::BEGIN@52File::Glob::BEGIN@52
1	1	1	50µs	136µs	File::Glob::::BEGIN@56File::Glob::BEGIN@56
3	1	1	20µs	20µs	File::Glob::::GLOB_NOCASEFile::Glob::GLOB_NOCASE (xsub)
1	1	1	18µs	18µs	File::Glob::::CORE:matchFile::Glob::CORE:match (opcode)
1	1	1	8µs	8µ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	357µs	2	292µs	# spent 188µs (84+104) within File::Glob::BEGIN@3 which was called: # once (84µs+104µs) by RTP::Webmerge::BEGIN@18 at line 3 use strict; # spent 188µs making 1 call to File::Glob::BEGIN@3 # spent 104µs making 1 call to strict::import
4	1	4µs			our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
5
6	1	3µs			require XSLoader;
7	2	5.62ms	2	5.14ms	# spent 4.91ms (4.69+225µs) within File::Glob::BEGIN@7 which was called: # once (4.69ms+225µs) by RTP::Webmerge::BEGIN@18 at line 7 use feature 'switch'; # spent 4.91ms making 1 call to File::Glob::BEGIN@7 # spent 225µs making 1 call to feature::import
8
9	1	44µs			@ISA = qw(Exporter);
10
11					# NOTE: The glob() export is only here for compatibility with 5.6.0.
12					# csh_glob() should not be used directly, unless you know what you're doing.
13
14	1	27µs			%EXPORT_TAGS = (
15					'glob' => [ qw(
16					GLOB_ABEND
17					GLOB_ALPHASORT
18					GLOB_ALTDIRFUNC
19					GLOB_BRACE
20					GLOB_CSH
21					GLOB_ERR
22					GLOB_ERROR
23					GLOB_LIMIT
24					GLOB_MARK
25					GLOB_NOCASE
26					GLOB_NOCHECK
27					GLOB_NOMAGIC
28					GLOB_NOSORT
29					GLOB_NOSPACE
30					GLOB_QUOTE
31					GLOB_TILDE
32					bsd_glob
33					glob
34					) ],
35					);
36	1	21µs			$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
37	1	4µs			pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
38
39	1	18µs			@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
40
41	1	2µs			$VERSION = '1.17';
42
43					# spent 1.30ms (457µs+839µs) within File::Glob::import which was called 3 times, avg 432µs/call: # once (164µs+509µs) by RTP::Webmerge::BEGIN@18 at line 18 of webmerge/scripts/modules/RTP/Webmerge.pm # once (167µs+165µs) by RTP::Webmerge::IO::BEGIN@35 at line 35 of webmerge/scripts/modules/RTP/Webmerge/IO.pm # once (126µs+166µs) by RTP::Webmerge::Merge::BEGIN@50 at line 50 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm sub import {
44	3	8µs			require Exporter;
45	3	16µs			local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
46	12	7µs			Exporter::import(grep {
47	3	134µs	3	820µs	my $passthrough; # spent 820µs making 3 calls to Exporter::import, avg 273µs/call
48	12	35µs			given ($_) {
49	12	49µs			$DEFAULT_FLAGS &= ~GLOB_NOCASE() when ':case';
50	12	154µs	3	20µs	$DEFAULT_FLAGS \|= GLOB_NOCASE() when ':nocase'; # spent 20µs making 3 calls to File::Glob::GLOB_NOCASE, avg 6µs/call
51	9	25µs			when (':globally') {
52	2	287µs	2	189µs	# spent 128µs (66+62) within File::Glob::BEGIN@52 which was called: # once (66µs+62µs) by RTP::Webmerge::BEGIN@18 at line 52 no warnings 'redefine'; # spent 128µs making 1 call to File::Glob::BEGIN@52 # spent 62µs making 1 call to warnings::unimport
53	3	23µs			*CORE::GLOBAL::glob = \&File::Glob::csh_glob;
54					}
55	6	6µs			if ($_ eq ':bsd_glob') {
56	2	961µs	2	223µs	# spent 136µs (50+87) within File::Glob::BEGIN@56 which was called: # once (50µs+87µs) by RTP::Webmerge::BEGIN@18 at line 56 no strict; *{caller."::glob"} = \&bsd_glob_override; # spent 136µs making 1 call to File::Glob::BEGIN@56 # spent 87µs making 1 call to strict::unimport
57					}
58	6	12µs			$passthrough = 1;
59					}
60	12	17µs			$passthrough;
61					} @_);
62					}
63
64	1	78.4ms	1	78.3ms	XSLoader::load(); # spent 78.3ms making 1 call to XSLoader::load
65
66	1	42µs	1	8µs	$DEFAULT_FLAGS = GLOB_CSH(); # spent 8µs making 1 call to File::Glob::GLOB_CSH
67	1	47µs	1	18µs	if ($^O =~ /^(?:MSWin32\|VMS\|os2\|dos\|riscos)$/) { # spent 18µs making 1 call to File::Glob::CORE:match
68					$DEFAULT_FLAGS \|= GLOB_NOCASE();
69					}
70
71					# File::Glob::glob() is deprecated because its prototype is different from
72					# CORE::glob() (use bsd_glob() instead)
73					sub glob {
74					splice @_, 1; # don't pass PL_glob_index as flags!
75					goto &bsd_glob;
76					}
77
78	1	89µs			1;
79					__END__

					# spent 18µs within File::Glob::CORE:match which was called: # once (18µs+0s) by RTP::Webmerge::BEGIN@18 at line 67 sub File::Glob::CORE:match; # opcode
					# spent 8µs within File::Glob::GLOB_CSH which was called: # once (8µs+0s) by RTP::Webmerge::BEGIN@18 at line 66 sub File::Glob::GLOB_CSH; # xsub
					# spent 20µs within File::Glob::GLOB_NOCASE which was called 3 times, avg 6µs/call: # 3 times (20µs+0s) by File::Glob::import at line 50, avg 6µs/call sub File::Glob::GLOB_NOCASE; # xsub
					# spent 128µs within File::Glob::bsd_glob which was called 2 times, avg 64µs/call: # 2 times (128µs+0s) by RTP::Webmerge::Merge::collect at line 229 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm, avg 64µs/call sub File::Glob::bsd_glob; # xsub