| line |
true |
false |
branch |
|
209
|
0 |
66 |
unless ref $callback eq 'CODE' |
|
225
|
2 |
349 |
if ($expect_format == 1 and $code =~ /\G(?=\R)/u) |
|
226
|
2 |
0 |
if ($code =~ /.*?\R\.\h*(?=\R|\z)/cgsu) { } |
|
235
|
0 |
0 |
if ($code =~ /\G(.)/cgsu) |
|
243
|
3 |
346 |
if ($#heredoc_eofs >= 0 and $code =~ /\G(?=\R)/u) |
|
245
|
3 |
0 |
if ($code =~ /\G.*?\R\Q$token\E(?=\R|\z)/cgsu) |
|
252
|
3 |
343 |
if ($regex == 1 || $code =~ /\G(?!<<[0-9])/u and $code =~ /\G$bhdoc/cgu) |
|
260
|
0 |
343 |
if ($canpod == 1 and $code =~ /\G^=[a-zA-Z]/cgmu) |
|
261
|
0 |
0 |
unless $code =~ /\G.*?\R=cut\h*(?=\R|\z)/cgsu |
|
267
|
40 |
303 |
if ($code =~ /\G(?=\s)/u) |
|
268
|
37 |
3 |
if ($code =~ /\G\h+/cgu) |
|
273
|
3 |
0 |
if ($code =~ /\G\v+/cgu) |
|
278
|
0 |
0 |
if ($code =~ /\G\s+/cgu) |
|
284
|
22 |
281 |
if ($variable > 0) |
|
285
|
22 |
0 |
if ($code =~ /\G$var_name/cgou or $code =~ /\G(?<=\$)\#$var_name/cgou) |
|
290
|
2 |
20 |
$code =~ /\G(?=\s*\{)/u ? : |
|
294
|
0 |
0 |
if ($code =~ /\G(?!\$+$var_name)/ou and $code =~ /\G(?:\s+|#?)\{\s*(?:$var_name|$special_var_names|[#{])\s*\}/cgou || $code =~ /\G(?:\^\w+|#(?!\{)|$special_var_names)/cgou || $code =~ /\G#/cgu) |
|
304
|
0 |
0 |
$code =~ /\G(?
|
|
311
|
2 |
279 |
if ($code =~ /\G#.*/cgu) |
|
316
|
148 |
131 |
if ($regex == 1 and not $postfix_op or $code =~ /\G(?=[\@\$])/u) |
|
317
|
21 |
127 |
if ($code =~ /\G\$/cgu) |
|
319
|
21 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
326
|
1 |
126 |
if ($code =~ /\G\@/cgu) |
|
328
|
1 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
335
|
0 |
126 |
if ($code =~ /\G\%/cgu) |
|
337
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
344
|
0 |
126 |
if ($code =~ /\G\*/cgu) |
|
346
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
353
|
0 |
126 |
if ($code =~ /\G&/cgu) |
|
355
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
365
|
0 |
257 |
if ($proto == 1 and $code =~ /\G\(.*?\)/cgsu) |
|
373
|
2 |
255 |
if ($code =~ /\G\(/cgu) |
|
381
|
2 |
253 |
if ($code =~ /\G\)/cgu) |
|
389
|
4 |
249 |
if ($code =~ /\G\{/cgu) |
|
396
|
4 |
245 |
if ($code =~ /\G\}/cgu) |
|
403
|
2 |
243 |
if ($code =~ /\G\[/cgu) |
|
412
|
2 |
241 |
if ($code =~ /\G\]/cgu) |
|
420
|
241 |
0 |
if ($proto == 0) |
|
421
|
2 |
239 |
if ($canpod == 1 and $code =~ /\Gformat\b/cgu) |
|
429
|
5 |
234 |
if ($flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u and $code =~ /\G(?)$perl_keywords/cgou) |
|
439
|
0 |
5 |
$is_bare_word ? : |
|
441
|
0 |
5 |
if ($name eq 'sub' and not $is_bare_word) { } |
|
456
|
234 |
0 |
if ($code =~ /\G(?!(?>tr|[ysm]|q[rwxq]?)\h*=>)/u and $code =~ /\G(?)/u) |
|
458
|
3 |
231 |
if ($flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u or $code =~ /\G((?<=\{)|(?<=\{\h))(?=[a-z]+\h*\})/u) { } |
|
463
|
4 |
227 |
if ($code =~ /\G $double_q{'s'} $substitution_flags /cgoux) |
|
470
|
2 |
225 |
if ($code =~ /\G (?> $double_q{'tr'} | $double_q{'y'} ) $tr_flags /cgoux) |
|
477
|
4 |
221 |
if ($code =~ /\G $single_q{'m'} $match_flags /cgoux or $regex == 1 and $code =~ /\G $match_re $match_flags /cgoux) |
|
485
|
1 |
220 |
if ($code =~ /\G $single_q{'qr'} $compiled_regex_flags /cgoux) |
|
492
|
0 |
220 |
if ($code =~ /\G$single_q{'q'}/cgou) |
|
499
|
0 |
220 |
if ($code =~ /\G$single_q{'qq'}/cgou) |
|
506
|
0 |
220 |
if ($code =~ /\G$single_q{'qw'}/cgou) |
|
513
|
0 |
220 |
if ($code =~ /\G$single_q{'qx'}/cgou) |
|
524
|
10 |
213 |
if ($code =~ /\G$str_dq/cgou) |
|
532
|
0 |
213 |
if ($code =~ /\G$str_sq/cgou) |
|
540
|
0 |
213 |
if ($code =~ /\G$str_bq/cgou) |
|
548
|
4 |
209 |
if ($code =~ /\G;/cgu) |
|
558
|
0 |
209 |
if ($code =~ /\G=>/cgu) |
|
567
|
3 |
206 |
if ($code =~ /\G,/cgu) |
|
576
|
0 |
206 |
if ($code =~ /\G$vstring/cgou) |
|
583
|
1 |
205 |
if ($code =~ /\G$perl_filetests\b/cgou) |
|
587
|
0 |
1 |
$is_bare_word ? : |
|
589
|
0 |
1 |
if ($is_bare_word) { } |
|
601
|
0 |
205 |
if ($code =~ /\G(?=__)/u) |
|
602
|
0 |
0 |
if ($code =~ /\G__(?>DATA|END)__\b\h*+(?!=>).*\z/cgsu) |
|
607
|
0 |
0 |
if ($code =~ /\G__(?>SUB|FILE|PACKAGE|LINE)__\b(?!\h*+=>)/cgu) |
|
617
|
1 |
98 |
if ($regex == 1 and $code =~ /\G(?
|
|
624
|
16 |
188 |
if ($code =~ /\G$assignment_operators/cgou) |
|
626
|
2 |
14 |
if ($format) |
|
627
|
2 |
0 |
if (substr($code, $-[0], $+[0] - $-[0]) eq '=') |
|
638
|
0 |
188 |
if ($code =~ /\G->/cgu) |
|
646
|
50 |
138 |
if ($code =~ /\G$operators/cgou or $code =~ /\Gx(?=[0-9\W])/cgu) |
|
648
|
5 |
45 |
if (substr($code, $-[0], $+[0] - $-[0]) =~ /^$postfix_operators\z/ou) { } |
|
660
|
0 |
138 |
if ($code =~ /\G$hex_num/cgou) |
|
667
|
0 |
138 |
if ($code =~ /\G$binary_num/cgou) |
|
674
|
66 |
72 |
if ($code =~ /\G$number/cgou) |
|
681
|
2 |
70 |
if ($code =~ /\GSTD(?>OUT|ERR|IN)\b/cgu) |
|
689
|
4 |
66 |
if ($code =~ /\G$var_name/cgou) |
|
690
|
0 |
4 |
$proto == 1 ? : |
|
697
|
0 |
66 |
if ($code =~ /\G(.)/cgsu) |