| line |
true |
false |
branch |
|
210
|
0 |
66 |
unless ref $callback eq 'CODE' |
|
226
|
2 |
349 |
if ($expect_format == 1 and $code =~ /\G(?=\R)/u) |
|
227
|
2 |
0 |
if ($code =~ /.*?\R\.\h*(?=\R|\z)/cgsu) { } |
|
236
|
0 |
0 |
if ($code =~ /\G(.)/cgsu) |
|
244
|
3 |
346 |
if ($#heredoc_eofs >= 0 and $code =~ /\G(?=\R)/u) |
|
246
|
3 |
0 |
if ($code =~ /\G.*?\R\Q$token\E(?=\R|\z)/cgsu) |
|
253
|
3 |
343 |
if ($regex == 1 || $code =~ /\G(?!<<[0-9])/u and $code =~ /\G$bhdoc/cgu) |
|
261
|
0 |
343 |
if ($canpod == 1 and $code =~ /\G^=[a-zA-Z]/cgmu) |
|
262
|
0 |
0 |
unless $code =~ /\G.*?\R=cut\h*(?=\R|\z)/cgsu |
|
268
|
40 |
303 |
if ($code =~ /\G(?=\s)/u) |
|
269
|
37 |
3 |
if ($code =~ /\G\h+/cgu) |
|
274
|
3 |
0 |
if ($code =~ /\G\v+/cgu) |
|
279
|
0 |
0 |
if ($code =~ /\G\s+/cgu) |
|
285
|
22 |
281 |
if ($variable > 0) |
|
286
|
22 |
0 |
if ($code =~ /\G$var_name/cgou or $code =~ /\G(?<=\$)\#$var_name/cgou) |
|
291
|
2 |
20 |
$code =~ /\G(?=\s*\{)/u ? : |
|
295
|
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) |
|
305
|
0 |
0 |
$code =~ /\G(?
|
|
312
|
2 |
279 |
if ($code =~ /\G#.*/cgu) |
|
317
|
148 |
131 |
if ($regex == 1 and not $postfix_op or $code =~ /\G(?=[\@\$])/u) |
|
318
|
21 |
127 |
if ($code =~ /\G\$/cgu) |
|
320
|
21 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
327
|
1 |
126 |
if ($code =~ /\G\@/cgu) |
|
329
|
1 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
336
|
0 |
126 |
if ($code =~ /\G\%/cgu) |
|
338
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
345
|
0 |
126 |
if ($code =~ /\G\*/cgu) |
|
347
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
354
|
0 |
126 |
if ($code =~ /\G&/cgu) |
|
356
|
0 |
0 |
unless $code =~ /\G$bracket_var/ou |
|
366
|
0 |
257 |
if ($proto == 1 and $code =~ /\G\(.*?\)/cgsu) |
|
374
|
2 |
255 |
if ($code =~ /\G\(/cgu) |
|
382
|
2 |
253 |
if ($code =~ /\G\)/cgu) |
|
390
|
4 |
249 |
if ($code =~ /\G\{/cgu) |
|
397
|
4 |
245 |
if ($code =~ /\G\}/cgu) |
|
404
|
2 |
243 |
if ($code =~ /\G\[/cgu) |
|
413
|
2 |
241 |
if ($code =~ /\G\]/cgu) |
|
421
|
241 |
0 |
if ($proto == 0) |
|
422
|
2 |
239 |
if ($canpod == 1 and $code =~ /\Gformat\b/cgu) |
|
430
|
5 |
234 |
if ($flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u and $code =~ /\G(?)$perl_keywords/cgou) |
|
440
|
0 |
5 |
$is_bare_word ? : |
|
442
|
0 |
5 |
if ($name eq 'sub' and not $is_bare_word) { } |
|
457
|
234 |
0 |
if ($code =~ /\G(?!(?>tr|[ysm]|q[rwxq]?)\h*=>)/u and $code =~ /\G(?)/u) |
|
459
|
3 |
231 |
if ($flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u or $code =~ /\G((?<=\{)|(?<=\{\h))(?=[a-z]+\h*\})/u) { } |
|
464
|
4 |
227 |
if ($code =~ /\G $double_q{'s'} $substitution_flags /cgoux) |
|
471
|
2 |
225 |
if ($code =~ /\G (?> $double_q{'tr'} | $double_q{'y'} ) $tr_flags /cgoux) |
|
478
|
4 |
221 |
if ($code =~ /\G $single_q{'m'} $match_flags /cgoux or $regex == 1 and $code =~ /\G $match_re $match_flags /cgoux) |
|
486
|
1 |
220 |
if ($code =~ /\G $single_q{'qr'} $compiled_regex_flags /cgoux) |
|
493
|
0 |
220 |
if ($code =~ /\G$single_q{'q'}/cgou) |
|
500
|
0 |
220 |
if ($code =~ /\G$single_q{'qq'}/cgou) |
|
507
|
0 |
220 |
if ($code =~ /\G$single_q{'qw'}/cgou) |
|
514
|
0 |
220 |
if ($code =~ /\G$single_q{'qx'}/cgou) |
|
525
|
10 |
213 |
if ($code =~ /\G$str_dq/cgou) |
|
533
|
0 |
213 |
if ($code =~ /\G$str_sq/cgou) |
|
541
|
0 |
213 |
if ($code =~ /\G$str_bq/cgou) |
|
549
|
4 |
209 |
if ($code =~ /\G;/cgu) |
|
559
|
0 |
209 |
if ($code =~ /\G=>/cgu) |
|
568
|
3 |
206 |
if ($code =~ /\G,/cgu) |
|
577
|
0 |
206 |
if ($code =~ /\G$vstring/cgou) |
|
584
|
1 |
205 |
if ($code =~ /\G$perl_filetests\b/cgou) |
|
588
|
0 |
1 |
$is_bare_word ? : |
|
590
|
0 |
1 |
if ($is_bare_word) { } |
|
602
|
0 |
205 |
if ($code =~ /\G(?=__)/u) |
|
603
|
0 |
0 |
if ($code =~ /\G__(?>DATA|END)__\b\h*+(?!=>).*\z/cgsu) |
|
608
|
0 |
0 |
if ($code =~ /\G__(?>SUB|FILE|PACKAGE|LINE)__\b(?!\h*+=>)/cgu) |
|
618
|
1 |
98 |
if ($regex == 1 and $code =~ /\G(?
|
|
625
|
16 |
188 |
if ($code =~ /\G$assignment_operators/cgou) |
|
627
|
2 |
14 |
if ($format) |
|
628
|
2 |
0 |
if (substr($code, $-[0], $+[0] - $-[0]) eq '=') |
|
639
|
0 |
188 |
if ($code =~ /\G->/cgu) |
|
647
|
50 |
138 |
if ($code =~ /\G$operators/cgou or $code =~ /\Gx(?=[0-9\W])/cgu) |
|
649
|
5 |
45 |
if (substr($code, $-[0], $+[0] - $-[0]) =~ /^$postfix_operators\z/ou) { } |
|
661
|
0 |
138 |
if ($code =~ /\G$hex_num/cgou) |
|
668
|
0 |
138 |
if ($code =~ /\G$binary_num/cgou) |
|
675
|
66 |
72 |
if ($code =~ /\G$number/cgou) |
|
682
|
2 |
70 |
if ($code =~ /\GSTD(?>OUT|ERR|IN)\b/cgu) |
|
690
|
4 |
66 |
if ($code =~ /\G$var_name/cgou) |
|
691
|
0 |
4 |
$proto == 1 ? : |
|
698
|
0 |
66 |
if ($code =~ /\G(.)/cgsu) |