Branch Coverage

lib/Perl/PrereqScanner/NotQuiteLite.pm
Criterion Covered Total %
branch 763 930 82.0


line true false branch
111 2 294 if ($delim eq '\\') { }
148 17 11 $rdel ? :
163 2433 18309 unless (exists $LOADED{$parser})
165 0 2433 if (my $error = $@)
166 0 0 unless $parser->can("register")
168 2433 0 $parser->can('register') ? :
170 0 20742 unless my $parser_mapping = $LOADED{$parser}
172 60144 22824 unless exists $parser_mapping->{$type}
176 118013 2083 $type eq 'use' || $type eq 'no' ? :
181 2076 18666 if ($parser->can("register_fqfn"))
202 0 696 unless $list
203 0 700 if ($parser eq ':installed') { }
691 9 elsif ($parser eq ':bundled') { }
5 4 elsif ($parser eq ':default') { }
1 3 elsif ($parser =~ s/^\+//) { }
1 2 elsif ($parser =~ s/^\-//) { }
1 1 elsif ($parser =~ /^$class\::Parser::/) { }
226 0 71 if $self->{'verbose'}
227 0 71 unless open my $fh, "<", $file
236 0 696 unless defined $string
240 0 696 if ($self->{'quick'})
242 0 0 if $c->{'file_size'} > 30000
246 0 696 if ($string =~ s/\A(\xef\xbb\xbf)//s)
281 0 705 if $@
282 9 696 if ($c->{'redo'})
290 1 695 if (@{$c->{'stack'};} and not $c->{'quick'})
309 0 0 if (not $saw_moose and $match =~ /^use\s+(?:Mo(?:o|(?:[ou]se))?X?|MooseX::Declare)\b/)
321 1 3087 if (@{$c->{'stack'};} > 90)
329 1 3087 if $c->{'ended'}
350 7467 38848 if ($line_top)
351 10 7457 if ($c1 eq "=")
352 10 0 if ($$rstr =~ /\G($re_pod)/cgsx)
353 0 10 if $wants_doc
358 4113 42192 if ($c1 eq "\n")
366 14660 27532 if ($c1 eq ' ') { }
57 27475 elsif ($c1 eq '_') { }
257 27218 elsif ($c1 eq '#') { }
2587 24631 elsif ($c1 eq ';') { }
3668 20963 elsif ($c1 eq '$') { }
317 20646 elsif ($c1 eq '@') { }
117 20529 elsif ($c1 eq '%') { }
89 20440 elsif ($c1 eq '*') { }
129 20311 elsif ($c1 eq '&') { }
70 20241 elsif ($c1 eq '\\') { }
1267 18974 elsif ($c1 eq '-') { }
436 18538 elsif ($c1 eq '"') { }
859 17679 elsif ($c1 eq q[']) { }
0 17679 elsif ($c1 eq '`') { }
144 17535 elsif ($c1 eq '/') { }
1785 15750 elsif ($c1 eq '{') { }
395 15355 elsif ($c1 eq '[') { }
1486 13869 elsif ($c1 eq '(') { }
1009 12860 elsif ($c1 eq '}') { }
96 12764 elsif ($c1 eq ']') { }
1090 11674 elsif ($c1 eq ')') { }
93 11581 elsif ($c1 eq '<') { }
227 11354 elsif ($c1 eq ':') { }
1706 9648 elsif ($c1 eq '=') { }
54 9594 elsif ($c1 eq '>') { }
134 9460 elsif ($c1 eq '+') { }
93 9367 elsif ($c1 eq '|') { }
4 9363 elsif ($c1 eq '^') { }
51 9312 elsif ($c1 eq '!') { }
2 9310 elsif ($c1 eq '~') { }
1389 7921 elsif ($c1 eq ',') { }
131 7790 elsif ($c1 eq '?') { }
195 7595 elsif ($c1 eq '.') { }
219 7376 elsif ($c1 eq '0') { }
371 1 56 if ($c2 eq "_" and $$rstr =~ /\G(__(?:DATA|END)__\b)(?!\s*=>)/cg)
372 0 1 if ($wants_doc) { }
381 257 0 if ($$rstr =~ /\G($re_comment)/cgs)
382 0 257 if $wants_doc
393 32 3636 if ($c2 eq '#') { }
44 3592 elsif ($c2 eq '$') { }
10 3582 elsif ($c2 eq '{') { }
2 3580 elsif ($c2 eq '*' and $prev_token_type eq 'ARROW') { }
2 3578 elsif ($c2 eq '+' or $c2 eq '-') { }
3576 2 elsif ($$rstr =~ /$g_re_scalar_variable/cg) { }
394 2 30 if (substr($$rstr, $pos + 2, 1) eq '{') { }
14 16 elsif ($$rstr =~ /\G(\$\#(?:$re_namespace))/cg) { }
2 14 elsif ($prev_token_type eq 'ARROW') { }
395 0 2 if ($$rstr =~ /\G(\$\#\{[\w\s]+\})/cg) { }
409 2 0 if ($c3 eq "*")
421 42 2 if ($$rstr =~ /\G(\$(?:\$)+(?:$re_namespace))/cg) { }
430 2 8 if ($$rstr =~ /\G(\$\{[\w\s]+\})/cg) { }
0 8 elsif ($$rstr =~ /\G(\$\{\^[A-Z_]+\})/cg) { }
432 0 2 if ($prev_token_type eq "KEYWORD" and $c->token_expects_fh_or_block_list($prev_token))
438 0 0 if ($token eq "\${^CAPTURE}" or $token eq "\${^CAPTURE_ALL}")
441 0 0 if ($token eq "\${^SAFE_LOCALES}")
449 3 7 if ($parent_scope & 8)
473 118 199 if ($c2 eq '_' and $$rstr =~ /\G\@_\b/cg) { }
37 162 elsif ($c2 eq '{') { }
37 125 elsif ($c2 eq '$') { }
11 114 elsif ($prev_token_type eq 'ARROW') { }
1 113 elsif ($c2 eq '[') { }
2 111 elsif ($c2 eq '+' or $c2 eq '-') { }
111 0 elsif ($$rstr =~ /\G(\@(?:$re_namespace))/cg) { }
477 0 37 if ($$rstr =~ /\G(\@\{[\w\s]+\})/cg) { }
2 35 elsif ($$rstr =~ /\G(\@\{\^[A-Z_]+\})/cg) { }
479 0 0 if ($token eq "\@{^CAPTURE}" or $token eq "\@{^CAPTURE_ALL}")
484 2 0 if ($token eq "\@{^CAPTURE}" or $token eq "\@{^CAPTURE_ALL}")
492 5 32 if ($prev_token_type eq "ARROW")
495 0 37 if ($parent_scope & 8)
500 35 2 if ($$rstr =~ /\G(\@\$(?:$re_namespace))/cg) { }
510 5 6 if ($c2 eq '*') { }
540 42 75 if ($c2 eq '{') { }
1 74 elsif ($c2 eq '=') { }
5 69 elsif ($$rstr =~ /\G(\%\$(?:$re_namespace))/cg) { }
57 12 elsif ($$rstr =~ /\G(\%(?:$re_namespace))/cg) { }
4 8 elsif ($prev_token_type eq 'VARIABLE' or $prev_token_type eq 'EXPR') { }
6 2 elsif ($prev_token_type eq 'ARROW') { }
2 0 elsif ($c2 eq '+' or $c2 eq '-') { }
541 0 42 if ($$rstr =~ /\G(\%\{[\w\s]+\})/cg) { }
2 40 elsif ($$rstr =~ /\G(\%\{\^[A-Z_]+\})/cg) { }
545 2 0 if ($token eq "%{^CAPTURE}" or $token eq "%{^CAPTURE_ALL}")
553 4 38 if ($prev_token_type eq "ARROW")
556 0 42 if ($parent_scope & 8)
575 2 4 if ($c2 eq '*') { }
598 15 74 if ($c2 eq '{') { }
3 71 elsif ($c2 eq '*') { }
2 69 elsif ($c2 eq '=') { }
29 40 elsif ($$rstr =~ /\G(\*(?:$re_namespace))/cg) { }
599 2 13 if ($prev_token_type eq 'ARROW') { }
0 13 elsif ($$rstr =~ /\G(\*\{[\w\s]+\})/cg) { }
606 0 0 if ($prev_token eq "KEYWORD" and $c->token_expects_fh_or_block_list($prev_token))
615 0 13 if ($parent_scope & 8)
620 0 3 if (substr($$rstr, $pos + 2, 1) eq '=') { }
2 1 elsif ($prev_token_type eq 'ARROW') { }
648 58 71 if ($c2 eq '&') { }
0 71 elsif ($c2 eq '=') { }
8 63 elsif ($c2 eq '{') { }
2 61 elsif ($c2 eq '.') { }
48 13 elsif ($$rstr =~ /\G(\&(?:$re_namespace))/cg) { }
3 10 elsif ($$rstr =~ /\G(\&\$(?:$re_namespace))/cg) { }
2 8 elsif ($prev_token_type eq 'ARROW') { }
657 0 8 if ($$rstr =~ /\G(\&\{[\w\s]+\})/cg) { }
664 0 8 if ($parent_scope & 8)
669 1 1 if (substr($$rstr, $pos + 2, 1) eq '=') { }
685 2 0 if ($c2 eq "*")
698 0 70 if ($c2 eq '{') { }
699 0 0 if ($$rstr =~ /\G(\\\{[\w\s]+\})/cg) { }
706 0 0 if ($parent_scope & 8)
717 1103 164 if ($c2 eq '>') { }
4 160 elsif ($c2 eq '-') { }
5 155 elsif ($c2 eq '=') { }
4 151 elsif ($$rstr =~ /\G(\-[ABCMORSTWXbcdefgkloprstuwxz]\b)/cg) { }
720 51 1052 if ($prev_token_type eq "WORD" or $prev_token_type eq "KEYWORD")
742 435 1 if ($$rstr =~ /\G(?:\"($re_str_in_double_quotes)\")/cgs)
747 859 0 if ($$rstr =~ /\G(?:\'($re_str_in_single_quotes)\')/cgs)
752 0 0 if ($$rstr =~ /\G(?:\`($re_str_in_backticks)\`)/cgs)
757 72 3 if ($prev_token_type eq "" or $prev_token_type eq "OP" or $prev_token_type eq "KEYWORD" and $regexp_may_follow{$prev_token})
758 96 1 if (my $regexp = $self->_match_regexp0($c, $rstr, $pos, 'm')) { }
767 0 3 if ($prev_token_type eq "" or not $current_scope & 512 and $prev_token_type eq "WORD" or $prev_token_type eq "KEYWORD" and @keywords and $prev_token eq $keywords[-1] and $regexp_may_follow{$prev_token})
769 0 1 if (my $regexp = $self->_match_regexp0($c, $rstr, $pos)) { }
779 9 39 if ($c2 eq "/")
780 2 7 if (substr($$rstr, $pos + 2, 1) eq '=') { }
792 1 38 if ($c2 eq '=') { }
802 879 906 if ($$rstr =~ /$g_re_hash_shortcut/cg)
804 1 878 if ($current_scope & 2)
806 0 1 ($current_scope | $parent_scope) & 2 ? :
808 8 871 if ($parent_scope & 8)
812 755 116 if ($prev_token_type eq 'ARROW' or $prev_token_type eq 'VARIABLE') { }
82 34 elsif ($waiting_for_a_block) { }
15 19 elsif ($prev_token_type eq 'KEYWORD' and $c->token_expects_fh_or_block_list($prev_token)) { }
817 70 12 if (@keywords and $c->token_expects_block($keywords[0]))
820 3 67 if ($c->token_defines_sub($first_token) and $c->has_callback_for("sub", $first_token))
838 713 193 if (@keywords)
841 672 73 if ($c->token_expects_block($keyword))
843 40 8 if (@tokens and $c->token_defines_sub($keyword) and $c->has_callback_for("sub", $keyword))
853 62 844 if ($parent_scope & 8)
857 35 809 if ($prev_token_type eq 'ARROW' or $prev_token_type eq 'VARIABLE') { }
676 133 elsif ($waiting_for_a_block) { }
862 52 81 ($current_scope | $parent_scope) & 1 ? :
866 208 187 if ($$rstr =~ /\G(\[(?:$re_nonblock_chars)\])/cg) { }
877 101 1385 if ($waiting_for_a_block and @keywords and $c->token_defines_sub($keywords[-1]) and $$rstr =~ /$prototype_re/cg) { }
295 1090 elsif ($$rstr =~ /\G\(((?:$re_nonblock_chars)(?
879 56 45 if ($proto =~ /^\([\\\$\@\%\&\[\]\*;\+]*\)$/) { }
888 54 25 if ($prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token and not $c->token_expects_expr_block($prev_token))
889 1 53 if ($prev_token eq "eval")
891 0 1 ($current_scope | $parent_scope) & 2 ? :
900 609 481 if (@keywords)
903 215 446 if ($c->token_expects_block($keyword))
930 19 74 if ($c2 eq '<') { }
10 64 elsif ($c2 eq '=') { }
1 63 elsif ($c2 eq '>') { }
12 51 elsif ($$rstr =~ m(\G(<(?: \\. | \w+ | [./-] | \[[^\]]*\] | \{[^\}]*\} | \* | \? | \~ | \$ | )*(?))cgx) { }
931 1 18 if ($$rstr =~ m(\G(<<(?: \\. | \w+ | [./-] | \[[^\]]*\] | \{[^\}]*\} | \* | \? | \~ | \$ | )*(?>))cgx) { }
16 2 elsif ($$rstr =~ /\G<<~?\s*(?: \\?[A-Za-z_][\w]* | "(?:[^\\"]*(?:\\.[^\\"]*)*)" | '(?:[^\\']*(?:\\.[^\\']*)*)' | `(?:[^\\`]*(?:\\.[^\\`]*)*)` )/sx) { }
951 14 2 if (my $heredoc = $self->_match_heredoc($c, $rstr)) { }
959 0 4 if (substr($$rstr, $pos + 2, 1) eq '=') { }
969 1 9 if (substr($$rstr, $pos + 2, 1) eq '>') { }
1002 21 206 if ($c2 eq ":")
1007 44 162 if ($waiting_for_a_block and @keywords and $c->token_defines_sub($keywords[-1])) { }
1010 44 31 if (substr($$rstr, $startpos, 1) eq "(")
1016 0 103 if ($c1 eq "\\")
1020 50 53 if ($c1 eq ")")
1023 44 6 unless @nest
1025 6 53 if ($c1 eq "(")
1030 48 5 if $$rstr =~ /\G([^\\()]+)/cg
1036 2 42 if ($token =~ /^:prototype\(/)
1047 600 1106 if ($c2 eq '>') { }
74 1032 elsif ($c2 eq '=') { }
101 931 elsif ($c2 eq '~') { }
1050 19 129 if (@keywords and $prev_token_type eq "KEYWORD" and $keywords[-1] eq $prev_token)
1052 1 18 if (not @keywords and $current_scope & 1)
1073 0 54 if ($c2 eq '>') { }
4 50 elsif ($c2 eq '=') { }
1074 0 0 if (substr($$rstr, $pos + 2, 1) eq '=') { }
1094 19 115 if ($c2 eq '+') { }
40 75 elsif ($c2 eq '=') { }
1095 0 19 if (substr($$rstr, $pos + 2, 1) eq '=') { }
1115 85 8 if ($c2 eq '|') { }
1 7 elsif ($c2 eq '=') { }
2 5 elsif ($c2 eq '.') { }
1116 17 68 if (substr($$rstr, $pos + 2, 1) eq '=') { }
1130 1 1 if (substr($$rstr, $pos + 2, 1) eq '=') { }
1146 0 4 if ($c2 eq '=') { }
2 2 elsif ($c2 eq '.') { }
1151 1 1 if (substr($$rstr, $pos + 2, 1) eq '=') { }
1167 5 46 if ($c2 eq '~') { }
1178 1 1 if ($c2 eq '~') { }
1 0 elsif ($c2 eq '.') { }
1203 20 175 if ($c2 eq '.') { }
26 149 elsif ($c2 eq '=') { }
1204 15 5 if (substr($$rstr, $pos + 2, 1) eq '.') { }
1225 4 215 if ($c2 eq 'x') { }
0 215 elsif ($c2 eq 'b') { }
1226 4 0 if ($$rstr =~ /\G(0x[0-9A-Fa-f_]+)/cg)
1231 0 0 if ($$rstr =~ /\G(0b[01_]+)/cg)
1238 650 6998 if ($$rstr =~ /\G((?:0|[1-9][0-9_]*)(?:\.[0-9][0-9_]*)?)/cg)
1242 9 641 if ($n1 eq '.') { }
0 641 elsif ($n1 eq 'E' or $n1 eq 'e') { }
1243 0 9 if ($$rstr =~ /\G((?:\.[0-9_])+)/cg) { }
7 2 elsif (substr($$rstr, $p, 2) ne '..') { }
1252 0 0 if ($$rstr =~ /\G([Ee][+-]?[0-9]+)/cg)
1257 2 648 if ($prepend)
1259 2 0 if @tokens and $tokens[-1][0] eq $prepend
1260 0 2 if @scope_tokens and $scope_tokens[-1][0] eq $prepend
1265 5421 1056 if ($prev_token_type ne "ARROW" and $prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token))
1266 330 5091 if ($prev_token_type eq "EXPR" or $prev_token_type eq "VARIABLE")
1267 5 325 if ($c1 eq "x")
1268 3 2 if ($$rstr =~ /\G(x\b(?!\s*=>))/cg)
1275 206 5212 if ($c1 eq 'q') { }
637 4575 elsif ($c1 eq 'm') { }
591 3984 elsif ($c1 eq 's') { }
28 3956 elsif ($c1 eq 't') { }
4 3952 elsif ($c1 eq 'y') { }
1277 96 110 if ($$rstr =~ /\G((?:$quotelike_re)\b(?!\s*=>))/cg) { }
92 18 elsif ($$rstr =~ /\G((?:qw)\b(?!\s*=>))/cg) { }
0 18 elsif ($$rstr =~ /\G((?:qx)\b(?!\s*=>))/cg) { }
16 2 elsif ($$rstr =~ /\G(qr\b(?!\s*=>))/cg) { }
1278 96 0 if (my $quotelike = $self->_match_quotelike($c, $rstr, $1)) { }
1286 92 0 if (my $quotelike = $self->_match_quotelike($c, $rstr, $1)) { }
1294 0 0 if (my $quotelike = $self->_match_quotelike($c, $rstr, $1)) { }
1302 16 0 if (my $regexp = $self->_match_regexp($c, $rstr)) { }
1311 31 606 if ($$rstr =~ /\G(m\b(?!\s*=>))/cg)
1312 31 0 if (my $regexp = $self->_match_regexp($c, $rstr)) { }
1321 53 538 if ($$rstr =~ /\G(s\b(?!\s*=>))/cg)
1322 53 0 if (my $regexp = $self->_match_substitute($c, $rstr)) { }
1331 3 25 if ($$rstr =~ /\G(tr\b(?!\s*=>))/cg)
1332 3 0 if (my $trans = $self->_match_transliterate($c, $rstr)) { }
1341 2 2 if ($$rstr =~ /\G(y\b(?!\s*=>))/cg)
1342 2 0 if (my $trans = $self->_match_transliterate($c, $rstr)) { }
1353 5987 715 if ($$rstr =~ /\G(\w+)/cg)
1355 521 5466 if ($prev_token_type eq 'ARROW') { }
3 5463 elsif ($token eq 'CORE') { }
5 5458 elsif ($token eq 'format') { }
3505 1953 elsif ($c->token_is_keyword($token) and $prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token) || $prev_token eq 'sub' && $token eq 'BEGIN') { }
1356 9 512 if $$rstr =~ /\G((?:(?:::|')\w+)+)\b/cg
1361 4 1 if ($$rstr =~ /\G([^=]*?=[ \t]*\n.*?\n\.\n)/cgs)
1368 164 3341 if ($c->token_is_op_keyword($token)) { }
1373 3297 44 unless $token eq "undef"
1376 5 1948 if ($c1 eq "v" and $token =~ /^v(?:0|[1-9][0-9]*)$/)
1377 5 0 if ($$rstr =~ /\G((?:\.[0-9][0-9_]*)+)/cg)
1383 378 1570 if $$rstr =~ /\G((?:(?:::|')\w+)+)\b/cg
1385 49 1899 if ($prepend)
1387 10 39 if @tokens and $tokens[-1][0] eq $prepend
1388 39 10 if @scope_tokens and $scope_tokens[-1][0] eq $prepend
1395 0 715 if ($$rstr =~ /\G([[:cntrl:]]+)/cg)
1399 1 714 if ($$rstr =~ /\G([[:ascii:]]+)/cg)
1400 1 0 if $parent_scope & 4
1406 0 714 if ($$rstr =~ /\G([[:^ascii:]](?:[[:^ascii:]]|\w)*)/cg)
1407 0 0 if (not $c->{'utf8'}) { }
1408 0 0 if $parent_scope & 4
1417 0 714 if ($$rstr =~ /\G(\S+)/cg)
1418 0 0 if $parent_scope & 4
1426 0 45599 if $prev_pos == pos $$rstr
1429 26559 19040 if (defined $token)
1430 5925 20634 if (not $current_scope & 512) { }
3343 17294 elsif ($current_scope & 512 and $current_scope & 256 || $ends_expr{$token} && $token_type eq 'KEYWORD' && $prev_token ne ',' && $prev_token ne '=>') { }
1445 841 25718 if ($parent_scope & 1)
1447 39 802 if ($token eq "-" or $token eq "+")
1451 979 2 if (not $current_scope & 1 and exists $c->{'callback'}{$token} || exists $c->{'keyword'}{$token} || exists $c->{'sub'}{$token} and $token_type ne "METHOD" and not $c->token_expects_word($prev_token))
1454 1091 25468 if ($c->token_expects_block($token))
1457 134 81 if ($current_scope & 2 or $parent_scope & 2 and !@{$c->{'stack'};} || $c->{'stack'}[-1][0] ne '{')
1458 32 102 if ($token_type eq 'STRING') { }
1 101 elsif ($token_desc eq 'HEREDOC') { }
8 93 elsif ($token_type eq 'VARIABLE') { }
1459 20 12 if ($token->[0] =~ /\b(?:(?:use|no)\s+[A-Za-z]|require\s+(?:q[qw]?.|['"])?[A-Za-z])/)
1461 20 0 if (defined $eval_string and $eval_string ne "")
1476 1 0 if ($token->[0] =~ /\b(?:use|require|no)\s+[A-Za-z]/)
1478 1 0 if (defined $eval_string and $eval_string ne "")
1495 104 30 ($current_scope | $parent_scope) & 2 ? :
1497 51 26508 if ($token eq "eval")
1502 4129 22430 if ($current_scope & 1)
1504 12 4117 if ($token eq "-" or $token eq "+")
1507 11 1035 if ($token_type eq "KEYWORD" and $has_sideff{$token})
1511 2289 24270 if ($stack)
1515 271 2018 if ($token eq "{" and $is_conditional{$stack->[2]})
1521 16 2273 if ($token eq "{" and $current_scope & 2)
1523 0 16 ($current_scope | $parent_scope) & 2 ? :
1525 139 2150 if ($current_scope & 1) { }
36 2114 elsif ($parent_scope & 1) { }
1535 302 187 if ($stack->[0] eq "(" and $prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token and not $c->token_expects_expr_block($prev_token))
1539 611 102 if ($stack->[0] eq "{" and @keywords and $c->token_expects_block($keywords[0]) and not $c->token_expects_block_list($keywords[-1]))
1540 611 0 unless @tokens and $c->token_defines_sub($keywords[-1]) || $keywords[-1] eq 'eval'
1544 4273 22286 if ($current_scope & 128)
1545 944 3329 if ($current_scope & 1 and @tokens)
1547 46 898 if ($first_token eq "->")
1551 1 45 if ($first_token eq "use" or $first_token eq "no")
1555 44 900 ($current_scope | $parent_scope) & 48 ? :
1556 713 231 if (exists $c->{'callback'}{$first_token})
1561 0 713 if ($c->{'found_unsupported_package'} and not $c->{'quick'})
1568 185 759 if (exists $c->{'keyword'}{$first_token})
1574 18 926 if (exists $c->{'method'}{$first_token} and $caller_package)
1580 11 933 if ($current_scope & 32)
1583 11 47 if $has_sideff{$token->[0]}
1585 2 9 if grep {$has_sideff{$_->[0]};} @tokens
1586 11 0 if (@tokens)
1588 1 10 ($current_scope | $parent_scope) & 48 ? :
1589 0 11 if (exists $c->{'callback'}{$first_token})
1594 1 10 if (exists $c->{'keyword'}{$first_token})
1600 0 11 if (exists $c->{'method'}{$first_token} and $caller_package)
1616 2193 24366 if ($unstack and @{$c->{'stack'};})
1619 0 2193 if ($unstack eq "}" and $stacked_type ne "{" or $unstack eq "]" and $stacked_type ne "[" or $unstack eq ")" and $stacked_type ne "(")
1633 2266 24293 if $current_scope & 64
1634 105 24188 if $c->{'ended'}
1635 0 24188 if $c->{'last_found_by_skimming'} and $c->{'last_found_by_skimming'} < pos $$rstr
1640 0 43228 if (@{$c->{'errors'};} and not $parent_scope & 4)
1642 0 0 if $rest
1647 40 3047 if (@tokens)
1648 40 0 if (my $first_token = $tokens[0][0])
1649 28 12 if (exists $c->{'callback'}{$first_token})
1652 9 31 if (exists $c->{'keyword'}{$first_token})
1671 0 188 unless ($$rstr =~ /\G(\S)/cg)
1677 135 53 if ($ldel =~ /[[(<{]/) { }
1683 28 332 if ($c1 eq "\\")
1687 15 317 if ($c1 eq $ldel)
1692 150 167 if ($c1 eq $rdel)
1695 135 15 unless @nest
1698 167 0 if $$rstr =~ /\G$re_skip/cg
1701 0 135 if @nest
1704 0 53 unless $$rstr =~ /\G$re/cgs
1717 50 1 $token_type ? :
1 97 unless $$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, "/", "/", $token_type ? "m" : "")
1726 1 96 if ($re =~ /\n/s and not $mod =~ /x/)
1740 0 47 unless ($$rstr =~ /\G(\S)/cg)
1745 27 20 if ($ldel =~ /[[(<{]/)
1750 0 47 unless $$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, $ldel, $rdel, "m/qr")
1768 0 53 unless ($$rstr =~ /\G(\S)/cg)
1773 22 31 if ($ldel1 =~ /[[(<{]/)
1778 0 53 unless $ldel1 ne "\\" and $$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, $ldel1, $rdel1, "s")
1780 0 53 unless defined $self->_scan_re2($c, $rstr, $ldel1, "s")
1795 0 5 unless ($$rstr =~ /\G(\S)/cg)
1801 1 4 if ($ldel1 =~ /[[(<{]/) { }
1804 0 1 unless $$rstr =~ /\G$re/cgs
1806 0 1 unless ($$rstr =~ /\G\s*(\S)/cg)
1812 0 4 unless $$rstr =~ /\G$re/cgs
1816 1 4 if ($ldel2 =~ /[[(<{]/) { }
1819 0 1 unless $$rstr =~ /\G$re/cgs
1822 0 4 unless $$rstr =~ /\G$re/cgs
1837 1 15 $1 ? :
1840 8 8 if ($$rstr =~ /\G\\?([A-Za-z_]\w*)/cg) { }
8 0 elsif ($$rstr =~ / \G ' ($re_str_in_single_quotes) ' | \G " ($re_str_in_double_quotes) " | \G ` ($re_str_in_backticks) ` /cgsx) { }
1855 2 14 unless ($$rstr =~ /\G.*?\n$indent(?=\Q$label\E\n)/cgs)
1869 1 13 if ($indent)
1882 110 16 if (@{$c->{'stack'};})
1893 271 4782 if ($c1 eq "\n")
1900 696 4086 if ($c1 eq " " or $c1 eq "\t")
1905 144 3942 if ($c1 eq "#" and $rdel ne "#")
1906 94 50 if ($multiline and $$rstr =~ /\G(#[^\Q$rdel\E]*?)\n/cgs) { }
1916 416 3526 if ($c1 eq "\\" and $rdel ne "\\")
1917 416 0 if ($$rstr =~ /\G(\\.)/cgs)
1925 197 3329 if ($c1 eq "[")
1927 0 197 if ($$rstr =~ /\G(\[\[:\w+?:\]\])/cgs)
1931 59 138 if ($$rstr =~ /\G(\[[^\\\]]]*?(\\.[^\\\]]]*)*\])/cgs)
1937 156 3311 if ($c1 eq $rdel) { }
30 3281 elsif ($c1 eq $ldel) { }
1939 39 117 if ($saw_sharp)
1941 3 36 if ($op eq "s")
1944 0 3 unless (defined $latter)
1950 2 37 if ($$rstr =~ /\G[a-wyz]*x/)
1958 29 8 if ($multiline)
1964 44 81 if ($ldel ne $rdel)
1968 125 4 if $nested eq $expected
1970 123 2 unless @nesting
1974 28 2 if ($multiline and $saw_sharp) { }
1982 45 3264 if ($c1 eq "{")
1984 4 41 if ($$rstr =~ /\G(\{[0-9]+(?:,(?:[0-9]+)?)?})/cgs)
1990 407 2898 if ($c1 eq "(")
1992 209 198 if ($c2 eq "?" and not $multiline && $saw_sharp)
1994 70 139 if ($$rstr =~ /\G((\()\?+?)(?=\{)/cg)
1997 0 70 unless (eval { do { $self->_scan($c, $rstr, 8); 1 } })
2004 10 129 if ($$rstr =~ /\G(\(\?\#[^\\\)]*(?:\\.[^\\\)]*)*\))/cgs)
2011 327 0 if ($$rstr =~ /\G((\()(?:<[!=]|<\w+?>|>)?)/cg)
2019 3 2895 if ($c1 eq "\$" and substr($$rstr, $p + 1, 1) eq "{")
2021 3 0 if eval { do { $self->_scan($c, $rstr, 8); 1 } }
2026 397 2498 if ($c1 eq ")")
2027 393 4 if (@nesting and $nesting[-1] eq '(') { }
2038 87 2415 unless ($op)
2039 1 86 if ($outer_opening_delimiter and $c1 eq $outer_opening_delimiter)
2045 2 84 if ($outer_closing_delimiter and $c1 eq $outer_closing_delimiter)
2046 1 1 if (@nesting and $nesting[-1] eq $outer_opening_delimiter)
2056 2499 0 if ($$rstr =~ /\G(\w+|.)/cgs)
2062 0 125 if ($#nesting >= 0)
2076 23 33 if ($ldel =~ /[[(<{]/)
2079 0 23 unless ($$rstr =~ /\G\s*(\S)/cg)
2085 23 33 if ($ldel =~ /[[(<{]/) { }
2091 16 152 if ($c1 eq "\\")
2095 25 127 if ($c1 eq $ldel)
2100 48 79 if ($c1 eq $rdel)
2103 23 25 unless @nest
2106 79 0 if $$rstr =~ /\G$re_skip/cg
2109 0 23 if @nest
2112 0 33 unless $$rstr =~ /\G$re/cgs
2126 0 641 unless my $name_token = shift @$tokens
2128 0 641 if not defined $name or ref $name or $name eq ""
2131 3 638 if ($c1 eq 5)
2135 6 632 if ($c1 eq "v")
2137 1 5 if ($c2 eq 5)
2141 0 5 if ($c2 eq 6)
2147 18 619 if ($c->enables_utf8($name))
2150 9 9 unless ($c->{'decoded'})
2159 637 0 if (is_module_name($name))
2162 34 603 if ($maybe_version_token_desc and $maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING') { }
2169 5 632 if (exists $sub_keywords{$name})
2173 1 636 if (exists $filter_modules{$name})
2177 0 1 if $redo
2181 307 330 if ($c->has_callback_for('use', $name)) { }
2 328 elsif ($name =~ /\b(?:Mo[ou]se?X?|MooX?|Elk|Antlers|Role)\b/) { }
2183 0 307 if $@
2185 0 2 $name =~ /Role/ ? :
2186 1 1 if ($c->has_callback_for("use", $module))
2188 0 1 if $@
2192 0 637 if (exists $unsupported_packages{$name})
2203 0 69 unless my $name_token = shift @$tokens
2205 7 62 if (ref $name)
2207 2 5 if $name =~ /\.pl$/i
2212 0 67 if not defined $name or $name eq ""
2215 1 66 if ($c1 eq 5)
2219 1 65 if ($c1 eq "v")
2221 1 0 if ($c2 eq 5)
2225 0 0 if ($c2 eq 6)
2231 62 3 if (is_module_name($name))
2243 0 31 unless my $name_token = shift @$tokens
2245 0 31 if not defined $name or ref $name or $name eq ""
2248 1 30 if ($c1 eq 5)
2252 1 29 if ($c1 eq "v")
2254 1 0 if ($c2 eq 5)
2258 0 0 if ($c2 eq 6)
2264 0 29 if ($name eq "utf8")
2268 29 0 if (is_module_name($name))
2271 3 26 if ($maybe_version_token_desc and $maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING') { }
2279 2 27 if ($c->has_callback_for("no", $name))
2281 0 2 if $@