Branch Coverage

lib/mb.pm
Criterion Covered Total %
branch 1090 1620 67.2


line true false branch
20 95 0 if $INC[-1] eq '.'
22 0 95 if $] < 5.006
74 0 95 if (defined $_[0] and $_[0] =~ /\A [0-9] /msx)
75 0 0 if ($_[0] ne $mb::VERSION)
82 0 95 if (defined $_[0]) { }
84 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
109 0 0 if (scalar @ARGV == 0)
128 0 0 if (($encoding) = $ARGV[0] =~ /\A -e ( .+ ) \z/msx) { }
0 0 elsif ($ARGV[0] =~ /\A -e \z/msx) { }
129 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
139 0 0 if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | sjis | uhc | utf8 ) \z/msx) { }
154 0 0 if (not -e $script_oo or -M $script_oo <= -M $ARGV[0] or -M $script_oo <= -M '/root/.cpan/build/mb-0.08-0/t/../lib/mb.pm')
161 0 0 unless _open_r(my $fh, $ARGV[0])
167 0 0 if (mkdir "$ARGV[0].lock", 493) { }
168 0 0 unless _open_w(my $fh, ">$script_oo")
182 0 0 if ($OSNAME =~ /MSWin32/) { }
183 0 0 if ($0 =~ m( ([^\/\\]+)\.pm \z)imsx) { }
194 0 0 if ($0 =~ m[ ([^\/]+)\.pm \z]imsx) { }
207 0 0 / / ? :
248 12 6 @_ ? :
249 20 6 if (my(@x) = /\G$mb::x/g)
260 2 2 if @_
274 5 0 if (-f $prefix_file)
278 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.08-0/t/../lib/mb.pm')
283 0 5 unless _open_r(my $fh, $prefix_file)
289 5 0 if (mkdir "$prefix_file.lock", 493) { }
290 0 5 unless _open_w(my $fh, ">$prefix_file_oo")
316 8 0 @_ ? :
320 8 0 if (not $OSNAME =~ /MSWin32/) { }
332 0 0 if $pattern =~ /\G$mb::_anchor \& /msx
333 0 0 if $pattern =~ /\G$mb::_anchor \( /msx
334 0 0 if $pattern =~ /\G$mb::_anchor \) /msx
335 0 0 if $pattern =~ /\G$mb::_anchor \< /msx
336 0 0 if $pattern =~ /\G$mb::_anchor \> /msx
337 0 0 if $pattern =~ /\G$mb::_anchor \^ /msx
338 0 0 if $pattern =~ /\G$mb::_anchor \| /msx
342 0 0 if (my($dir) = $pattern =~ /\A ($mb::x*) \\ /msx) { }
353 0 22 unless mb::uc($a) cmp mb::uc($b)
359 1612 8 if @_
368 9 0 @_ ? :
369 0 9 if @_ and not wantarray
371 9 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) { }
372 6 3 if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx)
377 0 0 if ($getc =~ /\A [\xA1-\xFE] \z/msx)
382 0 0 if ($getc =~ /\A [\x81-\xFE] \z/msx)
387 0 0 if ($getc =~ /\A [\x81-\xFE] \z/msx)
389 0 0 if ($getc =~ /\A [\x81-\xFE] [\x30-\x39] \z/msx)
396 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) { }
409 0 9 wantarray ? :
416 4 4 if (@_ == 3) { }
422 4 4 if ($index == -1) { }
437 12 166 if (CORE::substr($str, $pos, CORE::length $substr) eq $substr)
438 8 4 if ($pos >= $position)
442 170 0 if (CORE::substr($str, $pos) =~ /\A($mb::x)/mosx) { }
455 10 1 if @_
457 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'}->{$_}
464 1 1 if @_
465 2 0 if (/\A($mb::x)(.*)\z/s) { }
476 12 4 if @_
483 2 2 if @_
485 4 0 if (/\A($mb::x)/)
496 5 0 if @_
499 0 5 if (/^[0-9]/) { }
500 0 0 if ($] < $_) { }
510 1 4 if (exists $INC{$_})
511 1 0 if $INC{$_}
518 4 0 if (-f $prefix_file)
522 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.08-0/t/../lib/mb.pm')
527 0 4 unless _open_r(my $fh, $prefix_file)
533 4 0 if (mkdir "$prefix_file.lock", 493) { }
534 0 4 unless _open_w(my $fh, ">$prefix_file_oo")
554 0 4 if ($@) { }
0 4 elsif (not $result) { }
574 2 2 if (wantarray) { }
586 4 4 if (@_ == 3) { }
592 4 4 if ($rindex == -1) { }
608 20 210 if (CORE::substr($str, $pos, CORE::length $substr) eq $substr)
611 230 0 if (CORE::substr($str, $pos) =~ /\A($mb::x)/mosx) { }
682 95 95 if ($script_encoding =~ /\A (?: utf8 ) \z/msx) { }
0 95 elsif ($] >= 5.03) { }
95 0 elsif ($] >= 5.010001) { }
732 95 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) { }
789 206 42 defined $_[3] ? :
795 504 44 unless (exists $tr{$search[$i]})
798 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 '') { }
823 98 150 if (exists $modifier{'c'}) { }
826 44 54 if (exists $modifier{'s'}) { }
831 192 156 if (exists $tr{$x}) { }
838 114 42 if (exists $modifier{'d'}) { }
42 0 elsif (defined $replacement[-1]) { }
844 4 38 if (defined $last_transliterated and $replacement[-1] eq $last_transliterated) { }
862 198 84 if (exists $tr{$x}) { }
868 24 60 if (exists $modifier{'d'}) { }
60 0 elsif (defined $replacement[-1]) { }
885 76 74 if (exists $modifier{'s'}) { }
888 368 148 if (exists $tr{$x}) { }
891 84 284 if ($tr{$x} eq '') { }
144 140 elsif (defined $last_transliterated and $tr{$x} eq $last_transliterated) { }
914 366 124 if (exists $tr{$x}) { }
926 88 160 if (exists $modifier{'r'}) { }
940 49 1 if @_
942 450 496 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'}->{$_}
949 1 1 if @_
950 2 0 if (/\A($mb::x)(.*)\z/s) { }
965 29 61 if ($mb::last_s_passed) { }
966 29 0 if (defined $_[0]) { }
973 0 0 if ($] >= 5.006) { }
989 61 0 if (defined $_[0]) { }
994 0 0 if ($] >= 5.006) { }
1015 5 5 if ($mb::last_s_passed) { }
1016 5 0 if (scalar @_ >= 1) { }
1024 5 0 if (scalar @_ >= 1) { }
1039 9 9 if ($mb::last_s_passed) { }
1040 9 0 if (scalar @_ >= 1) { }
1048 9 0 if (scalar @_ >= 1) { }
1060 61 0 if (defined $&) { }
1061 8 53 if ($mb::last_s_passed) { }
1062 8 0 if (defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1) { }
1070 53 0 if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { }
1086 15 0 if (defined $&) { }
1087 8 7 if ($mb::last_s_passed) { }
1091 7 0 if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { }
1139 0 160 if (defined $classmate) { }
1221 174 176 if ($classmate =~ s/\A \^ //msx) { }
1232 10 12 if (my(@codepoint) = $_[0] =~ /\G($mb::x)/cgmsx) { }
1233 5 5 if (CORE::length $codepoint[$#codepoint] == 1) { }
1270 302 30 defined $_[0] ? :
1271 198 134 defined $_[1] ? :
1283 108 224 if ($pattern eq ' ')
1291 30 302 if (($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx) { }
1322 21 311 '' =~ / \A $pattern \z /msx ? :
1325 21 311 if (defined $_[2] and $_[2] >= 1) { }
1351 299 33 if (CORE::length $string > 0) { }
6 48 elsif (defined $_[2] and $_[2] >= 1) { }
1355 6 0 if (scalar @split < $_[2])
1361 305 27 if (not defined $_[2] or $_[2] == 0)
1370 199 133 if (wantarray) { }
1385 16 0 if @_
1386 0 16 if @_ and not wantarray
1387 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
4 4 elsif (-B $_) { }
0 8 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1388 0 8 wantarray ? :
1391 0 0 wantarray ? :
1394 0 4 wantarray ? :
1397 0 0 if (-B "$_.")
1398 0 0 wantarray ? :
1401 0 4 wantarray ? :
1407 32 0 if @_
1408 0 32 if @_ and not wantarray
1409 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
10 6 elsif (-e $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1410 0 16 wantarray ? :
1413 0 0 wantarray ? :
1416 0 10 wantarray ? :
1419 0 0 if (-e "$_.")
1420 0 0 wantarray ? :
1423 0 6 wantarray ? :
1429 32 0 if @_
1430 0 32 if @_ and not wantarray
1431 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
10 6 elsif (-e $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1432 0 16 wantarray ? :
1435 0 0 wantarray ? :
1438 0 10 wantarray ? :
1441 0 0 if (-e "$_.")
1442 0 0 wantarray ? :
1445 0 6 wantarray ? :
1451 16 0 if @_
1452 0 16 if @_ and not wantarray
1453 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) { }
1454 0 8 wantarray ? :
1457 0 0 wantarray ? :
1460 0 2 wantarray ? :
1463 0 0 if (-T "$_.")
1464 0 0 wantarray ? :
1467 0 6 wantarray ? :
1475 2 0 unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx)
1479 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) { }
1483 0 0 if (defined wantarray) { }
1491 0 0 if (defined wantarray) { }
1506 14 0 if @_
1507 0 14 if @_ and not wantarray
1508 7 7 if ($_ eq '_') { }
1 6 elsif (-d $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1509 0 7 wantarray ? :
1512 0 1 wantarray ? :
1515 0 0 if (-d "$_.")
1516 0 0 wantarray ? :
1519 0 6 wantarray ? :
1525 17 0 if @_
1526 0 17 if @_ and not wantarray
1527 7 10 if ($_ eq '_') { }
0 10 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
8 2 elsif (-e $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1528 0 7 wantarray ? :
1531 0 0 wantarray ? :
1534 0 8 wantarray ? :
1537 0 0 if (-e "$_.")
1538 0 0 wantarray ? :
1541 0 2 wantarray ? :
1547 14 0 if @_
1548 0 14 if @_ and not wantarray
1549 7 7 if ($_ eq '_') { }
0 7 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
5 2 elsif (-f $_) { }
0 4 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1550 0 7 wantarray ? :
1553 0 0 wantarray ? :
1556 0 5 wantarray ? :
1559 0 0 if (-f "$_.")
1560 0 0 wantarray ? :
1563 0 2 wantarray ? :
1569 5 0 if @_
1570 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) { }
1580 0 0 if (-e "$_.")
1584 3 0 wantarray ? :
1591 2 0 if (defined $_[0]) { }
1599 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].") { }
1614 32 0 if @_
1615 0 32 if @_ and not wantarray
1616 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
10 6 elsif (-r $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1617 0 16 wantarray ? :
1620 0 0 wantarray ? :
1623 0 10 wantarray ? :
1626 0 0 if (-r "$_.")
1627 0 0 wantarray ? :
1630 0 6 wantarray ? :
1636 16 0 if @_
1637 0 16 if @_ and not wantarray
1638 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
5 3 elsif (-e $_) { }
0 6 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1639 0 8 wantarray ? :
1642 0 0 wantarray ? :
1645 0 5 wantarray ? :
1648 0 0 if (-e "$_.")
1649 0 0 wantarray ? :
1652 0 3 wantarray ? :
1658 8 0 if @_
1659 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) { }
1660 2 1 if (-e _)
1671 0 0 if (-e "$_.")
1675 2 0 wantarray ? :
1683 89 0 unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx)
1684 89 0 @_ ? :
1688 0 0 @_ ? :
1689 0 0 if (unlink $_) { }
0 0 elsif (unlink "$_.") { }
1702 32 0 if @_
1703 0 32 if @_ and not wantarray
1704 16 16 if ($_ eq '_') { }
0 16 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
10 6 elsif (-w $_) { }
0 12 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1705 0 16 wantarray ? :
1708 0 0 wantarray ? :
1711 0 10 wantarray ? :
1714 0 0 if (-w "$_.")
1715 0 0 wantarray ? :
1718 0 6 wantarray ? :
1724 36 0 if @_
1725 0 36 if @_ and not wantarray
1726 12 24 if ($_ eq '_') { }
0 24 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
0 24 elsif (-x $_) { }
0 48 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1727 0 12 wantarray ? :
1730 0 0 wantarray ? :
1733 0 0 wantarray ? :
1736 0 0 if (-x "$_.")
1737 0 0 wantarray ? :
1740 0 24 wantarray ? :
1746 16 0 if @_
1747 0 16 if @_ and not wantarray
1748 8 8 if ($_ eq '_') { }
0 8 elsif (defined fileno(my $fh = &Symbol::qualify_to_ref($_))) { }
5 3 elsif (-e $_) { }
0 6 elsif ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { }
1749 0 8 wantarray ? :
1752 0 0 wantarray ? :
1755 0 5 wantarray ? :
1758 0 0 if (-e "$_.")
1759 0 0 wantarray ? :
1762 0 3 wantarray ? :
1774 0 95 if ($OSNAME =~ /MSWin32/) { }
0 95 elsif ($OSNAME =~ /solaris/) { }
0 95 elsif ($OSNAME =~ /hpux/) { }
0 95 elsif ($OSNAME =~ /aix/) { }
1775 0 0 if (my($codepage) = `chcp` =~ /[^0123456789](932|936|949|950|951|20932|54936)\Z/) { }
1796 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1820 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1841 0 0 defined $ENV{'LANG'} ? :
0 0 defined $ENV{'LC_CTYPE'} ? :
0 0 defined $ENV{'LC_ALL'} ? :
1866 0 95 defined $ENV{'LANG'} ? :
0 95 defined $ENV{'LC_CTYPE'} ? :
0 95 defined $ENV{'LC_ALL'} ? :
1900 61 7100 if @_
1921 2 38171 if (/\G ^ ( (?: __END__ | __DATA__ ) $R .* ) \z/cgmsx) { }
1 38170 elsif (/\G ^ ( = [A-Za-z_][A-Za-z_0-9]* [\x00-\xFF]*? $R =cut \b [^\n]* $R ) /cgmsx) { }
8533 29637 elsif (/\G (?= $R ) /cgmsx) { }
5809 23828 elsif (/\G ( [\t ]+ ) /cgmsx) { }
997 22831 elsif (/\G ( ; ) /cgmsx) { }
458 22373 elsif (/\G ( [(\{\[] ) /cgmsx) { }
654 21719 elsif (/\G ( 0x [0-9A-Fa-f_]+ | 0b [01_]+ | 0 [0-7_]* | [1-9] [0-9_]* (?: \.[0-9_]* )? (?: [Ee] [0-9_]+ )? ) /cgmsx) { }
122 21597 elsif ($term and m[\G ( %= | % | &&= | && | &\.= | &\. | &= | & | \*\*= | \*\* | \*= | \* | \.\.\. | \.\. | \.= | \. | //= | // | /= | / | <=> | << | <= | < | \? ) ]cgmsx) { }
15 21582 elsif (/\G ( -[ASORWXbcgkloptu] ) \b /cgmsx) { }
285 21297 elsif (/\G -([BCMTdefrswxz]) \b /cgmsx) { }
1 21296 elsif (/\G ( \.\.\. ) /cgmsx) { }
2156 19140 elsif (/\G ( != | !~ | ! | \+\+ | \+= | \+ | , | -- | -= | -> | - | == | => | =~ | = | >> | >= | > | \\ | \^\.= | \^\. | \^= | \^ | (?: and | cmp | eq | ge | gt | isa | le | lt | ne | not | or | x | x= | xor ) \b | \|\|= | \|\| | \|\.= | \|\. | \|= | \| | ~~ | ~\. | ~= | ~ ) /cgmsx) { }
20 19120 elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
68 19052 elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
55 18997 elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { }
3 18994 elsif (/\G \@\{\^CAPTURE\} /cgmsx) { }
3 18991 elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { }
12 18979 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
22 18957 elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
12 18945 elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
14 18931 elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
4 18927 elsif (/\G (?: mb:: )? ( (?: do | eval ) \s* ) ( \{ ) /cgmsx) { }
11 18916 elsif (/\G ((?: \$[#] | [\$\@%&*] | (?:CORE::)? do | (?:CORE::)? eval | sub ) \s* ) ( \{ ) /cgmsx) { }
4 18912 elsif (/\G (?: mb:: )? ( do | eval ) \b /cgmsx) { }
2 18910 elsif (/\G ( CORE:: (?: do | eval ) ) \b /cgmsx) { }
3 18907 elsif (/\G ( [\$] [#] (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { }
593 18314 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 18205 elsif (/\G ( [\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [_] ) ) /cgmsx) { }
11 18194 elsif (/\G ( [\%\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [!+\-] ) ) /cgmsx) { }
12 18182 elsif (/\G ( [&*] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { }
11 18171 elsif (/\G ( [#] [^\n]* ) /cgmsx) { }
1476 16695 elsif (/\G ( ' ) /cgmsx) { }
725 15970 elsif (/\G ( ["`] ) /cgmsx) { }
704 15266 elsif (m[\G ( [/] ) ]cgmsx) { }
1 15265 elsif (/\G ( [?] ) /cgmsx) { }
1 15264 elsif (/\G ( <<>> ) /cgmsx) { }
5 15259 elsif (/\G (<) ((?:(?!\s)$mb::x)*?) (>) /cgmsx) { }
130 15129 elsif (/\G ( qw | q ) \b /cgmsx) { }
67 15062 elsif (/\G ( qq ) \b /cgmsx) { }
65 14997 elsif (/\G ( qx ) \b /cgmsx) { }
1597 13400 elsif (/\G ( m | qr ) \b /cgmsx) { }
1709 11691 elsif (/\G ( s ) \b /cgmsx) { }
1250 10441 elsif (/\G (?: tr | y ) \b /cgmsx) { }
1 10440 elsif (/\G ( <<~ ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
1 10439 elsif (/\G ( <<~ \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
3 10436 elsif (/\G ( <<~ [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { }
3 10433 elsif (/\G ( <<~ [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { }
3 10430 elsif (/\G ( <<~ [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { }
1 10429 elsif (/\G ( << ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
1 10428 elsif (/\G ( << \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { }
4 10424 elsif (/\G ( << [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { }
3 10421 elsif (/\G ( << [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { }
3 10418 elsif (/\G ( << [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { }
10 10408 elsif (/\G ( sub \s+ [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* \s* ) /cgmsx) { }
2 10406 elsif (/\G ( while \s* \( \s* ) ( <<>> ) ( \s* \) ) /cgmsx) { }
8 10398 elsif (/\G ( while \s* \( \s* ) (<) ((?:(?!\s)$mb::x)*?) (>) ( \s* \) ) /cgmsx) { }
0 10398 elsif (/\G ( while \s* ) ( <<>> ) /cgmsx) { }
0 10398 elsif (/\G ( while \s* ) (<) ((?:(?!\s)$mb::x)*?) (>) /cgmsx) { }
25 10373 elsif (/\G ( (?: if | elsif | unless | while | until | given | when ) \s* ) ( \( ) /cgmsx) { }
1 10372 elsif (/\G ( else ) \b /cgmsx) { }
8 10364 elsif (/\G ( if | unless | while | until ) \b /cgmsx) { }
0 10364 elsif (/\G ( (?: foreach | for ) \s+ my \s* [\$] [A-Za-z_][A-Za-z_0-9]* ) ( \( ) /cgmsx) { }
0 10364 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 10360 elsif (/\G ( (?: foreach | for ) \s* ) ( \( ) /cgmsx) { }
0 10360 elsif (/\G ( CORE::split ) \b /cgmsx) { }
675 9685 elsif (/\G (?: mb:: )? ( split ) \b /cgmsx) { }
15 9670 elsif (/\G ( (?: lc | lcfirst | uc | ucfirst ) ) \b /cgmsx) { }
0 9670 elsif (/\G (?: mb:: )? ( require ) (?= \s+ [0-9] ) /cgmsx) { }
2 9668 elsif (/\G (?: mb:: )? ( require ) \b /cgmsx) { }
1 9667 elsif (/\G ( CORE::require ) \b /cgmsx) { }
0 9667 elsif (/\G ( mb::getc (?: \s* \( )+ \s* \) ) /cgmsx) { }
0 9667 elsif (/\G ( mb::getc (?: \s* \( )+ \s* \$ ) /cgmsx) { }
0 9667 elsif (/\G ( mb::getc (?: \s* \( )+ \s* ) /cgmsx) { }
50 9617 elsif (/\G ( (?: CORE:: | mb:: )? (?: chop | chr | getc | index | lc | lcfirst | length | ord | reverse | rindex | substr | uc | ucfirst ) ) \b /cgmsx) { }
2 9615 elsif (/\G ( mb:: (?: index_byte | rindex_byte ) ) \b /cgmsx) { }
252 9363 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 9179 elsif (/\G ( chdir | lstat | opendir | stat | unlink ) \b /cgmsx) { }
272 8907 elsif (/\G ( [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) { }
8907 0 elsif (/\G ([\x00-\x7F]) /cgmsx) { }
0 0 elsif (/\G ($mb::x) /cgmsx) { }
1934 14 9 if ($quote_type eq 'qq') { }
9 0 elsif ($quote_type eq 'q') { }
2214 15 689 if ($modifier_i) { }
2227 0 1 if ($modifier_i) { }
2259 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) { }
2268 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) { }
2281 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) { }
2290 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 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) { }
2312 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) { }
2326 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) { }
2336 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) { }
2348 21 1576 if ($modifier_i) { }
2365 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) { }
2368 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) { }
2377 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) { }
2394 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) { }
2397 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) { }
2406 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) { }
2428 9 1700 if (my $e = $modifier_cegr =~ tr/e//d) { }
300 1400 elsif ($replacement[0] =~ /\A ' /msx) { }
2 1398 elsif ($replacement[0] =~ /\A [#] /msx) { }
2449 18 1691 if ($modifier_i) { }
2464 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) { }
2467 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) { }
2476 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) { }
2491 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) { }
2494 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) { }
2503 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) { }
2520 0 1250 if ($modifier_r) { }
20 1230 elsif ($modifier_not_r =~ /s/) { }
2670 294 1060 if (/\G ( \s+ ) /cgmsx) { }
385 675 elsif (/\G ( \( ) /cgmsx) { }
16 659 elsif (/\G ( \# .* \n ) /cgmx) { }
2688 22 653 if (m[\G ( [/] ) ]cgmsx) { }
609 44 elsif (/\G ( m | qr ) \b /cgmsx) { }
2705 16 6 unless ($modifier_not_cegir =~ /m/msx)
2710 6 16 if ($modifier_i) { }
2723 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) { }
2733 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) { }
2745 605 4 unless ($modifier_not_cegir =~ /m/msx)
2750 16 593 if ($modifier_i) { }
2912 13 3219 if (/\G (\Q$open_bracket\E) /cgmsx) { }
554 2665 elsif (/\G (\Q$close_bracket\E) /cgmsx) { }
2922 541 13 if (--$nest_bracket <= 0)
2941 9 456 if (/\G ( $R $endswith ) /cgmsx) { }
456 0 elsif (/\G ($mb::x) /cgmsx) { }
2969 14 0 if (/\G ( $R $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) { }
3140 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) { }
3146 1118 0 if (--$nest_bracket <= 0)
3166 2990 4821 if (/\G (\Q$endswith\E) /cgmsx) { }
0 4821 elsif (/\G (\\ \Q$endswith\E) /cgmsx) { }
3184 0 5969 if (/\G (\\\\) /cgmsx) { }
5969 0 elsif (/\G ($mb::x) /cgmsx) { }
3212 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) { }
3218 85 0 if (--$nest_bracket <= 0) { }
3298 67 18 if (wantarray) { }
3314 2479 7609 if (/\G (\Q$endswith\E) /cgmsx) { }
0 7609 elsif (/\G (\\L \\u) /cgmsx) { }
0 7609 elsif (/\G (\\U \\l) /cgmsx) { }
0 7609 elsif (/\G (\\L) /cgmsx) { }
0 7609 elsif (/\G (\\U) /cgmsx) { }
0 7609 elsif (/\G (\\l) /cgmsx) { }
0 7609 elsif (/\G (\\u) /cgmsx) { }
0 7609 elsif (/\G (\\Q) /cgmsx) { }
0 7609 elsif (/\G (\\E) /cgmsx) { }
3317 0 2479 if CORE::length $1 >= 2
3390 1642 837 if (wantarray) { }
3406 0 7841 if (/\G ( \\o\{ (.*?) \} ) /cgmsx) { }
0 7841 elsif (/\G ( \\x\{ (.*?) \} ) /cgmsx) { }
188 7653 elsif (/\G ( (\\) ($mb::x) ) /cgmsx) { }
2 7651 elsif (/\G ( \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { }
2 7649 elsif (/\G ( \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { }
23 7626 elsif (/\G ( \$ ([1-9][0-9]*) ) /cgmsx) { }
0 7626 elsif (/\G ( \@\{\^CAPTURE\} ) /cgmsx) { }
0 7626 elsif (/\G (\$\{\^CAPTURE\}) \s* (\[) /cgmsx) { }
0 7626 elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { }
0 7626 elsif (/\G ( \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { }
0 7626 elsif (/\G ( \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { }
0 7626 elsif (/\G ( \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { }
7626 0 elsif (/\G ($mb::x) /cgmsx) { }
3524 7841 0 if (wantarray) { }
3540 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) { }
3541 329 0 @sbcs && !@xbcs ? :
559 329 !@sbcs && @xbcs ? :
24 888 @sbcs && @xbcs ? :
3614 12 0 if (CORE::length $2 == 1) { }
3631 0 1 if ($^W)
3644 127 344 if (CORE::length $1 == 1) { }
3671 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) { }
3680 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) { }
3705 168 394 if ($classmate =~ s/\A \^ //msx) { }
3761 0 0 if ($operator eq 's') { }
3771 91 145 if (CORE::length $1 == 1) { }
3803 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) { }
3808 564 0 if (--$nest_bracket <= 0) { }
3884 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) { }
3956 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) { }
3959 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) { }
4032 0 24 if ($operator eq 's') { }
4042 5 0 if (CORE::length $2 == 1) { }
4124 2457 561 if (CORE::length $1 == 1) { }
4151 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) { }
4176 0 1314 if (/\G ([r]) /cgmsx) { }
64 1250 elsif (/\G ([a-z]) /cgmsx) { }
4193 12 1218 $_[1] =~ /c/ ? :
4198 1230 1242 if ($searchlist =~ /\G \z /cgmsx) { }
0 1242 elsif ($searchlist =~ /\G (-) /cgmsx) { }
1242 0 elsif ($searchlist =~ /\G ($mb::x) /cgmsx) { }
4199 1092 0 @sbcs && !@xbcs ? :
136 1092 !@sbcs && @xbcs ? :
2 1228 @sbcs && @xbcs ? :
4210 0 0 if ($^W)
4223 1104 138 if (CORE::length $1 == 1) { }
4247 1135 0 if (CORE::length $_[0] >= 2) { }
4259 0 13595 if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { }
96 13499 elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { }
4281 0 10670 if ($codepoint eq '`') { }
38 10632 elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { }
413 10219 elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { }
4299 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) { }