Branch Coverage

lib/mb.pm
Criterion Covered Total %
branch 1090 1616 67.4


line true false branch
20 94 0 if $INC[-1] eq '.'
22 0 94 if $] < 5.006
71 0 94 if (defined $_[0] and $_[0] =~ /\A [0-9] /msx)
72 0 0 if ($_[0] ne $mb::VERSION)
79 0 94 if (defined $_[0]) { }
81 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
98 0 0 if (scalar @ARGV == 0)
117 0 0 if (($encoding) = $ARGV[0] =~ /\A -e ( .+ ) \z/msx) { }
0 0 elsif ($ARGV[0] =~ /\A -e \z/msx) { }
118 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
128 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
143 0 0 if (not -e $script_oo or -M $script_oo <= -M $ARGV[0] or -M $script_oo <= -M '/root/.cpan/build/mb-0.06-0/t/../lib/mb.pm')
150 0 0 unless _open_r(my $fh, $ARGV[0])
156 0 0 if (mkdir "$ARGV[0].lock", 493) { }
157 0 0 unless _open_w($fh, ">$script_oo")
171 0 0 if ($OSNAME =~ /MSWin32/) { }
172 0 0 if ($0 =~ m( ([^\/\\]+)\.pm \z)imsx) { }
183 0 0 if ($0 =~ m[ ([^\/]+)\.pm \z]imsx) { }
196 0 0 / / ? :
223 12 6 @_ ? :
224 20 6 if (my(@x) = /\G$mb::x/g)
235 2 2 if @_
249 5 0 if (-f $prefix_file)
253 0 0 if (not -e $prefix_file_oo or -M $prefix_file_oo <= -M $prefix_file or -M $prefix_file_oo <= -M '/root/.cpan/build/mb-0.06-0/t/../lib/mb.pm')
258 0 5 unless _open_r(my $fh, $prefix_file)
264 5 0 if (mkdir "$prefix_file.lock", 493) { }
265 0 5 unless _open_w(my $fh, ">$prefix_file_oo")
291 8 0 @_ ? :
295 8 0 if (not $OSNAME =~ /MSWin32/) { }
307 0 0 if $pattern =~ /\G$mb::_anchor \& /msx
308 0 0 if $pattern =~ /\G$mb::_anchor \( /msx
309 0 0 if $pattern =~ /\G$mb::_anchor \) /msx
310 0 0 if $pattern =~ /\G$mb::_anchor \< /msx
311 0 0 if $pattern =~ /\G$mb::_anchor \> /msx
312 0 0 if $pattern =~ /\G$mb::_anchor \^ /msx
313 0 0 if $pattern =~ /\G$mb::_anchor \| /msx
317 0 0 if (my($dir) = $pattern =~ /\A ($mb::x*) \\ /msx) { }
328 0 21 unless mb::uc($a) cmp mb::uc($b)
334 1614 8 if @_
343 3 0 @_ ? :
344 0 3 if @_ and not wantarray
346 3 0 if ($script_encoding =~ /\A (?: sjis ) \z/msx) { }
0 0 elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { }
0 0 elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { }
0 0 elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { }
0 0 elsif ($script_encoding =~ /\A (?: utf8 ) \z/msx) { }
347 2 1 if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx)
352 0 0 if ($getc =~ /\A [\xA1-\xFE] \z/msx)
357 0 0 if ($getc =~ /\A [\x81-\xFE] \z/msx)
362 0 0 if ($getc =~ /\A [\x81-\xFE] \z/msx)
364 0 0 if ($getc =~ /\A [\x81-\xFE] [\x30-\x39] \z/msx)
371 0 0 if ($getc =~ /\A [\xC2-\xDF] \z/msx) { }
0 0 elsif ($getc =~ /\A [\xE0-\xEF] \z/msx) { }
0 0 elsif ($getc =~ /\A [\xF0-\xF4] \z/msx) { }
384 0 3 wantarray ? :
391 4 4 if (@_ == 3) { }
397 4 4 if ($index == -1) { }
412 12 166 if (CORE::substr($str, $pos, CORE::length $substr) eq $substr)
413 8 4 if ($pos >= $position)
417 170 0 if (CORE::substr($str, $pos) =~ /\A($mb::x)/mosx) { }
430 10 1 if @_
432 58 61 unless {'A', 'a', 'B', 'b', 'C', 'c', 'D', 'd', 'E', 'e', 'F', 'f', 'G', 'g', 'H', 'h', 'I', 'i', 'J', 'j', 'K', 'k', 'L', 'l', 'M', 'm', 'N', 'n', 'O', 'o', 'P', 'p', 'Q', 'q', 'R', 'r', 'S', 's', 'T', 't', 'U', 'u', 'V', 'v', 'W', 'w', 'X', 'x', 'Y', 'y', 'Z', 'z'}->{$_}
439 1 1 if @_
440 2 0 if (/\A($mb::x)(.*)\z/s) { }
451 12 4 if @_
458 2 2 if @_
460 4 0 if (/\A($mb::x)/)
471 5 0 if @_
474 0 5 if (/^[0-9]/) { }
475 0 0 if ($] < $_) { }
485 1 4 if (exists $INC{$_})
486 1 0 if $INC{$_}
493 4 0 if (-f $prefix_file)
497 0 0 if (not -e $prefix_file_oo or -M $prefix_file_oo <= -M $prefix_file or -M $prefix_file_oo <= -M '/root/.cpan/build/mb-0.06-0/t/../lib/mb.pm')
502 0 4 unless _open_r(my $fh, $prefix_file)
508 4 0 if (mkdir "$prefix_file.lock", 493) { }
509 0 4 unless _open_w(my $fh, ">$prefix_file_oo")
529 0 4 if ($@) { }
0 4 elsif (not $result) { }
549 2 2 if (wantarray) { }
561 4 4 if (@_ == 3) { }
567 4 4 if ($rindex == -1) { }
583 20 210 if (CORE::substr($str, $pos, CORE::length $substr) eq $substr)
586 230 0 if (CORE::substr($str, $pos) =~ /\A($mb::x)/mosx) { }
657 94 94 if ($script_encoding =~ /\A (?: utf8 ) \z/msx) { }
0 94 elsif ($] >= 5.03) { }
94 0 elsif ($] >= 5.010001) { }
707 94 0 $] >= 5.014 ? :
2 48 if ($_[1] < -1 * scalar(@x) or 1 * scalar(@x) < $_[1])
8 8 $_[1] > 0 ? :
8 16 $_[1] < 0 ? :
16 0 $_[2] > 0 ? :
8 16 $_[2] < 0 ? :
4 0 $_[1] > 0 ? :
4 4 $_[1] < 0 ? :
16 32 if (@_ == 4) { }
24 8 elsif (@_ == 3) { }
764 206 42 defined $_[3] ? :
770 504 44 unless (exists $tr{$search[$i]})
773 404 100 if (defined $replacement[$i] and $replacement[$i] ne '') { }
64 36 elsif (exists $modifier{'d'}) { }
28 8 elsif (defined $replacement[-1] and $replacement[-1] ne '') { }
798 98 150 if (exists $modifier{'c'}) { }
801 44 54 if (exists $modifier{'s'}) { }
806 192 156 if (exists $tr{$x}) { }
813 114 42 if (exists $modifier{'d'}) { }
42 0 elsif (defined $replacement[-1]) { }
819 4 38 if (defined $last_transliterated and $replacement[-1] eq $last_transliterated) { }
837 198 84 if (exists $tr{$x}) { }
843 24 60 if (exists $modifier{'d'}) { }
60 0 elsif (defined $replacement[-1]) { }
860 76 74 if (exists $modifier{'s'}) { }
863 368 148 if (exists $tr{$x}) { }
866 84 284 if ($tr{$x} eq '') { }
144 140 elsif (defined $last_transliterated and $tr{$x} eq $last_transliterated) { }
889 366 124 if (exists $tr{$x}) { }
901 88 160 if (exists $modifier{'r'}) { }
915 47 1 if @_
917 432 476 unless {'a', 'A', 'b', 'B', 'c', 'C', 'd', 'D', 'e', 'E', 'f', 'F', 'g', 'G', 'h', 'H', 'i', 'I', 'j', 'J', 'k', 'K', 'l', 'L', 'm', 'M', 'n', 'N', 'o', 'O', 'p', 'P', 'q', 'Q', 'r', 'R', 's', 'S', 't', 'T', 'u', 'U', 'v', 'V', 'w', 'W', 'x', 'X', 'y', 'Y', 'z', 'Z'}->{$_}
924 1 1 if @_
925 2 0 if (/\A($mb::x)(.*)\z/s) { }
940 29 61 if ($mb::last_s_passed) { }
941 29 0 if (defined $_[0]) { }
948 0 0 if ($] >= 5.006) { }
964 61 0 if (defined $_[0]) { }
969 0 0 if ($] >= 5.006) { }
990 5 5 if ($mb::last_s_passed) { }
991 5 0 if (scalar @_ >= 1) { }
999 5 0 if (scalar @_ >= 1) { }
1014 9 9 if ($mb::last_s_passed) { }
1015 9 0 if (scalar @_ >= 1) { }
1023 9 0 if (scalar @_ >= 1) { }
1035 61 0 if (defined $&) { }
1036 8 53 if ($mb::last_s_passed) { }
1037 8 0 if (defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1) { }
1045 53 0 if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { }
1061 15 0 if (defined $&) { }
1062 8 7 if ($mb::last_s_passed) { }
1066 7 0 if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { }
1114 0 160 if (defined $classmate) { }
1196 174 176 if ($classmate =~ s/\A \^ //msx) { }
1207 10 12 if (my(@codepoint) = $_[0] =~ /\G($mb::x)/cgmsx) { }
1208 5 5 if (CORE::length $codepoint[$#codepoint] == 1) { }
1245 302 30 defined $_[0] ? :
1246 198 134 defined $_[1] ? :
1258 108 224 if ($pattern eq ' ')
1266 30 302 if (($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx) { }
1297 21 311 '' =~ / \A $pattern \z /msx ? :
1300 21 311 if (defined $_[2] and $_[2] >= 1) { }
1326 299 33 if (CORE::length $string > 0) { }
6 48 elsif (defined $_[2] and $_[2] >= 1) { }
1330 6 0 if (scalar @split < $_[2])
1336 305 27 if (not defined $_[2] or $_[2] == 0)
1345 199 133 if (wantarray) { }
1360 16 0 if @_
1361 0 16 if @_ and not wantarray
1362 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
6 2 elsif (-B $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1363 0 8 wantarray ? :
1366 0 0 wantarray ? :
1369 0 6 wantarray ? :
1372 0 0 if (-B "$_.")
1373 0 0 wantarray ? :
1376 0 2 wantarray ? :
1382 32 0 if @_
1383 0 32 if @_ and not wantarray
1384 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
14 2 elsif (-e $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1385 0 16 wantarray ? :
1388 0 0 wantarray ? :
1391 0 14 wantarray ? :
1394 0 0 if (-e "$_.")
1395 0 0 wantarray ? :
1398 0 2 wantarray ? :
1404 32 0 if @_
1405 0 32 if @_ and not wantarray
1406 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
14 2 elsif (-e $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1407 0 16 wantarray ? :
1410 0 0 wantarray ? :
1413 0 14 wantarray ? :
1416 0 0 if (-e "$_.")
1417 0 0 wantarray ? :
1420 0 2 wantarray ? :
1426 16 0 if @_
1427 0 16 if @_ and not wantarray
1428 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
2 6 elsif (-T $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1429 0 8 wantarray ? :
1432 0 0 wantarray ? :
1435 0 2 wantarray ? :
1438 0 0 if (-T "$_.")
1439 0 0 wantarray ? :
1442 0 6 wantarray ? :
1450 2 0 unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx)
1454 0 0 if (@_ == 0) { }
0 0 elsif ($script_encoding =~ /\A (?: sjis ) \z/msx and $_[0] =~ /\A $mb::x* [\x81-\x9F\xE0-\xFC][\x5C] \z/msx) { }
0 0 elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and $_[0] =~ /\A $mb::x* [\x81-\xFE][\x5C] \z/msx) { }
1458 0 0 if (defined wantarray) { }
1466 0 0 if (defined wantarray) { }
1481 16 0 if @_
1482 0 16 if @_ and not wantarray
1483 8 8 if ($_ eq '_') { }
2 6 elsif (-d $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1484 0 8 wantarray ? :
1487 0 2 wantarray ? :
1490 0 0 if (-d "$_.")
1491 0 0 wantarray ? :
1494 0 6 wantarray ? :
1500 19 0 if @_
1501 0 19 if @_ and not wantarray
1502 8 11 if ($_ eq '_') { }
0 11 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
9 2 elsif (-e $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1503 0 8 wantarray ? :
1506 0 0 wantarray ? :
1509 0 9 wantarray ? :
1512 0 0 if (-e "$_.")
1513 0 0 wantarray ? :
1516 0 2 wantarray ? :
1522 16 0 if @_
1523 0 16 if @_ and not wantarray
1524 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
5 3 elsif (-f $_) { }
0 6 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1525 0 8 wantarray ? :
1528 0 0 wantarray ? :
1531 0 5 wantarray ? :
1534 0 0 if (-f "$_.")
1535 0 0 wantarray ? :
1538 0 3 wantarray ? :
1544 5 0 if @_
1545 0 5 if ($_ eq '_') { }
0 5 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
2 3 elsif (-e $_) { }
0 6 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1555 0 0 if (-e "$_.")
1559 3 0 wantarray ? :
1566 2 0 if (defined $_[0]) { }
1574 2 0 if (not $OSNAME =~ /MSWin32/ && $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
0 0 elsif (-d $_[1]) { }
0 0 elsif (-d "$_[1].") { }
1589 32 0 if @_
1590 0 32 if @_ and not wantarray
1591 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
14 2 elsif (-r $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1592 0 16 wantarray ? :
1595 0 0 wantarray ? :
1598 0 14 wantarray ? :
1601 0 0 if (-r "$_.")
1602 0 0 wantarray ? :
1605 0 2 wantarray ? :
1611 16 0 if @_
1612 0 16 if @_ and not wantarray
1613 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
7 1 elsif (-e $_) { }
0 2 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1614 0 8 wantarray ? :
1617 0 0 wantarray ? :
1620 0 7 wantarray ? :
1623 0 0 if (-e "$_.")
1624 0 0 wantarray ? :
1627 0 1 wantarray ? :
1633 8 0 if @_
1634 3 5 if ($_ eq '_') { }
0 5 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
4 1 elsif (-e $_) { }
0 2 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1635 2 1 if (-e _)
1646 0 0 if (-e "$_.")
1650 2 0 wantarray ? :
1658 9 0 unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx)
1659 9 0 @_ ? :
1663 0 0 @_ ? :
1664 0 0 if (unlink $_) { }
0 0 elsif (unlink "$_.") { }
1677 32 0 if @_
1678 0 32 if @_ and not wantarray
1679 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
14 2 elsif (-w $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1680 0 16 wantarray ? :
1683 0 0 wantarray ? :
1686 0 14 wantarray ? :
1689 0 0 if (-w "$_.")
1690 0 0 wantarray ? :
1693 0 2 wantarray ? :
1699 36 0 if @_
1700 0 36 if @_ and not wantarray
1701 12 24 if ($_ eq '_') { }
0 24 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
2 22 elsif (-x $_) { }
0 44 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1702 0 12 wantarray ? :
1705 0 0 wantarray ? :
1708 0 2 wantarray ? :
1711 0 0 if (-x "$_.")
1712 0 0 wantarray ? :
1715 0 22 wantarray ? :
1721 16 0 if @_
1722 0 16 if @_ and not wantarray
1723 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
7 1 elsif (-e $_) { }
0 2 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1724 0 8 wantarray ? :
1727 0 0 wantarray ? :
1730 0 7 wantarray ? :
1733 0 0 if (-e "$_.")
1734 0 0 wantarray ? :
1737 0 1 wantarray ? :
1749 0 94 if ($OSNAME =~ /MSWin32/) { }
0 94 elsif ($OSNAME =~ /solaris/) { }
0 94 elsif ($OSNAME =~ /hpux/) { }
0 94 elsif ($OSNAME =~ /aix/) { }
1750 0 0 if (my($codepage) = `chcp` =~ /[^0123456789](932|936|949|950|951|20932|54936)\Z/) { }
1771 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1795 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1816 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1841 0 94 defined $ENV{'LANG'} ? :
0 94 defined $ENV{'LC_CTYPE'} ? :
0 94 defined $ENV{'LC_ALL'} ? :
1875 61 7102 if @_
1897 2 30314 if (/\G ^ ( (?: __END__ | __DATA__ ) $R .* ) \z/cgmsx) { }
1 30313 elsif (/\G ^ ( = [A-Za-z_][A-Za-z_0-9]* [\x00-\xFF]*? $R =cut \b [^\n]* $R ) /cgmsx) { }
8631 21682 elsif (/\G ( $R ) /cgmsx) { }
6039 15643 elsif (/\G ( [\t ]+ ) /cgmsx) { }
1095 14548 elsif (/\G ( ; ) /cgmsx) { }
463 14085 elsif (/\G ( [(\{\[] ) /cgmsx) { }
653 13432 elsif (/\G ( 0x [0-9A-Fa-f_]+ | 0b [01_]+ | 0 [0-7_]* | [1-9] [0-9_]* (?: \.[0-9_]* )? (?: [Ee] [0-9_]+ )? ) /cgmsx) { }
122 13310 elsif ($term and m[\G ( %= | % | &&= | && | &\.= | &\. | &= | & | \*\*= | \*\* | \*= | \* | \.\.\. | \.\. | \.= | \. | //= | // | /= | / | <=> | << | <= | < | \? ) ]cgmsx) { }
15 13295 elsif (/\G ( -[ASORWXbcgkloptu] ) \b /cgmsx) { }
291 13004 elsif (/\G -([BCMTdefrswxz]) \b /cgmsx) { }
1 13003 elsif (/\G ( \.\.\. ) /cgmsx) { }
2173 10830 elsif (/\G ( != | !~ | ! | \+\+ | \+= | \+ | , | -- | -= | -> | - | == | => | =~ | = | >> | >= | > | \\ | \^\.= | \^\. | \^= | \^ | (?: and | cmp | eq | ge | gt | isa | le | lt | ne | not | or | x | x= | xor ) \b | \|\|= | \|\| | \|\.= | \|\. | \|= | \| | ~~ | ~\. | ~= | ~ ) /cgmsx) { }
20 10810 elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
68 10742 elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
55 10687 elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { }
3 10684 elsif (/\G \@\{\^CAPTURE\} /cgmsx) { }
3 10681 elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { }
12 10669 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
22 10647 elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
12 10635 elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
14 10621 elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
4 10617 elsif (/\G (?: mb:: )? ( (?: do | eval ) \s* ) ( \{ ) /cgmsx) { }
11 10606 elsif (/\G ((?: \$[#] | [\$\@%&*] | (?:CORE::)? do | (?:CORE::)? eval | sub ) \s* ) ( \{ ) /cgmsx) { }
4 10602 elsif (/\G (?: mb:: )? ( do | eval ) \b /cgmsx) { }
2 10600 elsif (/\G ( CORE:: (?: do | eval ) ) \b /cgmsx) { }
3 10597 elsif (/\G ( [\$] [#] (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { }
592 10005 elsif (m(\G ( [\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | ^\{[A-Za-z_][A-Za-z_0-9]*\} | [0-9]+ | [!"#\$%&'()+,\-./:;<=>?\@\[\\\]\^_`|~] ) (?: \s* (?: \+\+ | -- ) )? ) )cgmsx) { }
109 9896 elsif (/\G ( [\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [_] ) ) /cgmsx) { }
11 9885 elsif (/\G ( [\%\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [!+\-] ) ) /cgmsx) { }
12 9873 elsif (/\G ( [&*] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { }
11 9862 elsif (/\G ( [#] [^\n]* ) /cgmsx) { }
1476 8386 elsif (/\G ( ' ) /cgmsx) { }
801 7585 elsif (/\G ( ["`] ) /cgmsx) { }
704 6881 elsif (m[\G ( [/] ) ]cgmsx) { }
1 6880 elsif (/\G ( [?] ) /cgmsx) { }
1 6879 elsif (/\G ( <<>> ) /cgmsx) { }
5 6874 elsif (/\G (<) ((?:(?!\s)$mb::x)*?) (>) /cgmsx) { }
130 6744 elsif (/\G ( qw | q ) \b /cgmsx) { }
67 6677 elsif (/\G ( qq ) \b /cgmsx) { }
65 6612 elsif (/\G ( qx ) \b /cgmsx) { }
1597 5015 elsif (/\G ( m | qr ) \b /cgmsx) { }
1709 3306 elsif (/\G ( s ) \b /cgmsx) { }
1250 2056 elsif (/\G (?: tr | y ) \b /cgmsx) { }
1 2055 elsif (/\G ( <<~ ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
1 2054 elsif (/\G ( <<~ \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
3 2051 elsif (/\G ( <<~ [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { }
3 2048 elsif (/\G ( <<~ [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { }
3 2045 elsif (/\G ( <<~ [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { }
1 2044 elsif (/\G ( << ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
1 2043 elsif (/\G ( << \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
4 2039 elsif (/\G ( << [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { }
3 2036 elsif (/\G ( << [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { }
3 2033 elsif (/\G ( << [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { }
10 2023 elsif (/\G ( sub \s+ [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* \s* ) /cgmsx) { }
2 2021 elsif (/\G ( while \s* \( \s* ) ( <<>> ) ( \s* \) ) /cgmsx) { }
8 2013 elsif (/\G ( while \s* \( \s* ) (<) ((?:(?!\s)$mb::x)*?) (>) ( \s* \) ) /cgmsx) { }
0 2013 elsif (/\G ( while \s* ) ( <<>> ) /cgmsx) { }
0 2013 elsif (/\G ( while \s* ) (<) ((?:(?!\s)$mb::x)*?) (>) /cgmsx) { }
25 1988 elsif (/\G ( (?: if | elsif | unless | while | until | given | when ) \s* ) ( \( ) /cgmsx) { }
1 1987 elsif (/\G ( else ) \b /cgmsx) { }
8 1979 elsif (/\G ( if | unless | while | until ) \b /cgmsx) { }
0 1979 elsif (/\G ( (?: foreach | for ) \s+ my \s* [\$] [A-Za-z_][A-Za-z_0-9]* ) ( \( ) /cgmsx) { }
0 1979 elsif (/\G ( (?: foreach | for ) \s* [\$] [\$]* (?: \{[A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)*\} | [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]* ) ) ) ( \( ) /cgmsx) { }
4 1975 elsif (/\G ( (?: foreach | for ) \s* ) ( \( ) /cgmsx) { }
0 1975 elsif (/\G ( CORE::split ) \b /cgmsx) { }
675 1300 elsif (/\G (?: mb:: )? ( split ) \b /cgmsx) { }
15 1285 elsif (/\G ( (?: lc | lcfirst | uc | ucfirst ) ) \b /cgmsx) { }
0 1285 elsif (/\G (?: mb:: )? ( require ) (?= \s+ [0-9] ) /cgmsx) { }
2 1283 elsif (/\G (?: mb:: )? ( require ) \b /cgmsx) { }
1 1282 elsif (/\G ( CORE::require ) \b /cgmsx) { }
50 1232 elsif (/\G ( (?: CORE:: | mb:: )? (?: chop | chr | getc | index | lc | lcfirst | length | ord | reverse | rindex | substr | uc | ucfirst ) ) \b /cgmsx) { }
2 1230 elsif (/\G ( mb:: (?: index_byte | rindex_byte ) ) \b /cgmsx) { }
313 917 elsif (/\G ( (?: CORE:: )? (?: _ | abs | chomp | cos | exp | fc | hex | int | __LINE__ | log | oct | pop | pos | quotemeta | rand | rmdir | shift | sin | sqrt | tell | time | umask | wantarray ) ) \b /cgmsx) { }
184 733 elsif (/\G ( chdir | lstat | opendir | stat | unlink ) \b /cgmsx) { }
336 397 elsif (/\G ( [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) { }
397 0 elsif (/\G ([\x00-\x7F]) /cgmsx) { }
0 0 elsif (/\G ($mb::x) /cgmsx) { }
1911 14 9 if ($quote_type eq 'qq') { }
9 0 elsif ($quote_type eq 'q') { }
2191 15 689 if ($modifier_i) { }
2204 0 1 if ($modifier_i) { }
2236 2 128 if (/\G ( [#] ) /cgmsx) { }
2 126 elsif (/\G ( ['] ) /cgmsx) { }
8 118 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
2 116 elsif (m[\G( [/] ) ]cgmsx) { }
48 68 elsif (/\G ( [\S] ) /cgmsx) { }
68 0 elsif (/\G ( \s+ ) /cgmsx) { }
2245 6 62 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
2 60 elsif (/\G ( ['] ) /cgmsx) { }
8 52 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
2 50 elsif (m[\G( [/] ) ]cgmsx) { }
50 0 elsif (/\G ( [\S] ) /cgmsx) { }
2258 1 66 if (/\G ( [#] ) /cgmsx) { }
1 65 elsif (/\G ( ['] ) /cgmsx) { }
6 59 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
1 58 elsif (m[\G( [/] ) ]cgmsx) { }
24 34 elsif (/\G ( [\S] ) /cgmsx) { }
34 0 elsif (/\G ( \s+ ) /cgmsx) { }
2267 3 31 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
1 30 elsif (/\G ( ['] ) /cgmsx) { }
4 26 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
1 25 elsif (m[\G( [/] ) ]cgmsx) { }
25 0 elsif (/\G ( [\S] ) /cgmsx) { }
2280 1 64 if (/\G ( [#] ) /cgmsx) { }
1 63 elsif (/\G ( ['] ) /cgmsx) { }
4 59 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
1 58 elsif (m[\G( [/] ) ]cgmsx) { }
24 34 elsif (/\G ( [\S] ) /cgmsx) { }
34 0 elsif (/\G ( \s+ ) /cgmsx) { }
2289 3 31 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
1 30 elsif (/\G ( ['] ) /cgmsx) { }
4 26 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
1 25 elsif (m[\G( [/] ) ]cgmsx) { }
25 0 elsif (/\G ( [\S] ) /cgmsx) { }
2303 2 1595 if (/\G ( [#] ) /cgmsx) { }
631 964 elsif (/\G ( ['] ) /cgmsx) { }
8 956 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
314 642 elsif (m[\G( [/] ) ]cgmsx) { }
530 112 elsif (/\G ( [:\@] ) /cgmsx) { }
44 68 elsif (/\G ( [\S] ) /cgmsx) { }
68 0 elsif (/\G ( \s+ ) /cgmsx) { }
2313 6 62 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
2 60 elsif (/\G ( ['] ) /cgmsx) { }
8 52 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
2 50 elsif (m[\G( [/] ) ]cgmsx) { }
4 46 elsif (/\G ( [:\@] ) /cgmsx) { }
46 0 elsif (/\G ( [\S] ) /cgmsx) { }
2325 21 1576 if ($modifier_i) { }
2342 1 1708 if (/\G ( [#] ) /cgmsx) { }
286 1422 elsif (/\G ( ['] ) /cgmsx) { }
240 1182 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
350 832 elsif (m[\G( [/] ) ]cgmsx) { }
528 304 elsif (/\G ( [:\@] ) /cgmsx) { }
22 282 elsif (/\G ( [\S] ) /cgmsx) { }
282 0 elsif (/\G ( \s+ ) /cgmsx) { }
2345 0 240 if (/\G ( [#] ) /cgmsx) { }
4 236 elsif (/\G ( ['] ) /cgmsx) { }
16 220 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
4 216 elsif (m[\G( [/] ) ]cgmsx) { }
96 120 elsif (/\G ( [\S] ) /cgmsx) { }
120 0 elsif (/\G ( \s+ ) /cgmsx) { }
2354 0 120 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
4 116 elsif (/\G ( ['] ) /cgmsx) { }
16 100 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
4 96 elsif (m[\G( [/] ) ]cgmsx) { }
96 0 elsif (/\G ( [\S] ) /cgmsx) { }
2371 12 270 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
1 269 elsif (/\G ( ['] ) /cgmsx) { }
244 25 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
1 24 elsif (m[\G( [/] ) ]cgmsx) { }
2 22 elsif (/\G ( [:\@] ) /cgmsx) { }
22 0 elsif (/\G ( [\S] ) /cgmsx) { }
2374 1 243 if (/\G ( [#] ) /cgmsx) { }
4 239 elsif (/\G ( ['] ) /cgmsx) { }
17 222 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
4 218 elsif (m[\G( [/] ) ]cgmsx) { }
96 122 elsif (/\G ( [\S] ) /cgmsx) { }
122 0 elsif (/\G ( \s+ ) /cgmsx) { }
2383 0 122 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
4 118 elsif (/\G ( ['] ) /cgmsx) { }
18 100 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
4 96 elsif (m[\G( [/] ) ]cgmsx) { }
96 0 elsif (/\G ( [\S] ) /cgmsx) { }
2405 9 1700 if (my $e = $modifier_cegr =~ tr/e//d) { }
300 1400 elsif ($replacement[0] =~ /\A ' /msx) { }
2 1398 elsif ($replacement[0] =~ /\A [#] /msx) { }
2426 18 1691 if ($modifier_i) { }
2441 2 1248 if (/\G ( [#] ) /cgmsx) { }
128 1120 elsif (/\G ( ['] ) /cgmsx) { }
480 640 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
36 604 elsif (m[\G( [/] ) ]cgmsx) { }
48 556 elsif (/\G ( [\S] ) /cgmsx) { }
556 0 elsif (/\G ( \s+ ) /cgmsx) { }
2444 0 480 if (/\G ( [#] ) /cgmsx) { }
8 472 elsif (/\G ( ['] ) /cgmsx) { }
32 440 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
8 432 elsif (m[\G( [/] ) ]cgmsx) { }
192 240 elsif (/\G ( [\S] ) /cgmsx) { }
240 0 elsif (/\G ( \s+ ) /cgmsx) { }
2453 0 240 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
8 232 elsif (/\G ( ['] ) /cgmsx) { }
32 200 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
8 192 elsif (m[\G( [/] ) ]cgmsx) { }
192 0 elsif (/\G ( [\S] ) /cgmsx) { }
2468 16 540 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
2 538 elsif (/\G ( ['] ) /cgmsx) { }
488 50 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
2 48 elsif (m[\G( [/] ) ]cgmsx) { }
48 0 elsif (/\G ( [\S] ) /cgmsx) { }
2471 2 486 if (/\G ( [#] ) /cgmsx) { }
8 478 elsif (/\G ( ['] ) /cgmsx) { }
34 444 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
8 436 elsif (m[\G( [/] ) ]cgmsx) { }
192 244 elsif (/\G ( [\S] ) /cgmsx) { }
244 0 elsif (/\G ( \s+ ) /cgmsx) { }
2480 0 244 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
8 236 elsif (/\G ( ['] ) /cgmsx) { }
36 200 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
8 192 elsif (m[\G( [/] ) ]cgmsx) { }
192 0 elsif (/\G ( [\S] ) /cgmsx) { }
2497 0 1250 if ($modifier_r) { }
20 1230 elsif ($modifier_not_r =~ /s/) { }
2647 294 1060 if (/\G ( \s+ ) /cgmsx) { }
385 675 elsif (/\G ( \( ) /cgmsx) { }
16 659 elsif (/\G ( \# .* \n ) /cgmx) { }
2665 22 653 if (m[\G ( [/] ) ]cgmsx) { }
609 44 elsif (/\G ( m | qr ) \b /cgmsx) { }
2682 16 6 unless ($modifier_not_cegir =~ /m/msx)
2687 6 16 if ($modifier_i) { }
2700 8 601 if (/\G ( [#] ) /cgmsx) { }
8 593 elsif (/\G ( ['] ) /cgmsx) { }
32 561 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
81 480 elsif (m[\G( [/] ) ]cgmsx) { }
16 464 elsif (/\G ( [:\@] ) /cgmsx) { }
184 280 elsif (/\G ( [\S] ) /cgmsx) { }
280 0 elsif (/\G ( \s+ ) /cgmsx) { }
2710 24 256 if (/\G ( [A-Za-z_0-9] ) /cgmsx) { }
8 248 elsif (/\G ( ['] ) /cgmsx) { }
32 216 elsif (/\G ( [\(\{\[\<] ) /cgmsx) { }
8 208 elsif (m[\G( [/] ) ]cgmsx) { }
16 192 elsif (/\G ( [:\@] ) /cgmsx) { }
192 0 elsif (/\G ( [\S] ) /cgmsx) { }
2722 605 4 unless ($modifier_not_cegir =~ /m/msx)
2727 16 593 if ($modifier_i) { }
2869 13 3581 if (/\G (\Q$open_bracket\E) /cgmsx) { }
559 3022 elsif (/\G (\Q$close_bracket\E) /cgmsx) { }
2879 546 13 if (--$nest_bracket <= 0)
2898 9 456 if (/\G ($endswith) /cgmsx) { }
456 0 elsif (/\G ($mb::x) /cgmsx) { }
2926 14 0 if (/\G ($endswith) /cgmsx) { }
0 0 elsif (/\G \\L \\u /cgmsx) { }
0 0 elsif (/\G \\U \\l /cgmsx) { }
0 0 elsif (/\G \\L /cgmsx) { }
0 0 elsif (/\G \\U /cgmsx) { }
0 0 elsif (/\G \\l /cgmsx) { }
0 0 elsif (/\G \\u /cgmsx) { }
0 0 elsif (/\G \\Q /cgmsx) { }
0 0 elsif (/\G \\E /cgmsx) { }
0 0 elsif (/\G \\o\{ (.*?) \} /cgmsx) { }
0 0 elsif (/\G \\x\{ (.*?) \} /cgmsx) { }
0 0 elsif (/\G (\\) ($mb::x) /cgmsx) { }
0 0 elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
0 0 elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
0 0 elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { }
0 0 elsif (/\G \@\{\^CAPTURE\} /cgmsx) { }
0 0 elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { }
0 0 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
0 0 elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
0 0 elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
0 0 elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
0 0 elsif (/\G ($mb::x) /cgmsx) { }
2928 14 0 if CORE::length $1 >= 2
3098 0 2266 if (/\G (\Q$open_bracket\E) /cgmsx) { }
1118 1148 elsif (/\G (\Q$close_bracket\E) /cgmsx) { }
0 1148 elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { }
3104 1118 0 if (--$nest_bracket <= 0)
3124 2990 4821 if (/\G (\Q$endswith\E) /cgmsx) { }
0 4821 elsif (/\G (\\ \Q$endswith\E) /cgmsx) { }
3142 0 5969 if (/\G (\\\\) /cgmsx) { }
5969 0 elsif (/\G ($mb::x) /cgmsx) { }
3170 0 317 if (/\G (\Q$open_bracket\E) /cgmsx) { }
85 232 elsif (/\G (\Q$close_bracket\E) /cgmsx) { }
0 232 elsif (/\G (\\L \\u) /cgmsx) { }
0 232 elsif (/\G (\\U \\l) /cgmsx) { }
0 232 elsif (/\G (\\L) /cgmsx) { }
0 232 elsif (/\G (\\U) /cgmsx) { }
0 232 elsif (/\G (\\l) /cgmsx) { }
0 232 elsif (/\G (\\u) /cgmsx) { }
0 232 elsif (/\G (\\Q) /cgmsx) { }
0 232 elsif (/\G (\\E) /cgmsx) { }
3176 85 0 if (--$nest_bracket <= 0) { }
3256 67 18 if (wantarray) { }
3272 2555 8369 if (/\G (\Q$endswith\E) /cgmsx) { }
0 8369 elsif (/\G (\\L \\u) /cgmsx) { }
0 8369 elsif (/\G (\\U \\l) /cgmsx) { }
0 8369 elsif (/\G (\\L) /cgmsx) { }
0 8369 elsif (/\G (\\U) /cgmsx) { }
0 8369 elsif (/\G (\\l) /cgmsx) { }
0 8369 elsif (/\G (\\u) /cgmsx) { }
0 8369 elsif (/\G (\\Q) /cgmsx) { }
0 8369 elsif (/\G (\\E) /cgmsx) { }
3275 0 2555 if CORE::length $1 >= 2
3348 1642 913 if (wantarray) { }
3364 0 8601 if (/\G ( \\o\{ (.*?) \} ) /cgmsx) { }
0 8601 elsif (/\G ( \\x\{ (.*?) \} ) /cgmsx) { }
188 8413 elsif (/\G ( (\\) ($mb::x) ) /cgmsx) { }
2 8411 elsif (/\G ( \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
2 8409 elsif (/\G ( \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
23 8386 elsif (/\G ( \$ ([1-9][0-9]*) ) /cgmsx) { }
0 8386 elsif (/\G ( \@\{\^CAPTURE\} ) /cgmsx) { }
0 8386 elsif (/\G (\$\{\^CAPTURE\}) \s* (\[) /cgmsx) { }
0 8386 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
0 8386 elsif (/\G ( \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
0 8386 elsif (/\G ( \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
0 8386 elsif (/\G ( \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
8386 0 elsif (/\G ($mb::x) /cgmsx) { }
3482 8601 0 if (wantarray) { }
3498 912 1130 if ($classmate =~ /\G \z /cgmsx) { }
0 1130 elsif ($classmate =~ /\G (\\ \]) /cgmsx) { }
0 1130 elsif ($classmate =~ /\G (\\\\) /cgmsx) { }
34 1096 elsif ($classmate =~ /\G \\D /cgmsx) { }
10 1086 elsif ($classmate =~ /\G \\H /cgmsx) { }
19 1067 elsif ($classmate =~ /\G \\S /cgmsx) { }
16 1051 elsif ($classmate =~ /\G \\V /cgmsx) { }
193 858 elsif ($classmate =~ /\G \\W /cgmsx) { }
6 852 elsif ($classmate =~ /\G \\b /cgmsx) { }
34 818 elsif ($classmate =~ /\G \\d /cgmsx) { }
10 808 elsif ($classmate =~ /\G \\h /cgmsx) { }
19 789 elsif ($classmate =~ /\G \\s /cgmsx) { }
16 773 elsif ($classmate =~ /\G \\v /cgmsx) { }
193 580 elsif ($classmate =~ /\G \\w /cgmsx) { }
18 562 elsif ($classmate =~ /\G \[:alnum:\] /cgmsx) { }
2 560 elsif ($classmate =~ /\G \[:alpha:\] /cgmsx) { }
2 558 elsif ($classmate =~ /\G \[:ascii:\] /cgmsx) { }
2 556 elsif ($classmate =~ /\G \[:blank:\] /cgmsx) { }
2 554 elsif ($classmate =~ /\G \[:cntrl:\] /cgmsx) { }
2 552 elsif ($classmate =~ /\G \[:digit:\] /cgmsx) { }
2 550 elsif ($classmate =~ /\G \[:graph:\] /cgmsx) { }
2 548 elsif ($classmate =~ /\G \[:lower:\] /cgmsx) { }
2 546 elsif ($classmate =~ /\G \[:print:\] /cgmsx) { }
2 544 elsif ($classmate =~ /\G \[:punct:\] /cgmsx) { }
2 542 elsif ($classmate =~ /\G \[:space:\] /cgmsx) { }
2 540 elsif ($classmate =~ /\G \[:upper:\] /cgmsx) { }
2 538 elsif ($classmate =~ /\G \[:word:\] /cgmsx) { }
2 536 elsif ($classmate =~ /\G \[:xdigit:\] /cgmsx) { }
2 534 elsif ($classmate =~ /\G \[:\^alnum:\] /cgmsx) { }
2 532 elsif ($classmate =~ /\G \[:\^alpha:\] /cgmsx) { }
2 530 elsif ($classmate =~ /\G \[:\^ascii:\] /cgmsx) { }
2 528 elsif ($classmate =~ /\G \[:\^blank:\] /cgmsx) { }
2 526 elsif ($classmate =~ /\G \[:\^cntrl:\] /cgmsx) { }
2 524 elsif ($classmate =~ /\G \[:\^digit:\] /cgmsx) { }
2 522 elsif ($classmate =~ /\G \[:\^graph:\] /cgmsx) { }
2 520 elsif ($classmate =~ /\G \[:\^lower:\] /cgmsx) { }
2 518 elsif ($classmate =~ /\G \[:\^print:\] /cgmsx) { }
2 516 elsif ($classmate =~ /\G \[:\^punct:\] /cgmsx) { }
2 514 elsif ($classmate =~ /\G \[:\^space:\] /cgmsx) { }
2 512 elsif ($classmate =~ /\G \[:\^upper:\] /cgmsx) { }
2 510 elsif ($classmate =~ /\G \[:\^word:\] /cgmsx) { }
2 508 elsif ($classmate =~ /\G \[:\^xdigit:\] /cgmsx) { }
0 508 elsif ($classmate =~ /\G \\o\{ (.*?) \} /cgmsx) { }
0 508 elsif ($classmate =~ /\G \\x\{ (.*?) \} /cgmsx) { }
12 496 elsif ($classmate =~ /\G (\\) ($mb::x) /cgmsx) { }
24 472 elsif ($classmate =~ /\G ((?:[\x20-\x7E]|\\[0-3][0-7][0-7]|\\x[0-9A-Fa-f][0-9A-Fa-f])-(?:[\x20-\x7E]|\\[0-3][0-7][0-7]|\\x[0-9A-Fa-f][0-9A-Fa-f])) /cgmsx) { }
1 471 elsif ($classmate =~ /\G (-) /cgmsx) { }
471 0 elsif ($classmate =~ /\G ($mb::x) /cgmsx) { }
3499 329 0 @sbcs && !@xbcs ? :
559 329 !@sbcs && @xbcs ? :
24 888 @sbcs && @xbcs ? :
3572 12 0 if (CORE::length $2 == 1) { }
3589 0 1 if ($^W)
3602 127 344 if (CORE::length $1 == 1) { }
3629 936 996 if (/\G (\Q$endswith\E) /cgmsx) { }
562 434 elsif (/\G \[ /cgmsx) { }
2 432 elsif (/\G \. /cgmsx) { }
2 430 elsif (/\G \\B /cgmsx) { }
12 418 elsif (/\G \\D /cgmsx) { }
4 414 elsif (/\G \\H /cgmsx) { }
2 412 elsif (/\G \\N /cgmsx) { }
2 410 elsif (/\G \\R /cgmsx) { }
7 403 elsif (/\G \\S /cgmsx) { }
6 397 elsif (/\G \\V /cgmsx) { }
65 332 elsif (/\G \\W /cgmsx) { }
2 330 elsif (/\G \\b /cgmsx) { }
12 318 elsif (/\G \\d /cgmsx) { }
4 314 elsif (/\G \\h /cgmsx) { }
7 307 elsif (/\G \\s /cgmsx) { }
6 301 elsif (/\G \\v /cgmsx) { }
65 236 elsif (/\G \\w /cgmsx) { }
0 236 elsif (/\G \\o\{ (.*?) \} /cgmsx) { }
0 236 elsif (/\G \\x\{ (.*?) \} /cgmsx) { }
0 236 elsif (/\G (\\ 0[1-7]*) /cgmsx) { }
0 236 elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { }
0 236 elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { }
236 0 elsif (/\G ($mb::x) /cgmsx) { }
3638 562 1196 if (/\G \] /cgmsx) { }
28 1168 elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { }
44 1124 elsif (/\G (\[:[a-z]*:\]) /cgmsx) { }
1124 0 elsif (/\G ($mb::x) /cgmsx) { }
3663 168 394 if ($classmate =~ s/\A \^ //msx) { }
3719 0 0 if ($operator eq 's') { }
3729 91 145 if (CORE::length $1 == 1) { }
3761 0 1133 if (/\G (\Q$open_bracket\E) /cgmsx) { }
564 569 elsif (/\G (\Q$close_bracket\E) /cgmsx) { }
0 569 elsif (/\G \\L \\u /cgmsx) { }
0 569 elsif (/\G \\U \\l /cgmsx) { }
0 569 elsif (/\G \\L /cgmsx) { }
0 569 elsif (/\G \\U /cgmsx) { }
0 569 elsif (/\G \\l /cgmsx) { }
0 569 elsif (/\G \\u /cgmsx) { }
0 569 elsif (/\G \\Q /cgmsx) { }
0 569 elsif (/\G \\E /cgmsx) { }
3766 564 0 if (--$nest_bracket <= 0) { }
3842 3142 4294 if (/\G (\Q$endswith\E) /cgmsx) { }
0 4294 elsif (/\G \\L \\u /cgmsx) { }
0 4294 elsif (/\G \\U \\l /cgmsx) { }
0 4294 elsif (/\G \\L /cgmsx) { }
0 4294 elsif (/\G \\U /cgmsx) { }
0 4294 elsif (/\G \\l /cgmsx) { }
0 4294 elsif (/\G \\u /cgmsx) { }
0 4294 elsif (/\G \\Q /cgmsx) { }
0 4294 elsif (/\G \\E /cgmsx) { }
3914 1484 3379 if (/\G \[ /cgmsx) { }
20 3359 elsif (/\G \. /cgmsx) { }
7 3352 elsif (/\G \\B /cgmsx) { }
18 3334 elsif (/\G \\D /cgmsx) { }
10 3324 elsif (/\G \\H /cgmsx) { }
8 3316 elsif (/\G \\N /cgmsx) { }
12 3304 elsif (/\G \\R /cgmsx) { }
14 3290 elsif (/\G \\S /cgmsx) { }
12 3278 elsif (/\G \\V /cgmsx) { }
71 3207 elsif (/\G \\W /cgmsx) { }
7 3200 elsif (/\G \\b /cgmsx) { }
17 3183 elsif (/\G \\d /cgmsx) { }
10 3173 elsif (/\G \\h /cgmsx) { }
18 3155 elsif (/\G \\s /cgmsx) { }
14 3141 elsif (/\G \\v /cgmsx) { }
70 3071 elsif (/\G \\w /cgmsx) { }
0 3071 elsif (/\G \\o\{ (.*?) \} /cgmsx) { }
0 3071 elsif (/\G \\x\{ (.*?) \} /cgmsx) { }
0 3071 elsif (/\G (\\ 0[1-7]*) /cgmsx) { }
0 3071 elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { }
24 3047 elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { }
5 3042 elsif (/\G (\\) ($mb::x) /cgmsx) { }
0 3042 elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
0 3042 elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
24 3018 elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { }
0 3018 elsif (/\G \@\{\^CAPTURE\} /cgmsx) { }
0 3018 elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { }
0 3018 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
0 3018 elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
0 3018 elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
0 3018 elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
3018 0 elsif (/\G ($mb::x) /cgmsx) { }
3917 1484 2914 if (/\G \] /cgmsx) { }
510 2404 elsif (/\G (\\) /cgmsx) { }
84 2320 elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { }
100 2220 elsif (/\G (\[:[a-z]*:\]) /cgmsx) { }
2220 0 elsif (/\G ($mb::x) /cgmsx) { }
3990 0 24 if ($operator eq 's') { }
4000 5 0 if (CORE::length $2 == 1) { }
4082 2457 561 if (CORE::length $1 == 1) { }
4109 0 4832 if (/\G [adlpu] /cgmsx) { }
76 4756 elsif (/\G ([i]) /cgmsx) { }
35 4721 elsif (/\G ([cegr]) /cgmsx) { }
79 4642 elsif (/\G ([a-z]) /cgmsx) { }
4134 0 1314 if (/\G ([r]) /cgmsx) { }
64 1250 elsif (/\G ([a-z]) /cgmsx) { }
4151 12 1218 $_[1] =~ /c/ ? :
4156 1230 1242 if ($searchlist =~ /\G \z /cgmsx) { }
0 1242 elsif ($searchlist =~ /\G (-) /cgmsx) { }
1242 0 elsif ($searchlist =~ /\G ($mb::x) /cgmsx) { }
4157 1092 0 @sbcs && !@xbcs ? :
136 1092 !@sbcs && @xbcs ? :
2 1228 @sbcs && @xbcs ? :
4168 0 0 if ($^W)
4181 1104 138 if (CORE::length $1 == 1) { }
4205 1135 0 if (CORE::length $_[0] >= 2) { }
4217 0 14355 if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { }
140 14215 elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { }
4239 0 11430 if ($codepoint eq '`') { }
38 11392 elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { }
457 10935 elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { }
4257 30 597 if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { }
108 489 elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { }