line |
!l |
l&&!r |
l&&r |
condition |
225
|
349 |
0 |
2 |
$expect_format == 1 and $code =~ /\G(?=\R)/u |
243
|
338 |
8 |
3 |
$#heredoc_eofs >= 0 and $code =~ /\G(?=\R)/u |
252
|
1 |
342 |
3 |
$regex == 1 || $code =~ /\G(?!<<[0-9])/u and $code =~ /\G$bhdoc/cgu |
260
|
262 |
81 |
0 |
$canpod == 1 and $code =~ /\G^=[a-zA-Z]/cgmu |
294
|
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 |
316
|
126 |
6 |
147 |
$regex == 1 and not $postfix_op |
365
|
257 |
0 |
0 |
$proto == 1 and $code =~ /\G\(.*?\)/cgsu |
421
|
184 |
55 |
2 |
$canpod == 1 and $code =~ /\Gformat\b/cgu |
429
|
2 |
232 |
5 |
$flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u and $code =~ /\G(?)$perl_keywords/cgou |
441
|
5 |
0 |
0 |
$name eq 'sub' and not $is_bare_word |
456
|
0 |
0 |
234 |
$code =~ /\G(?!(?>tr|[ysm]|q[rwxq]?)\h*=>)/u and $code =~ /\G(?)/u |
458
|
232 |
0 |
2 |
$flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u |
477
|
113 |
108 |
1 |
$regex == 1 and $code =~ /\G $match_re $match_flags /cgoux |
617
|
106 |
2 |
97 |
$regex == 1 and $code =~ /\G(?
|
|
108 |
96 |
1 |
$regex == 1 and $code =~ /\G(?
|
line |
l |
!l&&r |
!l&&!r |
condition |
252
|
182 |
163 |
1 |
$regex == 1 || $code =~ /\G(?!<<[0-9])/u |
285
|
22 |
0 |
0 |
$code =~ /\G$var_name/cgou or $code =~ /\G(?<=\$)\#$var_name/cgou |
294
|
0 |
0 |
0 |
$code =~ /\G(?:\s+|#?)\{\s*(?:$var_name|$special_var_names|[#{])\s*\}/cgou || $code =~ /\G(?:\^\w+|#(?!\{)|$special_var_names)/cgou || $code =~ /\G#/cgu |
316
|
147 |
1 |
131 |
$regex == 1 and not $postfix_op or $code =~ /\G(?=[\@\$])/u |
429
|
237 |
0 |
2 |
$flat == 0 || $flat == 1 && $code =~ /\G(?!\w+\h*\})/u |
458
|
2 |
1 |
231 |
$flat == 1 and $code =~ /\G(?=[a-z]+\h*\})/u or $code =~ /\G((?<=\{)|(?<=\{\h))(?=[a-z]+\h*\})/u |
477
|
3 |
2 |
220 |
$code =~ /\G $single_q{'m'} $match_flags /cgoux or $regex == 1 and $code =~ /\G $match_re $match_flags /cgoux |
646
|
50 |
0 |
138 |
$code =~ /\G$operators/cgou or $code =~ /\Gx(?=[0-9\W])/cgu |