Filename | /usr/lib/x86_64-linux-gnu/perl5/5.28/Template/Constants.pm |
Statements | Executed 87 statements in 1.50ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
375389 | 2 | 2 | 584ms | 584ms | DEBUG_UNDEF (xsub) | Template::Constants::
1 | 1 | 1 | 14µs | 36µs | BEGIN@69 | Template::Constants::
1 | 1 | 1 | 9µs | 31µs | BEGIN@42 | Template::Constants::
1 | 1 | 1 | 9µs | 10µs | BEGIN@22 | Template::Constants::
1 | 1 | 1 | 6µs | 38µs | BEGIN@27 | Template::Constants::
1 | 1 | 1 | 5µs | 27µs | BEGIN@54 | Template::Constants::
1 | 1 | 1 | 5µs | 27µs | BEGIN@68 | Template::Constants::
1 | 1 | 1 | 5µs | 26µs | BEGIN@70 | Template::Constants::
1 | 1 | 1 | 5µs | 33µs | BEGIN@40 | Template::Constants::
1 | 1 | 1 | 5µs | 26µs | BEGIN@49 | Template::Constants::
1 | 1 | 1 | 5µs | 20µs | BEGIN@24 | Template::Constants::
1 | 1 | 1 | 5µs | 33µs | BEGIN@73 | Template::Constants::
1 | 1 | 1 | 5µs | 24µs | BEGIN@44 | Template::Constants::
1 | 1 | 1 | 5µs | 28µs | BEGIN@45 | Template::Constants::
1 | 1 | 1 | 5µs | 26µs | BEGIN@51 | Template::Constants::
1 | 1 | 1 | 4µs | 16µs | BEGIN@23 | Template::Constants::
1 | 1 | 1 | 4µs | 25µs | BEGIN@58 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@72 | Template::Constants::
1 | 1 | 1 | 4µs | 49µs | BEGIN@28 | Template::Constants::
1 | 1 | 1 | 4µs | 26µs | BEGIN@41 | Template::Constants::
1 | 1 | 1 | 4µs | 25µs | BEGIN@48 | Template::Constants::
1 | 1 | 1 | 4µs | 26µs | BEGIN@50 | Template::Constants::
1 | 1 | 1 | 4µs | 27µs | BEGIN@64 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@71 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@75 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@80 | Template::Constants::
1 | 1 | 1 | 4µs | 25µs | BEGIN@52 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@60 | Template::Constants::
1 | 1 | 1 | 4µs | 25µs | BEGIN@43 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@57 | Template::Constants::
1 | 1 | 1 | 4µs | 23µs | BEGIN@61 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@66 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@79 | Template::Constants::
1 | 1 | 1 | 4µs | 24µs | BEGIN@65 | Template::Constants::
1 | 1 | 1 | 4µs | 25µs | BEGIN@53 | Template::Constants::
1 | 1 | 1 | 4µs | 26µs | BEGIN@59 | Template::Constants::
1 | 1 | 1 | 4µs | 27µs | BEGIN@67 | Template::Constants::
1 | 1 | 1 | 4µs | 27µs | BEGIN@74 | Template::Constants::
1 | 1 | 1 | 4µs | 23µs | BEGIN@76 | Template::Constants::
2 | 1 | 1 | 1µs | 1µs | DEBUG_OFF (xsub) | Template::Constants::
2 | 1 | 1 | 800ns | 800ns | DEBUG_ALL (xsub) | Template::Constants::
2 | 1 | 1 | 800ns | 800ns | DEBUG_PARSER (xsub) | Template::Constants::
2 | 1 | 1 | 600ns | 600ns | DEBUG_CALLER (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_CONTEXT (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_DIRS (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_FILTERS (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_ON (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_PLUGINS (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_PROVIDER (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_SERVICE (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_STASH (xsub) | Template::Constants::
2 | 1 | 1 | 400ns | 400ns | DEBUG_VARS (xsub) | Template::Constants::
0 | 0 | 0 | 0s | 0s | debug_flags | Template::Constants::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | #============================================================= -*-Perl-*- | ||||
2 | # | ||||
3 | # Template::Constants.pm | ||||
4 | # | ||||
5 | # DESCRIPTION | ||||
6 | # Definition of constants for the Template Toolkit. | ||||
7 | # | ||||
8 | # AUTHOR | ||||
9 | # Andy Wardley <abw@wardley.org> | ||||
10 | # | ||||
11 | # COPYRIGHT | ||||
12 | # Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved. | ||||
13 | # | ||||
14 | # This module is free software; you can redistribute it and/or | ||||
15 | # modify it under the same terms as Perl itself. | ||||
16 | # | ||||
17 | #============================================================================ | ||||
18 | |||||
19 | package Template::Constants; | ||||
20 | |||||
21 | 1 | 400ns | require Exporter; | ||
22 | 2 | 17µs | 2 | 12µs | # spent 10µs (9+2) within Template::Constants::BEGIN@22 which was called:
# once (9µs+2µs) by Template::Base::BEGIN@24 at line 22 # spent 10µs making 1 call to Template::Constants::BEGIN@22
# spent 2µs making 1 call to strict::import |
23 | 2 | 16µs | 2 | 27µs | # spent 16µs (4+11) within Template::Constants::BEGIN@23 which was called:
# once (4µs+11µs) by Template::Base::BEGIN@24 at line 23 # spent 16µs making 1 call to Template::Constants::BEGIN@23
# spent 11µs making 1 call to warnings::import |
24 | 2 | 24µs | 2 | 36µs | # spent 20µs (5+16) within Template::Constants::BEGIN@24 which was called:
# once (5µs+16µs) by Template::Base::BEGIN@24 at line 24 # spent 20µs making 1 call to Template::Constants::BEGIN@24
# spent 16µs making 1 call to Exporter::import |
25 | # Perl::MinimumVersion seems to think this is a Perl 5.008ism... | ||||
26 | # use base qw( Exporter ); | ||||
27 | 2 | 25µs | 2 | 70µs | # spent 38µs (6+32) within Template::Constants::BEGIN@27 which was called:
# once (6µs+32µs) by Template::Base::BEGIN@24 at line 27 # spent 38µs making 1 call to Template::Constants::BEGIN@27
# spent 32µs making 1 call to vars::import |
28 | 2 | 44µs | 2 | 93µs | # spent 49µs (4+44) within Template::Constants::BEGIN@28 which was called:
# once (4µs+44µs) by Template::Base::BEGIN@24 at line 28 # spent 49µs making 1 call to Template::Constants::BEGIN@28
# spent 44µs making 1 call to vars::import |
29 | # ... so we'll do it the Old Skool way just to keep it quiet | ||||
30 | 1 | 8µs | @ISA = qw( Exporter ); | ||
31 | |||||
32 | 1 | 200ns | our $VERSION = 2.75; | ||
33 | |||||
34 | |||||
35 | #======================================================================== | ||||
36 | # ----- EXPORTER ----- | ||||
37 | #======================================================================== | ||||
38 | |||||
39 | # STATUS constants returned by directives | ||||
40 | 2 | 22µs | 2 | 62µs | # spent 33µs (5+28) within Template::Constants::BEGIN@40 which was called:
# once (5µs+28µs) by Template::Base::BEGIN@24 at line 40 # spent 33µs making 1 call to Template::Constants::BEGIN@40
# spent 28µs making 1 call to constant::import |
41 | 2 | 20µs | 2 | 47µs | # spent 26µs (4+21) within Template::Constants::BEGIN@41 which was called:
# once (4µs+21µs) by Template::Base::BEGIN@24 at line 41 # spent 26µs making 1 call to Template::Constants::BEGIN@41
# spent 21µs making 1 call to constant::import |
42 | 2 | 23µs | 2 | 53µs | # spent 31µs (9+22) within Template::Constants::BEGIN@42 which was called:
# once (9µs+22µs) by Template::Base::BEGIN@24 at line 42 # spent 31µs making 1 call to Template::Constants::BEGIN@42
# spent 22µs making 1 call to constant::import |
43 | 2 | 20µs | 2 | 46µs | # spent 25µs (4+21) within Template::Constants::BEGIN@43 which was called:
# once (4µs+21µs) by Template::Base::BEGIN@24 at line 43 # spent 25µs making 1 call to Template::Constants::BEGIN@43
# spent 21µs making 1 call to constant::import |
44 | 2 | 19µs | 2 | 44µs | # spent 24µs (5+20) within Template::Constants::BEGIN@44 which was called:
# once (5µs+20µs) by Template::Base::BEGIN@24 at line 44 # spent 24µs making 1 call to Template::Constants::BEGIN@44
# spent 20µs making 1 call to constant::import |
45 | 2 | 25µs | 2 | 50µs | # spent 28µs (5+23) within Template::Constants::BEGIN@45 which was called:
# once (5µs+23µs) by Template::Base::BEGIN@24 at line 45 # spent 28µs making 1 call to Template::Constants::BEGIN@45
# spent 23µs making 1 call to constant::import |
46 | |||||
47 | # ERROR constants for indicating exception types | ||||
48 | 2 | 21µs | 2 | 46µs | # spent 25µs (4+21) within Template::Constants::BEGIN@48 which was called:
# once (4µs+21µs) by Template::Base::BEGIN@24 at line 48 # spent 25µs making 1 call to Template::Constants::BEGIN@48
# spent 21µs making 1 call to constant::import |
49 | 2 | 20µs | 2 | 47µs | # spent 26µs (5+21) within Template::Constants::BEGIN@49 which was called:
# once (5µs+21µs) by Template::Base::BEGIN@24 at line 49 # spent 26µs making 1 call to Template::Constants::BEGIN@49
# spent 21µs making 1 call to constant::import |
50 | 2 | 33µs | 2 | 48µs | # spent 26µs (4+22) within Template::Constants::BEGIN@50 which was called:
# once (4µs+22µs) by Template::Base::BEGIN@24 at line 50 # spent 26µs making 1 call to Template::Constants::BEGIN@50
# spent 22µs making 1 call to constant::import |
51 | 2 | 27µs | 2 | 47µs | # spent 26µs (5+21) within Template::Constants::BEGIN@51 which was called:
# once (5µs+21µs) by Template::Base::BEGIN@24 at line 51 # spent 26µs making 1 call to Template::Constants::BEGIN@51
# spent 21µs making 1 call to constant::import |
52 | 2 | 19µs | 2 | 45µs | # spent 25µs (4+20) within Template::Constants::BEGIN@52 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 52 # spent 25µs making 1 call to Template::Constants::BEGIN@52
# spent 20µs making 1 call to constant::import |
53 | 2 | 19µs | 2 | 45µs | # spent 25µs (4+21) within Template::Constants::BEGIN@53 which was called:
# once (4µs+21µs) by Template::Base::BEGIN@24 at line 53 # spent 25µs making 1 call to Template::Constants::BEGIN@53
# spent 21µs making 1 call to constant::import |
54 | 2 | 20µs | 2 | 48µs | # spent 27µs (5+21) within Template::Constants::BEGIN@54 which was called:
# once (5µs+21µs) by Template::Base::BEGIN@24 at line 54 # spent 27µs making 1 call to Template::Constants::BEGIN@54
# spent 21µs making 1 call to constant::import |
55 | |||||
56 | # CHOMP constants for PRE_CHOMP and POST_CHOMP | ||||
57 | 2 | 22µs | 2 | 43µs | # spent 24µs (4+20) within Template::Constants::BEGIN@57 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 57 # spent 24µs making 1 call to Template::Constants::BEGIN@57
# spent 20µs making 1 call to constant::import |
58 | 2 | 20µs | 2 | 45µs | # spent 25µs (4+20) within Template::Constants::BEGIN@58 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 58 # spent 25µs making 1 call to Template::Constants::BEGIN@58
# spent 20µs making 1 call to constant::import |
59 | 2 | 20µs | 2 | 49µs | # spent 26µs (4+22) within Template::Constants::BEGIN@59 which was called:
# once (4µs+22µs) by Template::Base::BEGIN@24 at line 59 # spent 26µs making 1 call to Template::Constants::BEGIN@59
# spent 22µs making 1 call to constant::import |
60 | 2 | 18µs | 2 | 44µs | # spent 24µs (4+20) within Template::Constants::BEGIN@60 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 60 # spent 24µs making 1 call to Template::Constants::BEGIN@60
# spent 20µs making 1 call to constant::import |
61 | 2 | 20µs | 2 | 43µs | # spent 23µs (4+19) within Template::Constants::BEGIN@61 which was called:
# once (4µs+19µs) by Template::Base::BEGIN@24 at line 61 # spent 23µs making 1 call to Template::Constants::BEGIN@61
# spent 19µs making 1 call to constant::import |
62 | |||||
63 | # DEBUG constants to enable various debugging options | ||||
64 | 2 | 19µs | 2 | 49µs | # spent 27µs (4+22) within Template::Constants::BEGIN@64 which was called:
# once (4µs+22µs) by Template::Base::BEGIN@24 at line 64 # spent 27µs making 1 call to Template::Constants::BEGIN@64
# spent 22µs making 1 call to constant::import |
65 | 2 | 19µs | 2 | 43µs | # spent 24µs (4+20) within Template::Constants::BEGIN@65 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 65 # spent 24µs making 1 call to Template::Constants::BEGIN@65
# spent 20µs making 1 call to constant::import |
66 | 2 | 18µs | 2 | 43µs | # spent 24µs (4+19) within Template::Constants::BEGIN@66 which was called:
# once (4µs+19µs) by Template::Base::BEGIN@24 at line 66 # spent 24µs making 1 call to Template::Constants::BEGIN@66
# spent 19µs making 1 call to constant::import |
67 | 2 | 49µs | 2 | 51µs | # spent 27µs (4+24) within Template::Constants::BEGIN@67 which was called:
# once (4µs+24µs) by Template::Base::BEGIN@24 at line 67 # spent 27µs making 1 call to Template::Constants::BEGIN@67
# spent 24µs making 1 call to constant::import |
68 | 2 | 32µs | 2 | 48µs | # spent 27µs (5+22) within Template::Constants::BEGIN@68 which was called:
# once (5µs+22µs) by Template::Base::BEGIN@24 at line 68 # spent 27µs making 1 call to Template::Constants::BEGIN@68
# spent 22µs making 1 call to constant::import |
69 | 2 | 69µs | 2 | 58µs | # spent 36µs (14+22) within Template::Constants::BEGIN@69 which was called:
# once (14µs+22µs) by Template::Base::BEGIN@24 at line 69 # spent 36µs making 1 call to Template::Constants::BEGIN@69
# spent 22µs making 1 call to constant::import |
70 | 2 | 20µs | 2 | 46µs | # spent 26µs (5+21) within Template::Constants::BEGIN@70 which was called:
# once (5µs+21µs) by Template::Base::BEGIN@24 at line 70 # spent 26µs making 1 call to Template::Constants::BEGIN@70
# spent 21µs making 1 call to constant::import |
71 | 2 | 18µs | 2 | 44µs | # spent 24µs (4+20) within Template::Constants::BEGIN@71 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 71 # spent 24µs making 1 call to Template::Constants::BEGIN@71
# spent 20µs making 1 call to constant::import |
72 | 2 | 19µs | 2 | 44µs | # spent 24µs (4+20) within Template::Constants::BEGIN@72 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 72 # spent 24µs making 1 call to Template::Constants::BEGIN@72
# spent 20µs making 1 call to constant::import |
73 | 2 | 19µs | 2 | 62µs | # spent 33µs (5+28) within Template::Constants::BEGIN@73 which was called:
# once (5µs+28µs) by Template::Base::BEGIN@24 at line 73 # spent 33µs making 1 call to Template::Constants::BEGIN@73
# spent 28µs making 1 call to constant::import |
74 | 2 | 19µs | 2 | 50µs | # spent 27µs (4+23) within Template::Constants::BEGIN@74 which was called:
# once (4µs+23µs) by Template::Base::BEGIN@24 at line 74 # spent 27µs making 1 call to Template::Constants::BEGIN@74
# spent 23µs making 1 call to constant::import |
75 | 2 | 18µs | 2 | 44µs | # spent 24µs (4+20) within Template::Constants::BEGIN@75 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 75 # spent 24µs making 1 call to Template::Constants::BEGIN@75
# spent 20µs making 1 call to constant::import |
76 | 2 | 22µs | 2 | 41µs | # spent 23µs (4+19) within Template::Constants::BEGIN@76 which was called:
# once (4µs+19µs) by Template::Base::BEGIN@24 at line 76 # spent 23µs making 1 call to Template::Constants::BEGIN@76
# spent 19µs making 1 call to constant::import |
77 | |||||
78 | # extra debugging flags | ||||
79 | 2 | 19µs | 2 | 44µs | # spent 24µs (4+20) within Template::Constants::BEGIN@79 which was called:
# once (4µs+20µs) by Template::Base::BEGIN@24 at line 79 # spent 24µs making 1 call to Template::Constants::BEGIN@79
# spent 20µs making 1 call to constant::import |
80 | 2 | 509µs | 2 | 43µs | # spent 24µs (4+19) within Template::Constants::BEGIN@80 which was called:
# once (4µs+19µs) by Template::Base::BEGIN@24 at line 80 # spent 24µs making 1 call to Template::Constants::BEGIN@80
# spent 19µs making 1 call to constant::import |
81 | |||||
82 | 1 | 73µs | 28 | 8µs | $DEBUG_OPTIONS = { # spent 1µs making 2 calls to Template::Constants::DEBUG_OFF, avg 700ns/call
# spent 800ns making 2 calls to Template::Constants::DEBUG_ALL, avg 400ns/call
# spent 800ns making 2 calls to Template::Constants::DEBUG_PARSER, avg 400ns/call
# spent 600ns making 2 calls to Template::Constants::DEBUG_CALLER, avg 300ns/call
# spent 500ns making 2 calls to Template::Constants::DEBUG_UNDEF, avg 250ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_CONTEXT, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_DIRS, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_FILTERS, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_ON, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_PLUGINS, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_PROVIDER, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_SERVICE, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_STASH, avg 200ns/call
# spent 400ns making 2 calls to Template::Constants::DEBUG_VARS, avg 200ns/call |
83 | &DEBUG_OFF => off => off => &DEBUG_OFF, | ||||
84 | &DEBUG_ON => on => on => &DEBUG_ON, | ||||
85 | &DEBUG_UNDEF => undef => undef => &DEBUG_UNDEF, | ||||
86 | &DEBUG_VARS => vars => vars => &DEBUG_VARS, | ||||
87 | &DEBUG_DIRS => dirs => dirs => &DEBUG_DIRS, | ||||
88 | &DEBUG_STASH => stash => stash => &DEBUG_STASH, | ||||
89 | &DEBUG_CONTEXT => context => context => &DEBUG_CONTEXT, | ||||
90 | &DEBUG_PARSER => parser => parser => &DEBUG_PARSER, | ||||
91 | &DEBUG_PROVIDER => provider => provider => &DEBUG_PROVIDER, | ||||
92 | &DEBUG_PLUGINS => plugins => plugins => &DEBUG_PLUGINS, | ||||
93 | &DEBUG_FILTERS => filters => filters => &DEBUG_FILTERS, | ||||
94 | &DEBUG_SERVICE => service => service => &DEBUG_SERVICE, | ||||
95 | &DEBUG_ALL => all => all => &DEBUG_ALL, | ||||
96 | &DEBUG_CALLER => caller => caller => &DEBUG_CALLER, | ||||
97 | }; | ||||
98 | |||||
99 | 1 | 1µs | @STATUS = qw( STATUS_OK STATUS_RETURN STATUS_STOP STATUS_DONE | ||
100 | STATUS_DECLINED STATUS_ERROR ); | ||||
101 | 1 | 800ns | @ERROR = qw( ERROR_FILE ERROR_VIEW ERROR_UNDEF ERROR_PERL | ||
102 | ERROR_RETURN ERROR_FILTER ERROR_PLUGIN ); | ||||
103 | 1 | 500ns | @CHOMP = qw( CHOMP_NONE CHOMP_ALL CHOMP_ONE CHOMP_COLLAPSE CHOMP_GREEDY ); | ||
104 | 1 | 1µs | @DEBUG = qw( DEBUG_OFF DEBUG_ON DEBUG_UNDEF DEBUG_VARS | ||
105 | DEBUG_DIRS DEBUG_STASH DEBUG_CONTEXT DEBUG_PARSER | ||||
106 | DEBUG_PROVIDER DEBUG_PLUGINS DEBUG_FILTERS DEBUG_SERVICE | ||||
107 | DEBUG_ALL DEBUG_CALLER DEBUG_FLAGS ); | ||||
108 | |||||
109 | 1 | 2µs | @EXPORT_OK = ( @STATUS, @ERROR, @CHOMP, @DEBUG ); | ||
110 | 1 | 8µs | %EXPORT_TAGS = ( | ||
111 | 'all' => [ @EXPORT_OK ], | ||||
112 | 'status' => [ @STATUS ], | ||||
113 | 'error' => [ @ERROR ], | ||||
114 | 'chomp' => [ @CHOMP ], | ||||
115 | 'debug' => [ @DEBUG ], | ||||
116 | ); | ||||
117 | |||||
118 | |||||
119 | sub debug_flags { | ||||
120 | my ($self, $debug) = @_; | ||||
121 | my (@flags, $flag, $value); | ||||
122 | $debug = $self unless defined($debug) || ref($self); | ||||
123 | |||||
124 | if ($debug =~ /^\d+$/) { | ||||
125 | foreach $flag (@DEBUG) { | ||||
126 | next if $flag =~ /^DEBUG_(OFF|ALL|FLAGS)$/; | ||||
127 | |||||
128 | # don't trash the original | ||||
129 | my $copy = $flag; | ||||
130 | $flag =~ s/^DEBUG_//; | ||||
131 | $flag = lc $flag; | ||||
132 | return $self->error("no value for flag: $flag") | ||||
133 | unless defined($value = $DEBUG_OPTIONS->{ $flag }); | ||||
134 | $flag = $value; | ||||
135 | |||||
136 | if ($debug & $flag) { | ||||
137 | $value = $DEBUG_OPTIONS->{ $flag }; | ||||
138 | return $self->error("no value for flag: $flag") unless defined $value; | ||||
139 | push(@flags, $value); | ||||
140 | } | ||||
141 | } | ||||
142 | return wantarray ? @flags : join(', ', @flags); | ||||
143 | } | ||||
144 | else { | ||||
145 | @flags = split(/\W+/, $debug); | ||||
146 | $debug = 0; | ||||
147 | foreach $flag (@flags) { | ||||
148 | $value = $DEBUG_OPTIONS->{ $flag }; | ||||
149 | return $self->error("unknown debug flag: $flag") unless defined $value; | ||||
150 | $debug |= $value; | ||||
151 | } | ||||
152 | return $debug; | ||||
153 | } | ||||
154 | } | ||||
155 | |||||
156 | |||||
157 | 1 | 24µs | 1; | ||
158 | |||||
159 | __END__ | ||||
# spent 800ns within Template::Constants::DEBUG_ALL which was called 2 times, avg 400ns/call:
# 2 times (800ns+0s) by Template::Base::BEGIN@24 at line 82, avg 400ns/call | |||||
# spent 600ns within Template::Constants::DEBUG_CALLER which was called 2 times, avg 300ns/call:
# 2 times (600ns+0s) by Template::Base::BEGIN@24 at line 82, avg 300ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_CONTEXT which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_DIRS which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_FILTERS which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 1µs within Template::Constants::DEBUG_OFF which was called 2 times, avg 700ns/call:
# 2 times (1µs+0s) by Template::Base::BEGIN@24 at line 82, avg 700ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_ON which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 800ns within Template::Constants::DEBUG_PARSER which was called 2 times, avg 400ns/call:
# 2 times (800ns+0s) by Template::Base::BEGIN@24 at line 82, avg 400ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_PLUGINS which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_PROVIDER which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_SERVICE which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_STASH which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call | |||||
# spent 584ms within Template::Constants::DEBUG_UNDEF which was called 375389 times, avg 2µs/call:
# 375387 times (584ms+0s) by Template::Context::_init at line 874 of Template/Context.pm, avg 2µs/call
# 2 times (500ns+0s) by Template::Base::BEGIN@24 at line 82, avg 250ns/call | |||||
# spent 400ns within Template::Constants::DEBUG_VARS which was called 2 times, avg 200ns/call:
# 2 times (400ns+0s) by Template::Base::BEGIN@24 at line 82, avg 200ns/call |