line |
!l |
l&&!r |
l&&r |
condition |
226
|
349 |
0 |
2 |
$expect_format == 1 and $code =~ /\G(?=\R)/u |
244
|
338 |
8 |
3 |
$#heredoc_eofs >= 0 and $code =~ /\G(?=\R)/u |
253
|
1 |
342 |
3 |
$regex == 1 || $code =~ /\G(?!<<[0-9])/u and $code =~ /\G$bhdoc/cgu |
261
|
262 |
81 |
0 |
$canpod == 1 and $code =~ /\G^=[a-zA-Z]/cgmu |
295
|
0 |
0 |
0 |
$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 |
317
|
126 |
6 |
147 |
$regex == 1 and not $postfix_op |
366
|
257 |
0 |
0 |
$proto == 1 and $code =~ /\G\(.*?\)/cgsu |
422
|
184 |
55 |
2 |
$canpod == 1 and $code =~ /\Gformat\b/cgu |
430
|
2 |
232 |
5 |
$flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u and $code =~ /\G(?)$perl_keywords/cgou |
442
|
5 |
0 |
0 |
$name eq 'sub' and not $is_bare_word |
457
|
0 |
0 |
234 |
$code =~ /\G(?!(?>tr|[ysm]|q[rwxq]?)\h*=>)/u and $code =~ /\G(?)/u |
459
|
232 |
0 |
2 |
$flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u |
478
|
113 |
108 |
1 |
$regex == 1 and $code =~ /\G $match_re $match_flags /cgoux |
618
|
106 |
2 |
97 |
$regex == 1 and $code =~ /\G(?
|
|
108 |
96 |
1 |
$regex == 1 and $code =~ /\G(?
|
line |
l |
!l&&r |
!l&&!r |
condition |
253
|
182 |
163 |
1 |
$regex == 1 || $code =~ /\G(?!<<[0-9])/u |
286
|
22 |
0 |
0 |
$code =~ /\G$var_name/cgou or $code =~ /\G(?<=\$)\#$var_name/cgou |
295
|
0 |
0 |
0 |
$code =~ /\G(?:\s+|#?)\{\s*(?:$var_name|$special_var_names|[#{])\s*\}/cgou || $code =~ /\G(?:\^\w+|#(?!\{)|$special_var_names)/cgou || $code =~ /\G#/cgu |
317
|
147 |
1 |
131 |
$regex == 1 and not $postfix_op or $code =~ /\G(?=[\@\$])/u |
430
|
237 |
0 |
2 |
$flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u |
459
|
2 |
1 |
231 |
$flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u or $code =~ /\G((?<=\{)|(?<=\{\h))(?=[a-z]+\h*\})/u |
478
|
3 |
2 |
220 |
$code =~ /\G $single_q{'m'} $match_flags /cgoux or $regex == 1 and $code =~ /\G $match_re $match_flags /cgoux |
647
|
50 |
0 |
138 |
$code =~ /\G$operators/cgou or $code =~ /\Gx(?=[0-9\W])/cgu |