Filename | /usr/lib64/perl5/5.16.0/x86_64-linux/File/Glob.pm |
Statements | Executed 113 statements in 86.4ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 4.69ms | 4.91ms | BEGIN@7 | File::Glob::
3 | 3 | 3 | 457µs | 1.30ms | import | File::Glob::
2 | 1 | 1 | 128µs | 128µs | bsd_glob (xsub) | File::Glob::
1 | 1 | 1 | 84µs | 188µs | BEGIN@3 | File::Glob::
1 | 1 | 1 | 66µs | 128µs | BEGIN@52 | File::Glob::
1 | 1 | 1 | 50µs | 136µs | BEGIN@56 | File::Glob::
3 | 1 | 1 | 20µs | 20µs | GLOB_NOCASE (xsub) | File::Glob::
1 | 1 | 1 | 18µs | 18µs | CORE:match (opcode) | File::Glob::
1 | 1 | 1 | 8µs | 8µs | GLOB_CSH (xsub) | File::Glob::
0 | 0 | 0 | 0s | 0s | glob | File::Glob::
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 # 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 # 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 | ||||
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 # 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 # 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 | |||||
# spent 8µs within File::Glob::GLOB_CSH which was called:
# once (8µs+0s) by RTP::Webmerge::BEGIN@18 at line 66 | |||||
# 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 | |||||
# 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 |