| line |
true |
false |
branch |
|
46
|
1 |
9 |
if (ref($args[0]) =~ /HASH/) |
|
47
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
55
|
0 |
10 |
if ($tags{':debug'}) |
|
58
|
2 |
8 |
if ($tags{':lexer_test'}) |
|
59
|
0 |
2 |
if $Devel::Declare::Lexer::DEBUG |
|
66
|
2 |
12 |
if $name =~ /:/ |
|
67
|
0 |
12 |
if $Devel::Declare::Lexer::DEBUG |
|
73
|
0 |
14 |
if $Devel::Declare::Lexer::DEBUG |
|
80
|
1 |
13 |
if ($subinject{$word}) { } |
|
81
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
84
|
0 |
13 |
if $Devel::Declare::Lexer::DEBUG |
|
94
|
0 |
12 |
if $Devel::Declare::Lexer::DEBUG |
|
102
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
103
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
106
|
50 |
19 |
if ($callback) |
|
107
|
0 |
50 |
if $Devel::Declare::Lexer::DEBUG |
|
111
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
120
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
125
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
136
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
144
|
278 |
147 |
if ($len > 0) { } |
|
|
0 |
147 |
elsif ($len < 0) { } |
|
|
147 |
0 |
elsif ($len == 0) { } |
|
146
|
0 |
278 |
if $Devel::Declare::Lexer::DEBUG |
|
150
|
1 |
277 |
if ($tok =~ /\n/) |
|
154
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
161
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
165
|
0 |
0 |
if $Devel::Declare::Lexer::DEBUG |
|
167
|
0 |
147 |
if $Devel::Declare::Lexer::DEBUG |
|
173
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
179
|
0 |
563 |
if $Devel::Declare::Lexer::DEBUG |
|
180
|
22 |
541 |
if ($heredoc and not substr($linestr, $offset, 2) eq "\n") |
|
182
|
0 |
22 |
if $Devel::Declare::Lexer::DEBUG |
|
184
|
2 |
20 |
if ($c =~ /\n/) { } |
|
185
|
0 |
2 |
if $Devel::Declare::Lexer::DEBUG |
|
191
|
0 |
22 |
if $Devel::Declare::Lexer::DEBUG |
|
193
|
1 |
21 |
if ($$heredoc{'value'} =~ /$heredoc_end_re/) |
|
195
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
204
|
0 |
541 |
if $Devel::Declare::Lexer::DEBUG |
|
206
|
80 |
461 |
if (substr($linestr, $offset, 1) eq ';') |
|
207
|
0 |
80 |
if $Devel::Declare::Lexer::DEBUG |
|
211
|
69 |
11 |
unless $nest |
|
215
|
36 |
425 |
if (substr($linestr, $offset, 2) eq "\n") |
|
216
|
2 |
34 |
if ($heredoc) |
|
217
|
0 |
2 |
if $Devel::Declare::Lexer::DEBUG |
|
221
|
34 |
2 |
unless ($heredoc) |
|
222
|
0 |
34 |
if $Devel::Declare::Lexer::DEBUG |
|
230
|
0 |
36 |
if $eoleos and not $nest |
|
239
|
21 |
15 |
if ($len != 0) |
|
243
|
0 |
21 |
if $Devel::Declare::Lexer::DEBUG |
|
256
|
11 |
25 |
if ($line == 1) |
|
260
|
2 |
34 |
$heredoc ? : |
|
262
|
0 |
36 |
if $Devel::Declare::Lexer::DEBUG |
|
267
|
0 |
425 |
if (&$skipspace < 0) |
|
268
|
0 |
0 |
if $Devel::Declare::Lexer::DEBUG |
|
273
|
32 |
393 |
if (substr($linestr, $offset, 1) =~ /(\{|\[|\()/) |
|
277
|
0 |
32 |
if $Devel::Declare::Lexer::DEBUG |
|
282
|
32 |
361 |
if (substr($linestr, $offset, 1) =~ /(\}|\]|\))/) |
|
286
|
0 |
32 |
if $Devel::Declare::Lexer::DEBUG |
|
291
|
1 |
360 |
if (substr($linestr, $offset, 1) =~ /\\/) |
|
293
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
299
|
54 |
306 |
if (substr($linestr, $offset, 1) =~ /(\$|\%|\@|\*)/) |
|
303
|
0 |
54 |
if $Devel::Declare::Lexer::DEBUG |
|
309
|
74 |
232 |
if (substr($linestr, $offset, 1) =~ /^(q|\"|\')/) |
|
315
|
13 |
61 |
if ($strstype eq 'q') |
|
316
|
13 |
0 |
unless (substr($linestr, $offset + 1, 1) =~ /\|\{\[\(\#/) |
|
317
|
0 |
13 |
if $Devel::Declare::Lexer::DEBUG |
|
322
|
61 |
13 |
if ($allow_string) |
|
324
|
0 |
61 |
if ($strstype =~ /q/) { } |
|
325
|
0 |
0 |
if (substr($linestr, $offset, 2) =~ /qq/) { } |
|
338
|
0 |
61 |
if $Devel::Declare::Lexer::DEBUG |
|
341
|
0 |
61 |
if $Devel::Declare::Lexer::DEBUG |
|
353
|
1 |
244 |
if (substr($linestr, $offset) =~ /^(<<\s*([\w\d]+)\s*\n)/) |
|
355
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
359
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
367
|
0 |
1 |
if $Devel::Declare::Lexer::DEBUG |
|
377
|
88 |
156 |
if (substr($linestr, $offset, 1) =~ m[[!\+\-\*/\.><=,|&\?:]]) |
|
379
|
0 |
88 |
if $Devel::Declare::Lexer::DEBUG |
|
386
|
155 |
1 |
if ($len) |
|
388
|
0 |
155 |
if $Devel::Declare::Lexer::DEBUG |
|
397
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
405
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
407
|
19 |
50 |
if ($symbol =~ /^lexer_test$/) { } |
|
408
|
0 |
19 |
if $Devel::Declare::Lexer::DEBUG |
|
419
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
425
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
427
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
430
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
432
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
436
|
69 |
37 |
unless defined $lineoffsets{$l + 1} |
|
440
|
0 |
37 |
if $Devel::Declare::Lexer::DEBUG |
|
445
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
446
|
57 |
12 |
$line == 1 ? : |
|
450
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |
|
453
|
19 |
50 |
if ($symbol =~ /^lexer_test$/) { } |
|
461
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG or $Devel::Declare::Lexer::SHOWTRANSLATE |
|
463
|
0 |
69 |
if $Devel::Declare::Lexer::DEBUG |