Branch Coverage

blib/lib/Egb18030.pm
Criterion Covered Total %
branch 1360 4684 29.0


line true false branch
32 0 389 if ($^X =~ / jperl /imosx)
55 0 389 if ($@)
68 0 0 if ($] < 5.006) { }
79 0 1152 if (ref $name) { }
0 1152 elsif (&Egb18030::index($name, '::') >= 0) { }
0 1152 elsif (&Egb18030::index($name, q[']) >= 0) { }
0 1152 elsif ($name =~ /\A \^ [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_]+ \z/x) { }
0 1152 elsif ($name =~ /\A (?: ARGV | ARGVOUT | ENV | INC | SIG | STDERR | STDIN | STDOUT ) \z/x) { }
0 1152 elsif ($name =~ /\A [^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz] \z/x) { }
1152 0 elsif (defined $_[1]) { }
116 0 1152 if (defined $_[1]) { }
199 0 5 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx)
204 0 0 if (/\A (?:$Egb18030::q_char)*? [ ] /mosx) { }
0 0 elsif (/\A (?:$Egb18030::q_char)*? [*?] /mosx) { }
205 0 0 if (my(@glob) = &Egb18030::glob(qq["$_"])) { }
215 0 0 if (my(@glob) = &Egb18030::glob($_)) { }
635 0 0 unless (defined $pattern)
640 0 0 unless (defined $string)
641 0 0 if (defined $_) { }
652 0 0 if ($string eq '') { }
0 0 elsif ($pattern eq ' ') { }
655 0 0 if (wantarray) { }
661 0 0 if $^W
679 0 0 if (not defined $limit) { }
688 0 0 if (length $string > 32766)
689 0 0 if ($string =~ /\A [\x00-\x7F]+ \z/mosx) { }
0 0 elsif (defined $Egb18030::q_char_SADAHIRO_Tomoyuki_2002_01_17) { }
698 0 0 if (not defined $limit or $limit <= 0) { }
0 0 elsif ($limit > 0) { }
705 0 0 if ('' =~ / \A $pattern \z /msx) { }
744 0 0 if ('' =~ / \A $pattern \z /msx) { }
749 0 0 if ($string =~ s/\A((?:$Egb18030::q_char)+?)$pattern//m)
762 0 0 if ($string =~ s/\A((?:$Egb18030::q_char)*?)$pattern//m)
772 0 0 if (length $string > 0)
777 0 0 if (not defined $_[2] or $_[2] == 0)
784 0 0 if (wantarray) { }
790 0 0 if $^W
806 0 0 if ($pattern =~ /\(\?\^? ([\-A-Za-z]+) :/mosx)
813 0 0 if ($modifier =~ /x/mosx) { }
848 0 0 if ($modifier =~ /r/mosx)
849 0 0 if ($bind_operator =~ / !~ /mosx)
860 0 0 unless (exists $tr{$searchlist[$i]})
861 0 0 if (defined $replacementlist[$i] and $replacementlist[$i] ne '') { }
0 0 elsif ($modifier =~ /d/mosx) { }
0 0 elsif (defined $replacementlist[-1] and $replacementlist[-1] ne '') { }
878 0 0 if ($modifier =~ /c/mosx) { }
880 0 0 if (not exists $tr{$char}) { }
881 0 0 if (defined $replacementlist[0])
885 0 0 if ($modifier =~ /s/mosx)
899 0 0 if (exists $tr{$char}) { }
902 0 0 if ($modifier =~ /s/mosx)
915 0 0 if ($modifier =~ /r/mosx) { }
920 0 0 if ($bind_operator =~ / !~ /mosx) { }
935 0 0 if (@_ == 0) { }
960 0 59292 if (substr($str, $pos, length $substr) eq $substr)
961 0 0 if ($pos >= $position)
965 59292 0 if (substr($str, $pos) =~ /\A ($Egb18030::q_char) /mosx) { }
986 0 0 if (substr($str, $pos, length $substr) eq $substr)
989 0 0 if (substr($str, $pos) =~ /\A ($Egb18030::q_char) /mosx) { }
1003 0 0 if (@_) { }
1005 0 0 if (@_ and wantarray) { }
1028 0 0 if (@_) { }
1030 0 0 if (@_ and wantarray) { }
1031 0 0 defined $lc{$_} ? :
1034 0 0 defined $lc{$_} ? :
1047 0 0 defined $lc{$_} ? :
1054 0 0 if (@_) { }
1056 0 0 if (@_ and wantarray) { }
1079 2968 0 if (@_) { }
1081 0 2968 if (@_ and wantarray) { }
1082 0 0 defined $uc{$_} ? :
1085 648 2320 defined $uc{$_} ? :
1098 0 0 defined $uc{$_} ? :
1105 3271 0 if (@_) { }
1107 0 3271 if (@_ and wantarray) { }
1108 0 0 defined $fc{$_} ? :
1111 1493 1778 defined $fc{$_} ? :
1124 0 0 defined $fc{$_} ? :
1138 0 0 if ($last_s_matched and $_[0] =~ /\A (?>[1-9][0-9]*) \z/mosx)
1181 0 0 unless defined $char[$i]
1184 0 0 if ($char[$i] eq '[') { }
0 0 elsif ($char[$i] eq '[^') { }
0 0 elsif (my $char = classic_character_class($char[$i])) { }
0 0 elsif ($char[$i] =~ /\A [\x00-\xFF] \z/mosx) { }
1189 0 0 if ($char[$i + 1] eq ']')
1194 0 0 if (++$i > $#char)
1197 0 0 if ($char[$i] eq ']')
1203 0 0 if (do { $char =~ /\A ([\x80-\xFF].*) ($metachar) \z/mosx }) { }
0 0 elsif ($char =~ /\A [.|)] \z/mosx) { }
1230 0 0 if ($char[$i + 1] eq ']')
1235 0 0 if (++$i > $#char)
1238 0 0 if ($char[$i] eq ']')
1244 0 0 if (do { $char =~ /\A ([\x80-\xFF].*) ($metachar) \z/mosx }) { }
0 0 elsif ($char =~ /\A [.|)] \z/mosx) { }
1274 0 0 if ($uc ne $fc)
1275 0 0 if (length $fc == 1) { }
1287 0 0 unless defined $char[$i]
1289 0 0 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ($metachar) \z/mosx }) { }
0 0 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
1299 0 0 unless ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx)
1405 0 0 if (@chars1)
1408 0 0 if (exists $range_tr{'1'})
1422 0 0 if (@chars2)
1425 0 0 if (exists $range_tr{'2'})
1441 0 0 if (@chars3)
1444 0 0 if (exists $range_tr{'3'})
1462 0 0 if (@chars4)
1465 0 0 if (exists $range_tr{'4'})
1492 0 0 if (/\G (\\0?55|\\x2[Dd]|\\-) /cgmosx) { }
0 0 elsif (/\G \\ ([0-7]{2,3}) /cgmosx) { }
0 0 elsif (/\G \\x ([0-9A-Fa-f]{1,2}) /cgmosx) { }
0 0 elsif (/\G \\c ([\x40-\x5F]) /cgmosx) { }
0 0 elsif (/\G (\\ [0nrtfbae]) /cgmosx) { }
0 0 elsif (/\G \\ ($Egb18030::q_char) /cgmosx) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgmosx) { }
1530 0 0 if ($char[$i] eq '\\-') { }
0 0 elsif ($char[$i] eq '-') { }
1534 0 0 if (0 < $i and $i < $#char)
1545 0 0 if (length $char[$i - 1] > length $char[$i + 1] or $char[$i - 1] gt $char[$i + 1])
1550 0 0 if (length $char[$i - 1] == 1) { }
0 0 elsif (length $char[$i - 1] == 2) { }
0 0 elsif (length $char[$i - 1] == 3) { }
0 0 elsif (length $char[$i - 1] == 4) { }
1551 0 0 if (length $char[$i + 1] == 1) { }
0 0 elsif (length $char[$i + 1] == 2) { }
0 0 elsif (length $char[$i + 1] == 3) { }
0 0 elsif (length $char[$i + 1] == 4) { }
1552 0 0 if $char[$i - 1] le $_
1574 0 0 if (length $char[$i + 1] == 2) { }
0 0 elsif (length $char[$i + 1] == 3) { }
0 0 elsif (length $char[$i + 1] == 4) { }
1575 0 0 if $char[$i - 1] le $_
1591 0 0 if (length $char[$i + 1] == 3) { }
0 0 elsif (length $char[$i + 1] == 4) { }
1592 0 0 if $char[$i - 1] le $_
1603 0 0 if (length $char[$i + 1] == 4) { }
1604 0 0 if $char[$i - 1] le $_
1624 0 604 if (scalar @_ == 0) { }
302 302 elsif (scalar @_ == 1) { }
302 0 elsif (scalar @_ == 2) { }
1631 0 302 if ($_[0] > $_[1]) { }
0 302 elsif ($_[0] == $_[1]) { }
0 302 elsif ($_[0] + 1 == $_[1]) { }
1655 414 262 if ($length == 1) { }
262 0 elsif ($length == 2) { }
0 0 elsif ($length == 3) { }
0 0 elsif ($length == 4) { }
1659 0 414 if ($a1 > $z1)
1663 20 394 if ($a1 == $z1) { }
0 394 elsif ($a1 + 1 == $z1) { }
1679 222 40 if ($a1 == $z1) { }
40 0 elsif ($a1 + 1 == $z1) { }
1710 0 0 if ($a1 == $z1) { }
0 0 elsif ($a1 + 1 == $z1) { }
1711 0 0 if ($a2 == $z2) { }
0 0 elsif ($a2 + 1 == $z2) { }
1764 0 0 if ($a1 == $z1) { }
0 0 elsif ($a1 + 1 == $z1) { }
1765 0 0 if ($a2 == $z2) { }
0 0 elsif ($a2 + 1 == $z2) { }
1766 0 0 if ($a3 == $z3) { }
0 0 elsif ($a3 + 1 == $z3) { }
1851 0 525 unless (exists $range_tr{$length})
1868 0 1050 if ($max lt $first) { }
20 1030 elsif ($min le $first and $first le $max and $max le $last) { }
0 1030 elsif ($min eq $first and $max eq $last) { }
20 1010 elsif ($first le $min and $max le $last) { }
596 414 elsif ($min le $first and $last le $max) { }
40 374 elsif ($first le $min and $min le $last and $last le $max) { }
374 0 elsif ($last lt $min) { }
1939 264 502 $modifier =~ /i/mosx ? :
1945 530 2142 if ($char[$i] eq '-') { }
0 2142 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
0 2142 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
0 2142 elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
0 2142 elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { }
0 2142 elsif ($char[$i] =~ /\A \\ ([0-7]{2,3}) \z/mosx) { }
206 1936 elsif ($char[$i] =~ /\A \\x ([0-9A-Fa-f]{1,2}) \z/mosx) { }
0 1936 elsif ($char[$i] =~ /\A \\c ([\x40-\x5F]) \z/mosx) { }
33 1903 elsif ($char[$i] =~ /\A (\\ [0nrtfbaedswDSWHVhvR]) \z/mosx) { }
8 1895 elsif ($ignorecase and $char[$i] =~ /\A ( \[\: \^? (?:lower|upper) :\] ) \z/mosx) { }
70 1825 elsif ($char[$i] =~ /\A ( \[\: \^? (?:alnum|alpha|ascii|blank|cntrl|digit|graph|lower|print|punct|space|upper|word|xdigit) :\] ) \z/mosx) { }
7 1818 elsif ($char[$i] =~ /\A \\ ($Egb18030::q_char) \z/mosx) { }
1946 505 25 if (0 < $i and $i < $#char)
2088 505 1662 if (defined $char[$i + 1] and $char[$i + 1] eq '...') { }
505 1157 elsif ($char[$i] eq '...') { }
764 393 elsif ($char[$i] =~ /\A [\x00-\xFF] \z/mosx) { }
0 393 elsif ($char[$i] =~ /\A (?: \\h ) \z/mosx) { }
0 393 elsif ($char[$i] =~ /\A (?: \\v ) \z/mosx) { }
2 391 elsif ($char[$i] =~ /\A (?: \\d | \\s | \\w ) \z/mosx) { }
2097 0 505 if (length $char[$i - 1] > length $char[$i + 1]) { }
485 20 elsif (length $char[$i - 1] == length $char[$i + 1]) { }
2101 0 485 if ($char[$i - 1] gt $char[$i + 1])
2111 485 40 if ($length == length $char[$i - 1] and $length == length $char[$i + 1]) { }
20 20 elsif ($length == length $char[$i - 1]) { }
0 20 elsif (length $char[$i - 1] < $length and $length < length $char[$i + 1]) { }
20 0 elsif ($length == length $char[$i + 1]) { }
2134 394 131 if ($length == 1) { }
2147 192 572 if ($modifier =~ /i/mosx) { }
2150 192 0 if ($uc ne $fc) { }
2151 192 0 if (length $fc == 1) { }
2192 0 1372 if ($_ eq '...') { }
8 1364 elsif (/\A \n \z/mosx) { }
8 1356 elsif (/\A \r \z/mosx) { }
1 1355 elsif (/\A ([\x00-\x20\x7F-\xFF]) \z/mosx) { }
939 416 elsif (/\A [\x00-\xFF] \z/mosx) { }
2209 307 386 if (/\A ([\x80-\xFF].*) ([\x00-\xFF]) \z/mosx)
2283 392 135 if (scalar @singleoctet >= 1)
2286 107 285 if ($modifier =~ /i/mosx)
2294 457 589 if ($uc eq $fc) { }
2298 589 0 if (length $fc == 1) { }
2309 192 80 if ($_ ne '')
2316 1577 25815 if (exists $singleoctet_ignorecase{$ord}) { }
2325 214 11198 if (ref $range)
2326 5 209 if (scalar @{$range;} == 1) { }
0 209 elsif (scalar @{$range;} == 2) { }
2344 131 396 if (scalar @multipleoctet >= 2) { }
2365 128 111 if ($modifier =~ /i/mosx)
2373 457 589 if ($uc eq $fc) { }
2377 589 0 if (length $fc == 1) { }
2388 192 80 if ($_ ne '')
2395 1577 31191 if (exists $singleoctet_ignorecase{$ord}) { }
2404 214 11198 if (ref $range)
2405 5 209 if (scalar @{$range;} == 1) { }
0 209 elsif (scalar @{$range;} == 2) { }
2419 114 125 if (scalar @multipleoctet >= 1) { }
2420 70 44 if (scalar @singleoctet >= 1) { }
2432 125 0 if (scalar @singleoctet >= 1) { }
2550 0 0 @_ ? :
2552 0 0 if ($c == 0) { }
2572 0 0 if ($c == 0) { }
2593 0 0 unless (eval "Egb18030::$filetest(\$file)")
2597 0 0 unless (eval " $filetest _ ")
2609 0 0 if @_
2610 0 0 if @_ and not wantarray
2612 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2613 0 0 wantarray ? :
2627 0 0 wantarray ? :
2630 0 0 wantarray ? :
2633 0 0 if (-d "$_/.") { }
2634 0 0 wantarray ? :
2643 0 0 if (_open_r($fh, $_))
2645 0 0 unless close $fh
2646 0 0 wantarray ? :
2650 0 0 wantarray ? :
2658 0 0 if @_
2659 0 0 if @_ and not wantarray
2661 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2662 0 0 wantarray ? :
2665 0 0 wantarray ? :
2668 0 0 wantarray ? :
2671 0 0 if (-d "$_/.") { }
2672 0 0 wantarray ? :
2676 0 0 if (_open_a($fh, $_))
2678 0 0 unless close $fh
2679 0 0 wantarray ? :
2683 0 0 wantarray ? :
2691 0 0 if @_
2692 0 0 if @_ and not wantarray
2694 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2695 0 0 wantarray ? :
2698 0 0 wantarray ? :
2701 0 0 wantarray ? :
2704 0 0 if (-d "$_/.") { }
2705 0 0 wantarray ? :
2709 0 0 if (_open_r($fh, $_))
2711 0 0 unless close $fh
2715 0 0 wantarray ? :
2718 0 0 wantarray ? :
2726 0 0 if @_
2727 0 0 if @_ and not wantarray
2729 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2730 0 0 wantarray ? :
2733 0 0 wantarray ? :
2736 0 0 wantarray ? :
2739 0 0 if (-d "$_/.") { }
2740 0 0 wantarray ? :
2744 0 0 if (_open_r($fh, $_))
2746 0 0 unless close $fh
2747 0 0 wantarray ? :
2751 0 0 wantarray ? :
2759 0 0 if @_
2760 0 0 if @_ and not wantarray
2762 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2763 0 0 wantarray ? :
2766 0 0 wantarray ? :
2769 0 0 wantarray ? :
2772 0 0 if (-d "$_/.") { }
2773 0 0 wantarray ? :
2777 0 0 if (_open_r($fh, $_))
2779 0 0 unless close $fh
2780 0 0 wantarray ? :
2784 0 0 wantarray ? :
2792 0 0 if @_
2793 0 0 if @_ and not wantarray
2795 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2796 0 0 wantarray ? :
2799 0 0 wantarray ? :
2802 0 0 wantarray ? :
2805 0 0 if (-d "$_/.") { }
2806 0 0 wantarray ? :
2810 0 0 if (_open_a($fh, $_))
2812 0 0 unless close $fh
2813 0 0 wantarray ? :
2817 0 0 wantarray ? :
2825 0 0 if @_
2826 0 0 if @_ and not wantarray
2828 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2829 0 0 wantarray ? :
2832 0 0 wantarray ? :
2835 0 0 wantarray ? :
2838 0 0 if (-d "$_/.") { }
2839 0 0 wantarray ? :
2843 0 0 if (_open_r($fh, $_))
2845 0 0 unless close $fh
2849 0 0 wantarray ? :
2852 0 0 wantarray ? :
2860 0 0 if @_
2861 0 0 if @_ and not wantarray
2863 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2864 0 0 wantarray ? :
2867 0 0 wantarray ? :
2870 0 0 wantarray ? :
2873 0 0 if (-d "$_/.") { }
2874 0 0 wantarray ? :
2878 0 0 if (_open_r($fh, $_))
2880 0 0 unless close $fh
2881 0 0 wantarray ? :
2885 0 0 wantarray ? :
2893 768 0 if @_
2894 0 768 if @_ and not wantarray
2899 0 768 if ($_ eq '_') { }
0 768 elsif (defined &Egb18030::telldir($fh)) { }
0 768 elsif (defined fileno $fh) { }
0 768 elsif (-e $_) { }
0 768 elsif (_MSWin32_5Cended_path($_)) { }
2900 0 0 wantarray ? :
2905 0 0 wantarray ? :
2910 0 0 wantarray ? :
2914 0 0 wantarray ? :
2917 0 0 if (-d "$_/.") { }
2918 0 0 wantarray ? :
2922 0 0 if (_open_r($fh, $_))
2924 0 0 unless close $fh
2925 0 0 wantarray ? :
2929 0 768 wantarray ? :
2937 0 0 if @_
2938 0 0 if @_ and not wantarray
2940 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2941 0 0 wantarray ? :
2944 0 0 wantarray ? :
2947 0 0 wantarray ? :
2950 0 0 if (-d "$_/.") { }
2951 0 0 wantarray ? :
2955 0 0 if (_open_r($fh, $_))
2957 0 0 unless close $fh
2958 0 0 wantarray ? :
2962 0 0 wantarray ? :
2970 0 0 if @_
2971 0 0 if @_ and not wantarray
2973 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
2974 0 0 wantarray ? :
2977 0 0 wantarray ? :
2980 0 0 wantarray ? :
2983 0 0 if (-d "$_/.") { }
2984 0 0 wantarray ? :
2988 0 0 if (_open_r($fh, $_))
2990 0 0 unless close $fh
2991 0 0 wantarray ? :
2995 0 0 wantarray ? :
3003 0 0 if @_
3004 0 0 if @_ and not wantarray
3006 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3007 0 0 wantarray ? :
3010 0 0 wantarray ? :
3013 0 0 wantarray ? :
3016 0 0 if (-d "$_/.") { }
3017 0 0 wantarray ? :
3021 0 0 if (_open_r($fh, $_))
3023 0 0 unless close $fh
3024 0 0 wantarray ? :
3028 0 0 wantarray ? :
3036 0 0 if @_
3037 0 0 if @_ and not wantarray
3039 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3040 0 0 wantarray ? :
3045 0 0 wantarray ? :
3048 0 0 wantarray ? :
3051 0 0 wantarray ? :
3053 0 0 wantarray ? :
3061 0 0 if @_
3062 0 0 if @_ and not wantarray
3064 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3065 0 0 wantarray ? :
3068 0 0 wantarray ? :
3071 0 0 wantarray ? :
3074 0 0 if (-d "$_/.") { }
3075 0 0 wantarray ? :
3079 0 0 if (_open_r($fh, $_))
3081 0 0 unless close $fh
3082 0 0 wantarray ? :
3086 0 0 wantarray ? :
3094 0 0 if @_
3095 0 0 if @_ and not wantarray
3097 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3098 0 0 wantarray ? :
3101 0 0 wantarray ? :
3104 0 0 wantarray ? :
3107 0 0 if (-d "$_/.") { }
3108 0 0 wantarray ? :
3112 0 0 if (_open_r($fh, $_))
3114 0 0 unless close $fh
3115 0 0 wantarray ? :
3119 0 0 wantarray ? :
3127 0 0 if @_
3128 0 0 if @_ and not wantarray
3130 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3131 0 0 wantarray ? :
3134 0 0 wantarray ? :
3137 0 0 wantarray ? :
3140 0 0 if (-d "$_/.") { }
3141 0 0 wantarray ? :
3145 0 0 if (_open_r($fh, $_))
3147 0 0 unless close $fh
3148 0 0 wantarray ? :
3152 0 0 wantarray ? :
3160 0 0 if @_
3161 0 0 if @_ and not wantarray
3163 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3164 0 0 wantarray ? :
3167 0 0 wantarray ? :
3170 0 0 wantarray ? :
3173 0 0 if (-d "$_/.") { }
3174 0 0 wantarray ? :
3178 0 0 if (_open_r($fh, $_))
3180 0 0 unless close $fh
3181 0 0 wantarray ? :
3185 0 0 wantarray ? :
3193 0 0 if @_
3194 0 0 if @_ and not wantarray
3196 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3197 0 0 wantarray ? :
3200 0 0 wantarray ? :
3203 0 0 wantarray ? :
3206 0 0 if (-d "$_/.") { }
3207 0 0 wantarray ? :
3211 0 0 if (_open_r($fh, $_))
3213 0 0 unless close $fh
3214 0 0 wantarray ? :
3218 0 0 wantarray ? :
3226 0 0 if @_
3227 0 0 if @_ and not wantarray
3229 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3230 0 0 wantarray ? :
3233 0 0 wantarray ? :
3236 0 0 wantarray ? :
3239 0 0 if (-d "$_/.") { }
3240 0 0 wantarray ? :
3244 0 0 if (_open_r($fh, $_))
3246 0 0 unless close $fh
3247 0 0 wantarray ? :
3251 0 0 wantarray ? :
3259 0 0 if @_
3260 0 0 if @_ and not wantarray
3262 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3263 0 0 wantarray ? :
3266 0 0 wantarray ? :
3269 0 0 wantarray ? :
3272 0 0 if (-d "$_/.") { }
3273 0 0 wantarray ? :
3277 0 0 if (_open_r($fh, $_))
3279 0 0 unless close $fh
3280 0 0 wantarray ? :
3284 0 0 wantarray ? :
3292 0 0 if @_
3293 0 0 if @_ and not wantarray
3295 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif ($] =~ /^5\.008/mosx) { }
3296 0 0 wantarray ? :
3299 0 0 wantarray ? :
3302 0 0 wantarray ? :
3304 0 0 wantarray ? :
3312 0 0 if @_
3319 0 0 if (@_ and not wantarray)
3326 0 0 if (defined fileno $fh) { }
3328 0 0 if (defined &Egb18030::telldir($fh))
3329 0 0 wantarray ? :
3344 0 0 if (sysread $fh, my $block, 512) { }
3350 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
3367 0 0 if (-d $_ or -d "$_/.")
3368 0 0 wantarray ? :
3372 0 0 if (_open_r($fh, $_)) { }
3375 0 0 wantarray ? :
3377 0 0 if (sysread $fh, my $block, 512) { }
3378 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
3391 0 0 unless close $fh
3394 0 0 wantarray ? :
3402 0 0 if @_
3403 0 0 if @_ and not wantarray
3407 0 0 if (defined fileno $fh) { }
3409 0 0 if (defined &Egb18030::telldir($fh))
3410 0 0 wantarray ? :
3415 0 0 if (sysread $fh, my $block, 512) { }
3416 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
3433 0 0 if (-d $_ or -d "$_/.")
3434 0 0 wantarray ? :
3438 0 0 if (_open_r($fh, $_)) { }
3441 0 0 wantarray ? :
3443 0 0 if (sysread $fh, my $block, 512) { }
3444 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
3457 0 0 unless close $fh
3460 0 0 wantarray ? :
3468 0 0 if @_
3469 0 0 if @_ and not wantarray
3471 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3472 0 0 wantarray ? :
3475 0 0 wantarray ? :
3478 0 0 wantarray ? :
3481 0 0 if (-d "$_/.") { }
3482 0 0 wantarray ? :
3486 0 0 if (_open_r($fh, $_))
3488 0 0 unless close $fh
3490 0 0 wantarray ? :
3494 0 0 wantarray ? :
3502 0 0 if @_
3503 0 0 if @_ and not wantarray
3505 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3506 0 0 wantarray ? :
3509 0 0 wantarray ? :
3512 0 0 wantarray ? :
3515 0 0 if (-d "$_/.") { }
3516 0 0 wantarray ? :
3520 0 0 if (_open_r($fh, $_))
3522 0 0 unless close $fh
3524 0 0 wantarray ? :
3528 0 0 wantarray ? :
3536 0 0 if @_
3537 0 0 if @_ and not wantarray
3539 0 0 if ($_ eq '_') { }
0 0 elsif (defined fileno(my $fh = &qualify_to_ref($_))) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3540 0 0 wantarray ? :
3543 0 0 wantarray ? :
3546 0 0 wantarray ? :
3549 0 0 if (-d "$_/.") { }
3550 0 0 wantarray ? :
3554 0 0 if (_open_r($fh, $_))
3556 0 0 unless close $fh
3558 0 0 wantarray ? :
3562 0 0 wantarray ? :
3572 0 0 unless (eval "Egb18030::${filetest}_")
3576 0 0 unless (eval " $filetest _ ")
3588 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3589 0 0 -r _ ? :
3592 0 0 if (-d "$_/.") { }
3593 0 0 -r _ ? :
3597 0 0 if (_open_r($fh, $_))
3599 0 0 unless close $fh
3600 0 0 $r ? :
3655 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3656 0 0 -w _ ? :
3659 0 0 if (-d "$_/.") { }
3660 0 0 -w _ ? :
3664 0 0 if (_open_a($fh, $_))
3666 0 0 unless close $fh
3667 0 0 $w ? :
3679 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3680 0 0 -x _ ? :
3683 0 0 if (-d "$_/.") { }
3684 0 0 -x _ ? :
3688 0 0 if (_open_r($fh, $_))
3690 0 0 unless close $fh
3705 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3706 0 0 -O _ ? :
3709 0 0 if (-d "$_/.") { }
3710 0 0 -O _ ? :
3714 0 0 if (_open_r($fh, $_))
3716 0 0 unless close $fh
3717 0 0 $o ? :
3729 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3730 0 0 -R _ ? :
3733 0 0 if (-d "$_/.") { }
3734 0 0 -R _ ? :
3738 0 0 if (_open_r($fh, $_))
3740 0 0 unless close $fh
3741 0 0 $R ? :
3753 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3754 0 0 -W _ ? :
3757 0 0 if (-d "$_/.") { }
3758 0 0 -W _ ? :
3762 0 0 if (_open_a($fh, $_))
3764 0 0 unless close $fh
3765 0 0 $W ? :
3777 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3778 0 0 -X _ ? :
3781 0 0 if (-d "$_/.") { }
3782 0 0 -X _ ? :
3786 0 0 if (_open_r($fh, $_))
3788 0 0 unless close $fh
3803 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3804 0 0 -o _ ? :
3807 0 0 if (-d "$_/.") { }
3808 0 0 -o _ ? :
3812 0 0 if (_open_r($fh, $_))
3814 0 0 unless close $fh
3815 0 0 $O ? :
3827 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3831 0 0 if (-d "$_/.") { }
3836 0 0 if (_open_r($fh, $_))
3838 0 0 unless close $fh
3839 0 0 $e ? :
3851 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3852 0 0 -z _ ? :
3855 0 0 if (-d "$_/.") { }
3856 0 0 -z _ ? :
3860 0 0 if (_open_r($fh, $_))
3862 0 0 unless close $fh
3863 0 0 $z ? :
3875 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3879 0 0 if (-d "$_/.") { }
3884 0 0 if (_open_r($fh, $_))
3886 0 0 unless close $fh
3899 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3900 0 0 -f _ ? :
3903 0 0 if (-d "$_/.") { }
3908 0 0 if (_open_r($fh, $_))
3910 0 0 unless close $fh
3911 0 0 $f ? :
3923 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3924 0 0 -d _ ? :
3927 0 0 -d "$_/." ? :
3937 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3938 0 0 -l _ ? :
3941 0 0 if (-d "$_/.") { }
3942 0 0 -l _ ? :
3946 0 0 if (_open_r($fh, $_))
3948 0 0 unless close $fh
3949 0 0 $l ? :
3961 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3962 0 0 -p _ ? :
3965 0 0 if (-d "$_/.") { }
3966 0 0 -p _ ? :
3970 0 0 if (_open_r($fh, $_))
3972 0 0 unless close $fh
3973 0 0 $p ? :
3985 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
3986 0 0 -S _ ? :
3989 0 0 if (-d "$_/.") { }
3990 0 0 -S _ ? :
3994 0 0 if (_open_r($fh, $_))
3996 0 0 unless close $fh
3997 0 0 $S ? :
4009 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4010 0 0 -b _ ? :
4013 0 0 if (-d "$_/.") { }
4014 0 0 -b _ ? :
4018 0 0 if (_open_r($fh, $_))
4020 0 0 unless close $fh
4021 0 0 $b ? :
4033 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4034 0 0 -c _ ? :
4037 0 0 if (-d "$_/.") { }
4038 0 0 -c _ ? :
4042 0 0 if (_open_r($fh, $_))
4044 0 0 unless close $fh
4045 0 0 $c ? :
4057 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4058 0 0 -u _ ? :
4061 0 0 if (-d "$_/.") { }
4062 0 0 -u _ ? :
4066 0 0 if (_open_r($fh, $_))
4068 0 0 unless close $fh
4069 0 0 $u ? :
4081 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4082 0 0 -g _ ? :
4085 0 0 if (-d "$_/.") { }
4086 0 0 -g _ ? :
4090 0 0 if (_open_r($fh, $_))
4092 0 0 unless close $fh
4093 0 0 $g ? :
4105 0 0 if ($] =~ /^5\.008/mosx)
4106 0 0 wantarray ? :
4108 0 0 wantarray ? :
4118 0 0 if (-d $_ or -d "$_/.")
4122 0 0 if (_open_r($fh, $_)) { }
4128 0 0 if (sysread $fh, my $block, 512) { }
4129 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
4142 0 0 unless close $fh
4154 0 0 if (-d $_ or -d "$_/.")
4158 0 0 if (_open_r($fh, $_)) { }
4164 0 0 if (sysread $fh, my $block, 512) { }
4165 0 0 if ($block =~ /[\000\377]/mosx) { }
0 0 elsif (Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. * 10 > length $block) { }
4178 0 0 unless close $fh
4188 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4192 0 0 if (-d "$_/.") { }
4197 0 0 if (_open_r($fh, $_))
4199 0 0 unless close $fh
4213 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4217 0 0 if (-d "$_/.") { }
4222 0 0 if (_open_r($fh, $_))
4224 0 0 unless close $fh
4238 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4242 0 0 if (-d "$_/.") { }
4247 0 0 if (_open_r($fh, $_))
4249 0 0 unless close $fh
4263 0 0 if (wantarray) { }
4282 0 0 if (wantarray) { }
4310 0 0 unless defined $expr
4321 0 0 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
4327 0 0 $1 ? :
4331 0 0 unless defined $cxix
4332 0 0 unless exists $iter{$cxix}
4335 0 0 if ($iter{$cxix} == 0)
4340 0 0 if (wantarray) { }
4345 0 0 if ($iter{$cxix} = scalar @{$entries{$cxix};}) { }
4368 0 0 unless defined $expr
4369 0 0 if $expr eq ''
4378 0 0 if ($expr =~ /\A " ((?:$Egb18030::q_char)*?) " \z/mosx)
4380 0 0 if ($cond eq 'd') { }
4381 0 0 if (&d($expr))
4386 0 0 if (&e($expr))
4395 0 0 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx)
4396 0 0 if ($expr =~ s( \A ((?:[A-Za-z]:)?) ([^\x81-\xFE/\\]|[\x81-\xFE][^\x30-\x39]|[\x81-\xFE][\x30-\x39][\x81-\xFE][\x00-\xFF]) )[$1./$2]mosx)
4401 0 0 if (($head, $tail) = _parse_path($expr, $pathsep))
4402 0 0 if ($tail eq '')
4406 0 0 if ($head =~ / \A (?:$Egb18030::q_char)*? [*?] /mosx)
4407 0 0 if (@globdir = _do_glob('d', $head))
4412 0 0 if ($head eq '' or $head =~ /\A [A-Za-z]: \z/mosx)
4419 0 0 unless ($expr =~ / \A (?:$Egb18030::q_char)*? [*?] /mosx)
4420 0 0 if ($head eq '.')
4423 0 0 if ($head ne '' and ($head =~ / \G ($Egb18030::q_char) /gmosx)[-1] ne $pathsep)
4427 0 0 if ($cond eq 'd') { }
4428 0 0 if (&d($head))
4433 0 0 if (&e($head))
4439 0 0 unless &Egb18030::opendir(\*DIR, $head)
4443 0 0 if ($head eq '.')
4446 0 0 if ($head ne '' and ($head =~ / \G ($Egb18030::q_char) /gmosx)[-1] ne $pathsep)
4459 0 0 if ($char eq '*') { }
0 0 elsif ($char eq '?') { }
0 0 elsif ((my $fc = &fc($char)) ne $char) { }
4482 0 0 if ($leaf eq '.' or $leaf eq '..')
4485 0 0 if ($cond eq 'd' and not &d("$head$leaf"))
4489 0 0 if (&$matchsub($leaf))
4497 0 0 if (&Egb18030::index($leaf, '.') == -1 and length $leaf <= 8 and &Egb18030::index($pattern, '\\.') != -1)
4501 0 0 if (&$matchsub("$leaf."))
4507 0 0 if (@matched)
4511 0 0 if ($fix_drive_relative_paths)
4533 0 0 defined $1 ? :
4567 0 0 if (exists $ENV{'HOME'} and $ENV{'HOME'}) { }
0 0 elsif (exists $ENV{'USERPROFILE'} and $ENV{'USERPROFILE'}) { }
0 0 elsif (exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'}) { }
4590 0 0 if (exists $ENV{'HOME'} and defined $ENV{'HOME'}) { }
0 0 elsif (exists $ENV{'LOGDIR'} and $ENV{'LOGDIR'}) { }
4609 0 0 if (defined $home and not &d($home))
4620 0 0 if @_
4622 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4632 0 0 if (open MUST_BE_BAREWORD_AT_HERE, $_)
4633 0 0 if (wantarray) { }
4635 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4640 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4645 0 0 wantarray ? :
4653 0 0 if (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4658 0 0 if (open MUST_BE_BAREWORD_AT_HERE, $_)
4659 0 0 if (wantarray) { }
4661 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4666 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4671 0 0 wantarray ? :
4680 0 0 if (CORE::opendir $dh, $_[1]) { }
0 0 elsif (_MSWin32_5Cended_path($_[1])) { }
4684 0 0 if (CORE::opendir $dh, "$_[1]/.")
4696 384 0 if @_
4699 0 384 if (defined fileno $fh) { }
384 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4712 0 0 if (open MUST_BE_BAREWORD_AT_HERE, $_)
4713 0 0 if (wantarray) { }
4715 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4720 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4725 0 0 wantarray ? :
4734 0 0 if (defined fileno $fh) { }
0 0 elsif (-e $_) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4742 0 0 if (open MUST_BE_BAREWORD_AT_HERE, $_)
4743 0 0 if (wantarray) { }
4745 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4750 0 0 unless close MUST_BE_BAREWORD_AT_HERE
4755 0 0 wantarray ? :
4763 0 0 unless @_
4767 0 0 if (CORE::unlink $_) { }
0 0 elsif (&d($_)) { }
0 0 elsif (_MSWin32_5Cended_path($_)) { }
4774 0 0 unless {'/', '\\'}->{$_}
4775 0 0 if ($file =~ / \A (?:$Egb18030::q_char)*? [ ] /mosx)
4779 0 0 if (_open_r($fh, $_))
4780 0 0 unless close $fh
4783 0 0 if (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { }
0 0 elsif (`ver` =~ /\b(?:Windows 2000)\b/mos) { }
4799 0 0 if (_open_r($fh, $_)) { }
4800 0 0 unless close $fh
4816 0 0 if (@_ == 0)
4822 0 0 if (_MSWin32_5Cended_path($dir)) { }
4823 0 0 unless (&d($dir))
4827 0 0 if ($] =~ /^5\.005/mosx) { }
0 0 elsif ($] =~ /^(?:5\.006|5\.008000)/mosx and $^O eq 'MSWin32') { }
4846 0 0 unless ($@)
4986 0 0 if ($char eq '\\' or $char eq '/') { }
4995 0 0 if ($subdir[-1] eq '\\' or $subdir[-1] eq '/')
5009 0 0 if (`ver` =~ /\b(?:Windows NT|Windows 2000)\b/mos) { }
0 0 elsif (defined $ENV{'OS'} and $ENV{'OS'} eq 'Windows_NT') { }
5012 0 0 if (&fc(substr($dirx, -length($subdir[-1]), length $subdir[-1])) eq &fc($subdir[-1]))
5032 0 0 if (&fc(substr($dirx, -length($subdir[-1]), length $subdir[-1])) eq &fc($subdir[-1]))
5047 0 0 if (&fc(substr($dirx, -length($subdir[-1]), length $subdir[-1])) eq &fc($subdir[-1]))
5059 0 0 if ($shortdir eq '') { }
0 0 elsif (&fc($shortdir) eq &fc($dir)) { }
5077 768 0 if (@_ >= 1 and $_[0] ne '')
5078 0 768 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx)
5080 0 0 if ($char[-1] =~ / \x5C \z/mosx)
5100 0 0 if ($^O eq 'MacOS') { }
5107 0 0 if (&f($realfilename))
5111 0 0 if (&e("$realfilename.e"))
5115 0 0 if ($e_mtime < $mtime or $mtime < $module_mtime)
5120 0 0 if (&e("$realfilename.e")) { }
5122 0 0 if (_open_r($fh, "$realfilename.e"))
5123 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5142 0 0 if ($@)
5151 0 0 if ($^O eq 'MacOS')
5157 0 0 unless close $fh
5162 0 0 if (_open_r($fh, $realfilename))
5163 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5171 0 0 if ($@)
5180 0 0 if ($^O eq 'MacOS')
5186 0 0 unless close $fh
5189 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
5193 0 0 unless open $fh, ">$realfilename.e"
5194 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5202 0 0 if ($@)
5210 0 0 unless seek $fh, 0, 0
5212 0 0 if ($^O eq 'MacOS')
5218 0 0 unless close $fh
5231 0 0 if ($@) { }
0 0 elsif (not $result) { }
5309 0 0 if @_
5311 0 0 if (exists $INC{$_})
5312 0 0 if $INC{$_}
5322 0 0 if (/ \b (?: jcode\.pl | jacode(?>[0-9]*)\.pl ) \z /mosx)
5331 0 0 if ($^O eq 'MacOS') { }
5338 0 0 if (&f($realfilename))
5343 0 0 if (&e("$realfilename.e"))
5347 0 0 if ($e_mtime < $mtime or $mtime < $module_mtime)
5352 0 0 if (&e("$realfilename.e")) { }
5354 0 0 unless _open_r($fh, "$realfilename.e")
5355 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5363 0 0 if ($@)
5372 0 0 if ($^O eq 'MacOS')
5378 0 0 unless close $fh
5382 0 0 unless _open_r($fh, $realfilename)
5383 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5391 0 0 if ($@)
5400 0 0 if ($^O eq 'MacOS')
5406 0 0 unless close $fh
5408 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
5412 0 0 unless open $fh, ">$realfilename.e"
5413 0 0 if ($^O eq 'MacOS') { }
0 0 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
5421 0 0 if ($@)
5429 0 0 unless seek $fh, 0, 0
5431 0 0 if ($^O eq 'MacOS')
5437 0 0 unless close $fh
5451 0 0 if ($@) { }
0 0 elsif (not $result) { }
5478 0 0 if (defined $&) { }
5479 0 0 if (defined $1 and substr($&, -length($1), length $1) eq $1) { }
5496 0 0 if (defined $&) { }
5497 0 0 if (defined $1) { }
5522 0 0 if @_
5524 0 0 if (/\A ($Egb18030::q_char) /mosx) { }
5542 0 0 if (/\A ($Egb18030::q_char) /mosx) { }
5560 0 0 if (wantarray) { }
5580 0 0 @_ ? :
5581 0 0 if @_ and not wantarray
5587 0 0 if (exists $range_tr{length $getc})
5588 0 0 if ($getc =~ /\A $Egb18030::dot_s \z/mosx)
5589 0 0 wantarray ? :
5593 0 0 wantarray ? :
5601 0 0 if @_
5624 389 0 $] >= 5.014 ? :
0 0 if ($offset > scalar @char or $offset < -1 * scalar(@char))
0 0 if ($offset == 0) { }
0 0 elsif ($offset > 0) { }
0 0 if ($length == 0) { }
0 0 elsif ($length > 0) { }
0 0 if ($offset == 0) { }
0 0 elsif ($offset > 0) { }
0 0 if (@_ == 4) { }
0 0 elsif (@_ == 3) { }
5704 0 0 if (@_ == 3) { }
5711 0 0 if ($index == -1) { }
5725 0 0 if (@_ == 3) { }
5732 0 0 if ($rindex == -1) { }
5886 0 384 if @_
5947 31714 157965 if (/\G ( \n ) /cgox) { }
43291 114674 elsif (/\G ((?>\s+)|\#.*) /cgox) { }
3802 110872 elsif (/\G ( (?: if | elsif | unless | while | until | given | when ) (?>\s*) \( ) /cgox) { }
187 110685 elsif (/\G ( \( (?>\s*) (?: local \b | my \b | our \b | state \b )? (?>\s*) \$ $qq_scalar ) /cgox) { }
4 110681 elsif (/\G ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH \b | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) /cgmosx) { }
28 110653 elsif (/\G ( \$& | \$\{&\} | \$ (?>\s*) MATCH \b | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) /cgmosx) { }
1 110652 elsif (/\G ( \$' | \$\{'\} ) /cgmosx) { }
3 110649 elsif (/\G ( \$ (?>\s*) POSTMATCH \b | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) /cgmosx) { }
3043 107606 elsif (/\G ( \$ $qq_scalar | $qq_substr ) /cgox) { }
12417 95189 elsif (/\G ( [,;] ) /cgox) { }
0 95189 elsif (/\G ( \{ (?>\s*) (?: tr | index | rindex | reverse ) (?>\s*) \} ) /cgmosx) { }
2 95187 elsif (/\G ( \$ 0 ) /cgmosx) { }
0 95187 elsif (/\G ( \$ \{ (?>\s*) 0 (?>\s*) \} ) /cgmosx) { }
1 95186 elsif (/\G ( \$ \$ ) (?![\w\{]) /cgmosx) { }
221 94965 elsif (/\G \$ ((?>[1-9][0-9]*)) /cgmosx) { }
0 94965 elsif (/\G \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} /cgmosx) { }
0 94965 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ .+? \] ) /cgmosx) { }
0 94965 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ .+? \} ) /cgmosx) { }
0 94965 elsif (/\G \$ ( \$ (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) /cgmosx) { }
0 94965 elsif (/\G \$ (?>\s*) \{ ( (?>\s*) (?> [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) (?>\s*) ) \} /cgmosx) { }
0 94965 elsif (/\G \$ (?>\s*) \{ (?>\s*) ( $qq_brace ) (?>\s*) \} /cgmosx) { }
605 94360 elsif (/\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) (?>\s*) (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /cgmosx) { }
103 94257 elsif (m{\G ( \$[\$\@\#\\\'\"/\?\(\)\[\]\<\>] ) }cgmosx) { }
0 94257 elsif (/\G \b (while (?>\s*) \( (?>\s*) <[\$]?[A-Za-z_][A-Za-z_0-9]*> (?>\s*) \)) \b /cgox) { }
0 94257 elsif (/\G \b while (?>\s*) \( (?>\s*) < ((?:[^\x81-\xFE>\0\a\e\f\n\r\t]|[\x81-\xFE][^\x30-\x39]|[\x81-\xFE][\x30-\x39][\x81-\xFE][\x00-\xFF])+?) > (?>\s*) \) \b /cgox) { }
0 94257 elsif (/\G \b while (?>\s*) \( (?>\s*) glob (?>\s*) \) /cgox) { }
0 94257 elsif (/\G \b while (?>\s*) \( (?>\s*) glob \b /cgox) { }
482 93775 elsif (/\G \b ( if | unless | while | until | for | when ) \b /cgox) { }
19 93756 elsif (/\G \b (CORE:: | ->(>?\s*) (?: atan2 | [a-z]{2,})) \b /cgox) { }
0 93756 elsif (/\G \b Char::eval (?= (?>\s*) \{ ) /cgox) { }
13 93743 elsif (/\G \b GB18030::eval (?= (?>\s*) \{ ) /cgox) { }
0 93743 elsif (/\G \b Char::eval \b (?! (?>\s*) => ) /cgox) { }
114 93629 elsif (/\G \b GB18030::eval \b (?! (?>\s*) => ) /cgox) { }
2 93627 elsif (/\G \b bytes::substr \b (?! (?>\s*) => ) /cgox) { }
2 93625 elsif (/\G \b chop \b (?! (?>\s*) => ) /cgox) { }
2 93623 elsif (/\G \b bytes::index \b (?! (?>\s*) => ) /cgox) { }
0 93623 elsif (/\G \b Char::index \b (?! (?>\s*) => ) /cgox) { }
2 93621 elsif (/\G \b GB18030::index \b (?! (?>\s*) => ) /cgox) { }
2 93619 elsif (/\G \b index \b (?! (?>\s*) => ) /cgox) { }
2 93617 elsif (/\G \b bytes::rindex \b (?! (?>\s*) => ) /cgox) { }
0 93617 elsif (/\G \b Char::rindex \b (?! (?>\s*) => ) /cgox) { }
2 93615 elsif (/\G \b GB18030::rindex \b (?! (?>\s*) => ) /cgox) { }
2 93613 elsif (/\G \b rindex \b (?! (?>\s*) => ) /cgox) { }
1 93612 elsif (/\G \b lc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93612 elsif (/\G \b lcfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93612 elsif (/\G \b uc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93612 elsif (/\G \b ucfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
3 93609 elsif (/\G \b fc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93609 elsif (/\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 93609 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 93609 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 93609 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 93609 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 93609 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
1 93608 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\2) /cgox) { }
5 93603 elsif (/\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 93603 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 93603 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 93603 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 93603 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 93603 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
1 93602 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\S) ((?:\\\2|\\\\|$Egb18030::q_char)+?) (\2) /cgox) { }
0 93602 elsif (/\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (\$ (?> \w+ (?: ::\w+)* ) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { }
0 93602 elsif (/\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) \( ((?:$qq_paren)*?) \) /cgox) { }
0 93602 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) (?= [a-z]+) /cgox) { }
0 93602 elsif (/\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) ((?>\w+)) /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 93602 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
2 93600 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\2) /cgox) { }
103 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 93497 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
2 93495 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\S) ((?:\\\2|\\\\|$Egb18030::q_char)+?) (\2) /cgox) { }
6 93489 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\$ (?> \w+ (?: ::\w+)* ) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { }
0 93489 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) \( ((?:$qq_paren)*?) \) /cgox) { }
0 93489 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?= (?>\s+) [a-z]+) /cgox) { }
50 93439 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) ((?>\w+)) /cgox) { }
2 93437 elsif (/\G -(t) (?>\s+) ((?>\w+)) /cgox) { }
1 93436 elsif (/\G \b lstat (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
3 93433 elsif (/\G \b stat (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93433 elsif (/\G -s (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\1) /cgox) { }
0 93433 elsif (/\G -s (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) q (?>\s*) (\S) ((?:\\\1|\\\\|$Egb18030::q_char)+?) (\1) /cgox) { }
0 93433 elsif (/\G -s (?>\s*) (\$ (?> \w+ (?: ::\w+)* ) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { }
0 93433 elsif (/\G -s (?>\s*) \( ((?:$qq_paren)*?) \) /cgox) { }
0 93433 elsif (/\G -s (?= (?>\s+) [a-z]+) /cgox) { }
0 93433 elsif (/\G -s (?>\s+) ((?>\w+)) /cgox) { }
2 93431 elsif (/\G \b bytes::length (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
2 93429 elsif (/\G \b bytes::chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
36 93393 elsif (/\G \b chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
2 93391 elsif (/\G \b bytes::ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
2 93389 elsif (/\G \b ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
8 93381 elsif (/\G \b glob (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 93381 elsif (/\G \b lc \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b lcfirst \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b uc \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b ucfirst \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b fc \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b lstat \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b stat \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G -s \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b bytes::length \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b bytes::chr \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b chr \b (?! (?>\s*) => ) /cgox) { }
0 93381 elsif (/\G \b bytes::ord \b (?! (?>\s*) => ) /cgox) { }
2 93379 elsif (/\G \b ord \b (?! (?>\s*) => ) /cgox) { }
0 93379 elsif (/\G \b glob \b (?! (?>\s*) => ) /cgox) { }
4 93375 elsif (/\G \b reverse \b (?! (?>\s*) => ) /cgox) { }
8 93367 elsif (/\G \b getc \b (?! (?>\s*) => ) /cgox) { }
2 93365 elsif (/\G \b opendir ((?>\s*) \( (?>\s*)) (?=[A-Za-z_]) /cgox) { }
0 93365 elsif (/\G \b opendir ((?>\s+)) (?=[A-Za-z_]) /cgox) { }
87 93278 elsif (/\G \b unlink \b (?! (?>\s*) => ) /cgox) { }
3 93275 elsif (/\G \b (chdir) \b (?! (?>\s*) => ) /cgox) { }
419 92856 elsif (/\G \b (split) \b (?! (?>\s*) => ) /cgox) { }
11 92845 elsif (/\G \b ( tr | y ) \b /cgox) { }
5927 86918 elsif (/\G \b (qq) \b /cgox) { }
184 86734 elsif (/\G \b (qr) \b /cgox) { }
34 86700 elsif (/\G \b (qw) \b /cgox) { }
3 86697 elsif (/\G \b (qx) \b /cgox) { }
606 86091 elsif (/\G \b (q) \b /cgox) { }
491 85600 elsif (/\G \b (m) \b /cgox) { }
292 85308 elsif (/\G \b (s) \b /cgox) { }
1 85307 elsif (/\G \b do (?= (?>\s*) \{ ) /cgmosx) { }
0 85307 elsif (/\G \b do (?= (?>\s+) (?: q | qq | qx ) \b) /cgmosx) { }
0 85307 elsif (/\G \b do (?= (?>\s+) (?>\w+)) /cgmosx) { }
0 85307 elsif (/\G \b do (?= (?>\s*) \$ (?> \w+ (?: ::\w+)* ) \( ) /cgmosx) { }
2 85305 elsif (/\G \b do \b /cgmosx) { }
0 85305 elsif (/\G \b require ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { }
0 85305 elsif (/\G \b require ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x81-\xFE#]) /cgmosx) { }
0 85305 elsif (/\G \b require ((?>\s+) (?:$ignore_modules)) \b /cgmosx) { }
0 85305 elsif (/\G \b require (?>\s+) ((?>0[0-7_]*)) (?>\s*) ; /cgmosx) { }
0 85305 elsif (/\G \b require (?>\s+) ((?>[1-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
0 85305 elsif (/\G \b require (?>\s+) ((?>v[0-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
18 85287 elsif (/\G \b require (?>\s+) ((?>[A-Za-z_]\w* (?: :: [A-Za-z_]\w*)*)) (?>\s*) ; /cgmosx) { }
0 85287 elsif (/\G \b require (?>\s*) ; /cgmosx) { }
1 85286 elsif (/\G \b require \b /cgmosx) { }
70 85216 elsif (/\G \b use ((?>\s+) strict .*? ;) ([ \t]* [#\n]) /cgmosx) { }
0 85216 elsif (/\G \b use ((?>\s+) strict .*? ;) ([ \t]* [^\x81-\xFE#]) /cgmosx) { }
0 85216 elsif (/\G \b use ((?>\s+) strict) \b /cgmosx) { }
3 85213 elsif (/\G \b use (?>\s+) ((?>([1-9][0-9_]*)(?:\.([0-9_]+))*)) (?>\s*) ; /cgmosx) { }
0 85213 elsif (/\G \b use (?>\s+) ((?>v([0-9][0-9_]*)(?:\.([0-9_]+))*)) (?>\s*) ; /cgmosx) { }
2 85211 elsif (/\G \b use ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { }
0 85211 elsif (/\G \b use ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x81-\xFE#]) /cgmosx) { }
0 85211 elsif (/\G \b use ((?>\s+) (?:$ignore_modules)) \b /cgmosx) { }
0 85211 elsif (/\G \b no ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { }
0 85211 elsif (/\G \b no ((?>\s+) (?:$ignore_modules) .*? ;) ([ \t]* [^\x81-\xFE#]) /cgmosx) { }
0 85211 elsif (/\G \b no ((?>\s+) (?:$ignore_modules)) \b /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>0[0-7_]*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[1-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>v[0-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) (\() (?>\s*) \) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\() (?>\s*) \) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\{) (?>\s*) \} (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\[) (?>\s*) \] (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\<) (?>\s*) \> (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) ([\x21-\x3F]) (?>\s*) \2 (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\S) (?>\s*) \2 (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\() [^\x81-\xFE)]* \)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\') [^\x81-\xFE']* \') (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\") [^\x81-\xFE"]* \") (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\() [^\x81-\xFE)]* \)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\{) (?:$Egb18030::q_char)*? \}) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\[) (?:$Egb18030::q_char)*? \]) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\<) [^\x81-\xFE>]* \>) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) ([\x21-\x3F]) .*? \3) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\S) (?:$Egb18030::q_char)*? \3) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>0[0-7_]*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[1-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>v[0-9][0-9_]*(?:\.[0-9_]+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) (\() (?>\s*) \) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\() (?>\s*) \) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\{) (?>\s*) \} (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\[) (?>\s*) \] (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\<) (?>\s*) \> (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) ([\x21-\x3F]) (?>\s*) \2 (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) qw (?>\s*) (\S) (?>\s*) \2 (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\() [^\x81-\xFE)]* \)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\') [^\x81-\xFE']* \') (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s*) ( (\") [^\x81-\xFE"]* \") (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\() [^\x81-\xFE)]* \)) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\{) (?:$Egb18030::q_char)*? \}) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\[) (?:$Egb18030::q_char)*? \]) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\<) [^\x81-\xFE>]* \>) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) ([\x21-\x3F]) .*? \3) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b no (?>\s+) ((?>[A-Z]\w*(?: ::\w+)*)) (?>\s+) ((?: q | qq | qw ) (?>\s*) (\S) (?:$Egb18030::q_char)*? \3) (?>\s*) ; /cgmosx) { }
0 85211 elsif (/\G \b use \b /cgmosx) { }
2 85209 elsif (/\G \b no \b /cgmosx) { }
3249 81960 elsif (/\G (?
3465 78495 elsif (/\G (\") /cgox) { }
38 78457 elsif (/\G (\`) /cgox) { }
1239 77218 elsif ($Egb18030::slash eq 'm//' and m[\G (/) ]cgox) { }
92 77126 elsif ($Egb18030::slash eq 'm//' and /\G (\?) /cgox) { }
0 77126 elsif (/\G ( <<>> ) /cgox) { }
0 77126 elsif (/\G ( << (?>\s*) ) (?= [0-9\$\@\&] ) /cgox) { }
6 77120 elsif (/\G ( <<~ [\t ]* '([a-zA-Z_0-9]*)' ) /cgox) { }
3 77117 elsif (/\G ( <<~ \\([a-zA-Z_0-9]+) ) /cgox) { }
6 77111 elsif (/\G ( <<~ [\t ]* "([a-zA-Z_0-9]*)" ) /cgox) { }
3 77108 elsif (/\G ( <<~ ([a-zA-Z_0-9]+) ) /cgox) { }
6 77102 elsif (/\G ( <<~ [\t ]* `([a-zA-Z_0-9]*)` ) /cgox) { }
86 77016 elsif (/\G ( << '([a-zA-Z_0-9]*)' ) /cgox) { }
2 77014 elsif (/\G ( << \\([a-zA-Z_0-9]+) ) /cgox) { }
39 76975 elsif (/\G ( << "([a-zA-Z_0-9]*)" ) /cgox) { }
60 76915 elsif (/\G ( << ([a-zA-Z_0-9]+) ) /cgox) { }
0 76915 elsif (/\G ( << `([a-zA-Z_0-9]*)` ) /cgox) { }
13 76902 elsif (/\G ( <<= | <=> | <= | < ) (?= (?>\s*) [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/cgox) { }
0 76902 elsif (/\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /cgox) { }
0 76902 elsif (/\G < ((?:[^\x81-\xFE>\0\a\e\f\n\r\t]|[\x81-\xFE][^\x30-\x39]|[\x81-\xFE][\x30-\x39][\x81-\xFE][\x00-\xFF])+?) > /cgox) { }
0 76902 elsif (/\G ^ ( __DATA__ \n .*) \z /cgmosx) { }
384 76518 elsif (/\G ^ ( __END__ \n .*) \z /cgmosx) { }
0 76518 elsif (/\G ( \cD .*) \z /cgmosx) { }
0 76518 elsif (/\G ( \cZ .*) \z /cgmosx) { }
14318 62200 elsif (/\G ( -- | \+\+ | [\)\}\]] ) /cgox) { }
7 62193 elsif (/\G ( \.\.\. ) /cgox) { }
24138 38055 elsif (m"\G ((?> !~~ | !~ | != | ! | %= | % | &&= | && | &= | &\.= | &\. | & | -= | -> | - | :(?>\s*)= | : | <<>> | <<= | <=> | <= | < | == | => | =~ | = | >>= | >> | >= | > | \*\*= | \*\* | \*= | \* | \+= | \+ | \.\. | \.= | \. | //= | // | /= | / | \? | \\ | \^= | \^\.= | \^\. | \^ | \b x= | \|\|= | \|\| | \|= | \|\.= | \|\. | \| | ~~ | ~\. | ~ | \b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b | \b(?: print )\b | [,;\(\{\[] )) "cgox) { }
38055 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
5949 203 31511 if (scalar @heredoc_delimiter >= 1)
6004 0 187 if (/\G ( (?>\s*) = $qq_paren \) ) ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= (?: tr | y ) \b ) /cgox) { }
0 187 elsif (/\G ( (?>\s*) = $qq_paren \) ) ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= s \b ) /cgox) { }
6053 9 3034 if (/\G ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= (?: tr | y ) \b ) /cgox) { }
255 2779 elsif (/\G ( (?>\s*) (?: =~ | !~ ) (?>\s*) ) (?= s \b ) /cgox) { }
6336 0 3 if (/\G (?= [,;\)\}\]] ) /cgox) { }
1 2 elsif (/\G ( [\$\@\&\*] $qq_scalar ) /cgox) { }
0 2 elsif (/\G \b (qq) \b /cgox) { }
0 2 elsif (/\G \b (q) \b /cgox) { }
2 0 elsif (/\G (\') /cgox) { }
0 0 elsif (/\G (\") /cgox) { }
6343 0 0 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
6346 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
6360 0 0 if (/\G (\#) ((?:\\\#|\\\\|$Egb18030::q_char)*?) (\#) /cgox) { }
6363 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { }
0 0 elsif (/\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { }
0 0 elsif (/\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { }
0 0 elsif (/\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { }
0 0 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::q_char)*?) (\1) /cgox) { }
0 0 elsif (/\G (\S) ((?:\\\\|\\\1| $Egb18030::q_char)*?) (\1) /cgox) { }
6379 0 13 if (/\G (\\\\) /cgox) { }
0 13 elsif (/\G (\\\') /cgox) { }
2 11 elsif (/\G \' /cgox) { }
11 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6391 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\") /cgox) { }
0 0 elsif (/\G \" /cgox) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6410 3 416 if (/\G (?= [,;\)\}\]] ) /cgox) { }
1 415 elsif (/\G ( [\$\@\&\*] $qq_scalar ) /cgox) { }
0 415 elsif (/\G \b qq (\#) [ ] (\#) /cgox) { }
0 415 elsif (/\G \b qq ((?>\s*)) (\() [ ] (\)) /cgox) { }
0 415 elsif (/\G \b qq ((?>\s*)) (\{) [ ] (\}) /cgox) { }
0 415 elsif (/\G \b qq ((?>\s*)) (\[) [ ] (\]) /cgox) { }
0 415 elsif (/\G \b qq ((?>\s*)) (\<) [ ] (\>) /cgox) { }
0 415 elsif (/\G \b qq ((?>\s*)) (\S) [ ] (\2) /cgox) { }
0 415 elsif (/\G \b q (\#) [ ] (\#) /cgox) { }
0 415 elsif (/\G \b q ((?>\s*)) (\() [ ] (\)) /cgox) { }
0 415 elsif (/\G \b q ((?>\s*)) (\{) [ ] (\}) /cgox) { }
0 415 elsif (/\G \b q ((?>\s*)) (\[) [ ] (\]) /cgox) { }
0 415 elsif (/\G \b q ((?>\s*)) (\<) [ ] (\>) /cgox) { }
0 415 elsif (/\G \b q ((?>\s*)) (\S) [ ] (\2) /cgox) { }
16 399 elsif (/\G ' [ ] ' /cgox) { }
2 397 elsif (/\G " [ ] " /cgox) { }
0 397 elsif (/\G \b (qq) \b /cgox) { }
124 273 elsif (/\G \b (qr) \b /cgox) { }
0 273 elsif (/\G \b (q) \b /cgox) { }
136 137 elsif (/\G \b (m) \b /cgox) { }
0 137 elsif (/\G (\') /cgox) { }
0 137 elsif (/\G (\") /cgox) { }
137 0 elsif (m[\G (/) ]cgox) { }
6433 0 0 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
6436 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
6450 0 124 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([imosxpadlunbB]*) /cgox) { }
6453 0 124 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 124 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /cgox) { }
0 124 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /cgox) { }
0 124 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /cgox) { }
0 124 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /cgox) { }
56 68 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([imosxpadlunbB]*) /cgox) { }
0 68 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
68 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
6468 0 0 if (/\G (\#) ((?:\\\#|\\\\|$Egb18030::q_char)*?) (\#) /cgox) { }
6471 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { }
0 0 elsif (/\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { }
0 0 elsif (/\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { }
0 0 elsif (/\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { }
0 0 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::q_char)*?) (\1) /cgox) { }
0 0 elsif (/\G (\S) ((?:\\\\|\\\1| $Egb18030::q_char)*?) (\1) /cgox) { }
6485 0 136 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([cgimosxpadlunbB]*) /cgox) { }
6488 0 136 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 136 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /cgox) { }
0 136 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /cgox) { }
0 136 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /cgox) { }
0 136 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /cgox) { }
56 80 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cgimosxpadlunbB]*) /cgox) { }
0 80 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
80 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
6505 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\') /cgox) { }
0 0 elsif (/\G \' /cgox) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6517 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\") /cgox) { }
0 0 elsif (/\G \" /cgox) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6529 0 582 if (/\G (\\\\) /cgox) { }
0 582 elsif (m[\G (\\/) ]cgox) { }
137 445 elsif (m[\G / ([cgimosxpadlunbB]*) ]cgox) { }
445 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6550 0 11 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ((?:$Egb18030::qq_char)*?) (\#) ([cdsrbB]*) /cgox) { }
6557 0 11 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 11 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 11 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 11 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 11 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
11 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ((?:$Egb18030::qq_char)*?) (\1) ([cdsrbB]*) /cgox) { }
6561 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cdsrbB]*) /cgox) { }
6573 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cdsrbB]*) /cgox) { }
6585 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cdsrbB]*) /cgox) { }
6597 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cdsrbB]*) /cgox) { }
6621 40 5887 if (/\G (\#) /cgox) { }
6624 80 1868 if (/\G (\\\\) /cgox) { }
0 1868 elsif (/\G (\\\#) /cgox) { }
40 1828 elsif (/\G (\#) /cgox) { }
1828 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6635 0 5887 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 5887 elsif (/\G (\() /cgox) { }
5805 82 elsif (/\G (\{) /cgox) { }
0 82 elsif (/\G (\[) /cgox) { }
62 20 elsif (/\G (\<) /cgox) { }
20 0 elsif (/\G (\S) /cgox) { }
6642 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\)) /cgox) { }
0 0 elsif (/\G (\() /cgox) { }
0 0 elsif (/\G (\)) /cgox) { }
0 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6646 0 0 if (--$Egb18030::nest == 0) { }
6659 720 246117 if (/\G (\\\\) /cgox) { }
0 246117 elsif (/\G (\\\}) /cgox) { }
1384 244733 elsif (/\G (\{) /cgox) { }
7189 237544 elsif (/\G (\}) /cgox) { }
237544 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6663 5805 1384 if (--$Egb18030::nest == 0) { }
6676 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\]) /cgox) { }
0 0 elsif (/\G (\[) /cgox) { }
0 0 elsif (/\G (\]) /cgox) { }
0 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6680 0 0 if (--$Egb18030::nest == 0) { }
6693 22 2018 if (/\G (\\\\) /cgox) { }
0 2018 elsif (/\G (\\\>) /cgox) { }
2 2016 elsif (/\G (\<) /cgox) { }
64 1952 elsif (/\G (\>) /cgox) { }
1952 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6697 62 2 if (--$Egb18030::nest == 0) { }
6710 0 840 if (/\G (\\\\) /cgox) { }
0 840 elsif (/\G (\\\Q$delimiter\E) /cgox) { }
20 820 elsif (/\G (\Q$delimiter\E) /cgox) { }
820 0 elsif (/\G ($Egb18030::qq_char) /cgox) { }
6725 0 184 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([imosxpadlunbB]*) /cgox) { }
6731 0 184 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 184 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /cgox) { }
1 183 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /cgox) { }
0 183 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /cgox) { }
0 183 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /cgox) { }
76 107 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([imosxpadlunbB]*) /cgox) { }
0 107 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
107 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
6747 0 34 if (/\G (\#) (.*?) (\#) /cgmosx) { }
6753 0 34 if (/\G ((?>\s+)|\#.*) /cgox) { }
34 0 elsif (/\G (\() ([^(]*?) (\)) /cgmosx) { }
0 0 elsif (/\G (\() ((?:$q_paren)*?) (\)) /cgmosx) { }
0 0 elsif (/\G (\{) ([^{]*?) (\}) /cgmosx) { }
0 0 elsif (/\G (\{) ((?:$q_brace)*?) (\}) /cgmosx) { }
0 0 elsif (/\G (\[) ([^[]*?) (\]) /cgmosx) { }
0 0 elsif (/\G (\[) ((?:$q_bracket)*?) (\]) /cgmosx) { }
0 0 elsif (/\G (\<) ([^<]*?) (\>) /cgmosx) { }
0 0 elsif (/\G (\<) ((?:$q_angle)*?) (\>) /cgmosx) { }
0 0 elsif (/\G ([\x21-\x3F]) (.*?) (\1) /cgmosx) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::q_char)*?) (\1) /cgmosx) { }
6777 0 3 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
6783 0 3 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 3 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
2 1 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 1 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 1 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 1 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') /cgox) { }
1 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
6804 0 606 if (/\G (\#) /cgox) { }
6807 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\#) /cgox) { }
0 0 elsif (/\G (\#) /cgox) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6818 0 606 if (/\G ((?>\s+)|\#.*) /cgox) { }
1 605 elsif (/\G (\() /cgox) { }
599 6 elsif (/\G (\{) /cgox) { }
0 6 elsif (/\G (\[) /cgox) { }
5 1 elsif (/\G (\<) /cgox) { }
1 0 elsif (/\G (\S) /cgox) { }
6825 0 7 if (/\G (\\\\) /cgox) { }
0 7 elsif (/\G (\\\)) /cgox) { }
0 7 elsif (/\G (\\\() /cgox) { }
0 7 elsif (/\G (\() /cgox) { }
1 6 elsif (/\G (\)) /cgox) { }
6 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6830 1 0 if (--$Egb18030::nest == 0) { }
6843 0 8241 if (/\G (\\\\) /cgox) { }
0 8241 elsif (/\G (\\\}) /cgox) { }
0 8241 elsif (/\G (\\\{) /cgox) { }
114 8127 elsif (/\G (\{) /cgox) { }
713 7414 elsif (/\G (\}) /cgox) { }
7414 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6848 599 114 if (--$Egb18030::nest == 0) { }
6861 0 0 if (/\G (\\\\) /cgox) { }
0 0 elsif (/\G (\\\]) /cgox) { }
0 0 elsif (/\G (\\\[) /cgox) { }
0 0 elsif (/\G (\[) /cgox) { }
0 0 elsif (/\G (\]) /cgox) { }
0 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6866 0 0 if (--$Egb18030::nest == 0) { }
6879 0 82 if (/\G (\\\\) /cgox) { }
0 82 elsif (/\G (\\\>) /cgox) { }
0 82 elsif (/\G (\\\<) /cgox) { }
0 82 elsif (/\G (\<) /cgox) { }
5 77 elsif (/\G (\>) /cgox) { }
77 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6884 5 0 if (--$Egb18030::nest == 0) { }
6897 0 14 if (/\G (\\\\) /cgox) { }
0 14 elsif (/\G (\\\Q$delimiter\E) /cgox) { }
1 13 elsif (/\G (\Q$delimiter\E) /cgox) { }
13 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
6912 0 491 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([cgimosxpadlunbB]*) /cgox) { }
6918 0 491 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 491 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /cgox) { }
0 491 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /cgox) { }
0 491 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /cgox) { }
0 491 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /cgox) { }
92 399 elsif (/\G (\?) ((?:$Egb18030::qq_char)*?) (\?) ([cgimosxpadlunbB]*) /cgox) { }
87 312 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cgimosxpadlunbB]*) /cgox) { }
0 312 elsif (/\G ([*\-:\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
312 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
6943 1 291 if (/\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ((?:$Egb18030::qq_char)*?) (\#) ([cegimosxpradlunbB]*) /cgox) { }
6949 0 291 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 291 elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 291 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 291 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 291 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
96 195 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ((?:$Egb18030::qq_char)*?) (\') ([cegimosxpradlunbB]*) /cgox) { }
4 191 elsif (/\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
0 191 elsif (/\G (\$) ((?:$Egb18030::qq_char)*?) (\1) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
191 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
6953 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\$) ((?:$Egb18030::qq_char)*?) (\$) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\:) ((?:$Egb18030::qq_char)*?) (\:) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\@) ((?:$Egb18030::qq_char)*?) (\@) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
6970 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\$) ((?:$Egb18030::qq_char)*?) (\$) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\:) ((?:$Egb18030::qq_char)*?) (\:) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\@) ((?:$Egb18030::qq_char)*?) (\@) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
6987 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\$) ((?:$Egb18030::qq_char)*?) (\$) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
7002 0 0 if (/\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\$) ((?:$Egb18030::qq_char)*?) (\$) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\:) ((?:$Egb18030::qq_char)*?) (\:) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\@) ((?:$Egb18030::qq_char)*?) (\@) ([cegimosxpradlunbB]*) /cgox) { }
0 0 elsif (/\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cegimosxpradlunbB]*) /cgox) { }
7068 0 3 if ($2 >= 6 or $2 == 5 and $3 ge '012') { }
7076 0 0 if ($2 >= 6 or $2 == 5 and $3 >= 12) { }
7156 8 16052 if (/\G (\\\\) /cgox) { }
48 16004 elsif (/\G (\\\') /cgox) { }
3249 12755 elsif (/\G \' /cgox) { }
12755 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
7168 109 72392 if (/\G (\\\\) /cgox) { }
14 72378 elsif (/\G (\\\") /cgox) { }
3465 68913 elsif (/\G \" /cgox) { }
68913 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
7180 0 318 if (/\G (\\\\) /cgox) { }
0 318 elsif (/\G (\\\`) /cgox) { }
38 280 elsif (/\G \` /cgox) { }
280 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
7192 11 12663 if (/\G (\\\\) /cgox) { }
0 12663 elsif (m[\G (\\/) ]cgox) { }
1239 11424 elsif (m[\G / ([cgimosxpadlunbB]*) ]cgox) { }
11424 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
7204 0 266 if (/\G (\\\\) /cgox) { }
0 266 elsif (/\G (\\\?) /cgox) { }
92 174 elsif (/\G \? ([cgimosxpadlunbB]*) /cgox) { }
174 0 elsif (/\G ($Egb18030::q_char) /cgox) { }
7225 6 0 if ($here_script eq '')
7229 6 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
7258 3 0 if ($here_script eq '')
7262 3 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
7282 6 0 if ($here_script eq '')
7286 6 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
7306 3 0 if ($here_script eq '')
7310 3 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
7330 6 0 if ($here_script eq '')
7334 6 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
7354 83 3 if ($here_script eq '')
7358 86 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
7384 1 1 if ($here_script eq '')
7388 2 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
7405 38 1 if ($here_script eq '')
7409 39 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
7426 57 3 if ($here_script eq '')
7430 60 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
7447 0 0 if ($here_script eq '')
7451 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
7592 3200 79 unless (grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char)
7593 3200 0 unless ($string =~ /<
7600 0 606 if (do { $string =~ /\G ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH \b | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) /cgmosx }) { }
0 606 elsif ($string =~ /\G ( \$& | \$\{&\} | \$ (?>\s*) MATCH \b | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \$' | \$\{'\} ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \$ (?>\s*) POSTMATCH \b | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \{ (?>\s*) (?: tr | index | rindex | reverse ) (?>\s*) \} ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \$ 0 ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \$ \{ (?>\s*) 0 (?>\s*) \} ) /cgmosx) { }
0 606 elsif ($string =~ /\G ( \$ \$ ) (?![\w\{]) /cgmosx) { }
0 606 elsif ($string =~ /\G \$ ((?>[1-9][0-9]*)) /cgmosx) { }
0 606 elsif ($string =~ /\G \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} /cgmosx) { }
0 606 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ .+? \] ) /cgmosx) { }
0 606 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ .+? \} ) /cgmosx) { }
0 606 elsif ($string =~ /\G \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) /cgmosx) { }
0 606 elsif ($string =~ /\G \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} /cgmosx) { }
3 603 elsif ($string =~ /\G \$ (?>\s*) \{ (?>\s*) ( $qq_brace ) (?>\s*) \} /cgmosx) { }
0 603 elsif ($string =~ /\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) (?>\s*) (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /cgmosx) { }
0 603 elsif ($string =~ m{\G ( \$[\$\@\#\\\'\"/\?\(\)\[\]\<\>] ) }cgmosx) { }
0 603 elsif ($string =~ /\G \b (CORE:: | ->(>?\s*) (?: atan2 | [a-z]{2,})) \b /cgox) { }
0 603 elsif ($string =~ /\G \b Char::eval (?= (?>\s*) \{ ) /cgox) { }
0 603 elsif ($string =~ /\G \b GB18030::eval (?= (?>\s*) \{ ) /cgox) { }
0 603 elsif ($string =~ /\G \b Char::eval \b /cgox) { }
0 603 elsif ($string =~ /\G \b GB18030::eval \b /cgox) { }
0 603 elsif ($string =~ /\G \b bytes::substr \b /cgox) { }
0 603 elsif ($string =~ /\G \b chop \b /cgox) { }
0 603 elsif ($string =~ /\G \b bytes::index \b /cgox) { }
0 603 elsif ($string =~ /\G \b Char::index \b /cgox) { }
0 603 elsif ($string =~ /\G \b GB18030::index \b /cgox) { }
0 603 elsif ($string =~ /\G \b index \b /cgox) { }
0 603 elsif ($string =~ /\G \b bytes::rindex \b /cgox) { }
0 603 elsif ($string =~ /\G \b Char::rindex \b /cgox) { }
0 603 elsif ($string =~ /\G \b GB18030::rindex \b /cgox) { }
0 603 elsif ($string =~ /\G \b rindex \b /cgox) { }
0 603 elsif ($string =~ /\G \b lc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 603 elsif ($string =~ /\G \b lcfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 603 elsif ($string =~ /\G \b uc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 603 elsif ($string =~ /\G \b ucfirst (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 603 elsif ($string =~ /\G \b fc (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 603 elsif ($string =~ /\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 603 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 603 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 603 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 603 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 603 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
1 602 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\2) /cgox) { }
1 601 elsif ($string =~ /\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 601 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 601 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 601 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 601 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 601 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
1 600 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) q (?>\s*) (\S) ((?:\\\2|\\\\|$Egb18030::q_char)+?) (\2) /cgox) { }
0 600 elsif ($string =~ /\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) (\$ (?> \w+ (?: ::\w+)*) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { }
0 600 elsif ($string =~ /\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) \( ((?:$qq_paren)*?) \) /cgox) { }
0 600 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) (?= [a-z]+) /cgox) { }
0 600 elsif ($string =~ /\G ((?:-[rwxoRWXOezfdlpSbcugkTB](?>\s+)){2,}) ((?>\w+)) /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 600 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
2 598 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\2) /cgox) { }
1 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 597 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
2 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) q (?>\s*) (\S) ((?:\\\2|\\\\|$Egb18030::q_char)+?) (\2) /cgox) { }
0 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) (\$ (?> \w+ (?: ::\w+)*) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { }
0 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s*) \( ((?:$qq_paren)*?) \) /cgox) { }
0 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?= (?>\s+) [a-z]+) /cgox) { }
0 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) (?>\s+) ((?>\w+)) /cgox) { }
0 595 elsif ($string =~ /\G -(t) (?>\s+) ((?>\w+)) /cgox) { }
0 595 elsif ($string =~ /\G \b lstat (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b stat (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s*) (\") ((?:$Egb18030::qq_char)+?) (\") /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\#) ((?:$Egb18030::qq_char)+?) (\#) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\() ((?:$qq_paren)+?) (\)) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\{) ((?:$qq_brace)+?) (\}) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\[) ((?:$qq_bracket)+?) (\]) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\<) ((?:$qq_angle)+?) (\>) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) qq (?>\s*) (\S) ((?:$Egb18030::qq_char)+?) (\1) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s*) (\') ((?:\\\'|\\\\|$Egb18030::q_char)+?) (\') /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\#) ((?:\\\#|\\\\|$Egb18030::q_char)+?) (\#) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) q (?>\s*) (\S) ((?:\\\1|\\\\|$Egb18030::q_char)+?) (\1) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s*) (\$ (?> \w+ (?: ::\w+)*) (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ))*) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s*) \( ((?:$qq_paren)*?) \) /cgox) { }
0 595 elsif ($string =~ /\G -s (?= (?>\s+) [a-z]+) /cgox) { }
0 595 elsif ($string =~ /\G -s (?>\s+) ((?>\w+)) /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::length (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b chr (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b ord (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b glob (?= (?>\s+)[A-Za-z_]|(?>\s*)['"`\$\@\&\*\(]) /cgox) { }
0 595 elsif ($string =~ /\G \b lc \b /cgox) { }
0 595 elsif ($string =~ /\G \b lcfirst \b /cgox) { }
0 595 elsif ($string =~ /\G \b uc \b /cgox) { }
0 595 elsif ($string =~ /\G \b ucfirst \b /cgox) { }
0 595 elsif ($string =~ /\G \b fc \b /cgox) { }
0 595 elsif ($string =~ /\G \b lstat \b /cgox) { }
0 595 elsif ($string =~ /\G \b stat \b /cgox) { }
0 595 elsif ($string =~ /\G (-[rwxoRWXOezfdlpSbcugkTB] (?>(?:\s+ -[rwxoRWXOezfdlpSbcugkTB])+)) \b /cgox) { }
0 595 elsif ($string =~ /\G -([rwxoRWXOezsfdlpSbcugkTBMAC]) \b /cgox) { }
0 595 elsif ($string =~ /\G -s \b /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::length \b /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::chr \b /cgox) { }
0 595 elsif ($string =~ /\G \b chr \b /cgox) { }
0 595 elsif ($string =~ /\G \b bytes::ord \b /cgox) { }
0 595 elsif ($string =~ /\G \b ord \b /cgox) { }
0 595 elsif ($string =~ /\G \b glob \b /cgox) { }
0 595 elsif ($string =~ /\G \b reverse \b /cgox) { }
0 595 elsif ($string =~ /\G \b getc \b /cgox) { }
0 595 elsif ($string =~ /\G \b opendir ((?>\s*) \( (?>\s*)) (?=[A-Za-z_]) /cgox) { }
0 595 elsif ($string =~ /\G \b opendir ((?>\s+)) (?=[A-Za-z_]) /cgox) { }
0 595 elsif ($string =~ /\G \b unlink \b /cgox) { }
0 595 elsif ($string =~ /\G \b (chdir) \b (?! (?>\s*) => ) /cgox) { }
0 595 elsif ($string =~ /\G \b (split) \b (?! (?>\s*) => ) /cgox) { }
0 595 elsif ($string =~ /\G \b (qq) \b /cgox) { }
0 595 elsif ($string =~ /\G \b (qx) \b /cgox) { }
0 595 elsif ($string =~ /\G \b (q) \b /cgox) { }
44 551 elsif ($string =~ /\G (?
6 545 elsif ($string =~ /\G (\") ((?:$Egb18030::qq_char)*?) (\") /cgox) { }
0 545 elsif ($string =~ /\G (\`) ((?:$Egb18030::qq_char)*?) (\`) /cgox) { }
0 545 elsif ($string =~ /\G ( <<>> ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<= | <=> | <= | < ) (?= (?>\s*) [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/cgox) { }
0 545 elsif ($string =~ /\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /cgox) { }
0 545 elsif ($string =~ /\G < ((?:$Egb18030::q_char)+?) > /cgox) { }
0 545 elsif ($string =~ /\G ( << (?>\s*) ) (?= [0-9\$\@\&] ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<~ [\t ]* '([a-zA-Z_0-9]*)' ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<~ \\([a-zA-Z_0-9]+) ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<~ [\t ]* "([a-zA-Z_0-9]*)" ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<~ ([a-zA-Z_0-9]+) ) /cgox) { }
0 545 elsif ($string =~ /\G ( <<~ [\t ]* `([a-zA-Z_0-9]*)` ) /cgox) { }
0 545 elsif ($string =~ /\G ( << '([a-zA-Z_0-9]*)' ) /cgox) { }
0 545 elsif ($string =~ /\G ( << \\([a-zA-Z_0-9]+) ) /cgox) { }
0 545 elsif ($string =~ /\G ( << "([a-zA-Z_0-9]*)" ) /cgox) { }
0 545 elsif ($string =~ /\G ( << ([a-zA-Z_0-9]+) ) /cgox) { }
0 545 elsif ($string =~ /\G ( << `([a-zA-Z_0-9]*)` ) /cgox) { }
80 465 elsif ($string =~ /\G ( -- | \+\+ | [\)\}\]] ) /cgox) { }
0 465 elsif ($string =~ /\G ( \.\.\. ) /cgox) { }
112 353 elsif ($string =~ m"\G ((?> !~~ | !~ | != | ! | %= | % | &&= | && | &= | &\.= | &\. | & | -= | -> | - | :(?>\s*)= | : | <<>> | <<= | <=> | <= | < | == | => | =~ | = | >>= | >> | >= | > | \*\*= | \*\* | \*= | \* | \+= | \+ | \.\. | \.= | \. | //= | // | /= | / | \? | \\ | \^= | \^\.= | \^\. | \^ | \b x= | \|\|= | \|\| | \|= | \|\.= | \|\. | \| | ~~ | ~\. | ~ | \b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b | \b(?: print )\b | [,;\(\{\[] )) "cgox) { }
353 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
7837 0 0 if ($string =~ /\G (?= [,;\)\}\]] ) /cgox) { }
0 0 elsif ($string =~ /\G ( [\$\@\&\*] $qq_scalar ) /cgox) { }
0 0 elsif ($string =~ /\G \b (qq) \b /cgox) { }
0 0 elsif ($string =~ /\G \b (q) \b /cgox) { }
0 0 elsif ($string =~ /\G (\') /cgox) { }
0 0 elsif ($string =~ /\G (\") /cgox) { }
7844 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
7847 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
7861 0 0 if ($string =~ /\G (\#) ((?:\\\#|\\\\|$Egb18030::q_char)*?) (\#) /cgox) { }
7864 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::q_char)*?) (\1) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $Egb18030::q_char)*?) (\1) /cgox) { }
7880 0 0 if ($string =~ /\G (\\\\) /cgox) { }
0 0 elsif ($string =~ /\G (\\\') /cgox) { }
0 0 elsif ($string =~ /\G \' /cgox) { }
0 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
7892 0 0 if ($string =~ /\G (\\\\) /cgox) { }
0 0 elsif ($string =~ /\G (\\\") /cgox) { }
0 0 elsif ($string =~ /\G \" /cgox) { }
0 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
7911 0 0 if ($string =~ /\G (?= [,;\)\}\]] ) /cgox) { }
0 0 elsif ($string =~ /\G ( [\$\@\&\*] $qq_scalar ) /cgox) { }
0 0 elsif ($string =~ /\G \b qq (\#) [ ] (\#) /cgox) { }
0 0 elsif ($string =~ /\G \b qq ((?>\s*)) (\() [ ] (\)) /cgox) { }
0 0 elsif ($string =~ /\G \b qq ((?>\s*)) (\{) [ ] (\}) /cgox) { }
0 0 elsif ($string =~ /\G \b qq ((?>\s*)) (\[) [ ] (\]) /cgox) { }
0 0 elsif ($string =~ /\G \b qq ((?>\s*)) (\<) [ ] (\>) /cgox) { }
0 0 elsif ($string =~ /\G \b qq ((?>\s*)) (\S) [ ] (\2) /cgox) { }
0 0 elsif ($string =~ /\G \b q (\#) [ ] (\#) /cgox) { }
0 0 elsif ($string =~ /\G \b q ((?>\s*)) (\() [ ] (\)) /cgox) { }
0 0 elsif ($string =~ /\G \b q ((?>\s*)) (\{) [ ] (\}) /cgox) { }
0 0 elsif ($string =~ /\G \b q ((?>\s*)) (\[) [ ] (\]) /cgox) { }
0 0 elsif ($string =~ /\G \b q ((?>\s*)) (\<) [ ] (\>) /cgox) { }
0 0 elsif ($string =~ /\G \b q ((?>\s*)) (\S) [ ] (\2) /cgox) { }
0 0 elsif ($string =~ /\G ' [ ] ' /cgox) { }
0 0 elsif ($string =~ /\G " [ ] " /cgox) { }
0 0 elsif ($string =~ /\G \b (qq) \b /cgox) { }
0 0 elsif ($string =~ /\G \b (qr) \b /cgox) { }
0 0 elsif ($string =~ /\G \b (q) \b /cgox) { }
0 0 elsif ($string =~ /\G \b (m) \b /cgox) { }
0 0 elsif ($string =~ /\G (\') /cgox) { }
0 0 elsif ($string =~ /\G (\") /cgox) { }
0 0 elsif ($string =~ m[\G (/) ]cgox) { }
7934 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
7937 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
7951 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([imosxpadlunbB]*) /cgox) { }
7954 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\') ((?:$Egb18030::qq_char)*?) (\') ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([imosxpadlunbB]*) /cgox) { }
7969 0 0 if ($string =~ /\G (\#) ((?:\\\#|\\\\|$Egb18030::q_char)*?) (\#) /cgox) { }
7972 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::q_char)*?) (\1) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $Egb18030::q_char)*?) (\1) /cgox) { }
7986 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) ([cgimosxpadlunbB]*) /cgox) { }
7989 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\') ((?:$Egb18030::qq_char)*?) (\') ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) ([cgimosxpadlunbB]*) /cgox) { }
8006 0 0 if ($string =~ /\G (\\\\) /cgox) { }
0 0 elsif ($string =~ /\G (\\\') /cgox) { }
0 0 elsif ($string =~ /\G \' /cgox) { }
0 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
8018 0 0 if ($string =~ /\G (\\\\) /cgox) { }
0 0 elsif ($string =~ /\G (\\\") /cgox) { }
0 0 elsif ($string =~ /\G \" /cgox) { }
0 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
8030 0 0 if ($string =~ /\G (\\\\) /cgox) { }
0 0 elsif ($string =~ m[\G (\\/) ]cgox) { }
0 0 elsif ($string =~ m[\G / ([cgimosxpadlunbB]*) ]cgox) { }
0 0 elsif ($string =~ /\G ($Egb18030::q_char) /cgox) { }
8042 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
8048 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
8062 0 0 if ($string =~ /\G (\#) ((?:$Egb18030::qq_char)*?) (\#) /cgox) { }
8068 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G (\') ((?:$Egb18030::qq_char)*?) (\') /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:$Egb18030::qq_char)*?) (\1) /cgox) { }
8083 0 0 if ($string =~ /\G (\#) ((?:\\\#|\\\\|$Egb18030::q_char)*?) (\#) /cgox) { }
8089 0 0 if ($string =~ /\G ((?>\s+)|\#.*) /cgox) { }
0 0 elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { }
0 0 elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { }
0 0 elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { }
0 0 elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { }
0 0 elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $Egb18030::q_char)*?) (\1) /cgox) { }
8136 0 0 if ($here_script eq '')
8140 0 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
8160 0 0 if ($here_script eq '')
8164 0 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
8184 0 0 if ($here_script eq '')
8188 0 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
8208 0 0 if ($here_script eq '')
8212 0 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
8232 0 0 if ($here_script eq '')
8236 0 0 if ($here_script =~ s/\A (.*?) \n ([\t ]*) $delimiter \n //msx) { }
8256 0 0 if ($here_script eq '')
8260 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
8277 0 0 if ($here_script eq '')
8281 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
8298 0 0 if ($here_script eq '')
8302 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
8319 0 0 if ($here_script eq '')
8323 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
8340 0 0 if ($here_script eq '')
8344 0 0 if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { }
8416 115 5379 if ($char eq '.') { }
8417 23 92 if ($modifier =~ /s/) { }
8455 0 11 if ($modifier =~ tr/Bb//d) { }
8456 0 0 if ($variable eq '') { }
8464 2 9 if ($variable eq '') { }
8486 22 0 if (not $charclass =~ /'/mosx) { }
0 0 elsif (not $charclass =~ m[/]mosx) { }
0 0 elsif (not $charclass =~ /\#/mosx) { }
0 0 elsif (not $charclass =~ /[\<\>]/mosx) { }
0 0 elsif (not $charclass =~ /[\(\)]/mosx) { }
0 0 elsif (not $charclass =~ /[\{\}]/mosx) { }
8506 0 0 unless ($charclass =~ /\Q$char\E/msx)
8527 1 21554 if ($char[$i] =~ /\A ([\x80-\xFF].*) (\Q$delimiter\E|\Q$end_delimiter\E) \z/msx) { }
22 38939 elsif (defined $char[$i + 1] and $char[$i + 1] eq '\\' and $char[$i] =~ /\A ([\x80-\xFF].*) (\\) \z/msx) { }
8534 204 3835 if (defined $char[-1] and $char[-1] =~ /\A ([\x80-\xFF].*) (\\) \z/msx)
8573 0 311085 if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { }
0 311085 elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { }
1 311084 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
1 311083 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
0 311083 elsif ($char[$i] =~ /\A \\ ( N\{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
8597 1342 309743 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ([\@\\\|$delimiter$end_delimiter]) \z/msx }) { }
655 309088 elsif ($char[$i] =~ /\A ([<>]) \z/mosx) { }
0 309088 elsif ($char[$i] eq '\\u') { }
0 309088 elsif ($char[$i] eq '\\l') { }
0 309088 elsif ($char[$i] eq '\\U') { }
6 309082 elsif ($char[$i] eq '\\L') { }
9 309073 elsif ($char[$i] eq '\\F') { }
0 309073 elsif ($char[$i] eq '\\Q') { }
12 309061 elsif ($char[$i] eq '\\E') { }
0 309061 elsif ($char[$i] eq '\\Q') { }
0 309061 elsif ($char[$i] eq '\\E') { }
75 308986 elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { }
0 308986 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/mosx) { }
0 308986 elsif ($char[$i] =~ /\A \$\$ \z/mosx) { }
417 308569 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/mosx) { }
0 308569 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 308569 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { }
0 308569 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { }
0 308569 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/mosx) { }
44 308525 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/cgmosx) { }
45 308480 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/cgmosx) { }
33 308447 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/cgmosx) { }
0 308447 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ (?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/mosx) { }
0 308447 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/mosx) { }
8616 0 655 if ($right_e < $left_e)
8658 12 0 if ($right_e < $left_e) { }
8668 0 0 if (++$i > $#char)
8671 0 0 if ($char[$i] eq '\\E')
8739 3 9643 if ($left_e > $right_e)
8755 34 0 if (not $octet{$end_delimiter}) { }
0 0 elsif (not $octet{')'}) { }
0 0 elsif (not $octet{'}'}) { }
0 0 elsif (not $octet{']'}) { }
0 0 elsif (not $octet{'>'}) { }
8772 0 0 unless ($octet{$char})
8783 0 0 if ($octet =~ /\A (['\\]) \z/mosx)
8825 0 3529 if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { }
0 3529 elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { }
1 3528 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
1 3527 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
0 3527 elsif ($char[$i] =~ /\A \\ ( N\{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
8849 57 3472 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ($metachar) \z/mosx }) { }
144 3328 elsif ($char[$i] =~ /\A ([<>]) \z/mosx) { }
0 3328 elsif ($char[$i] eq '\\u') { }
0 3328 elsif ($char[$i] eq '\\l') { }
0 3328 elsif ($char[$i] eq '\\U') { }
6 3322 elsif ($char[$i] eq '\\L') { }
0 3322 elsif ($char[$i] eq '\\F') { }
0 3322 elsif ($char[$i] eq '\\Q') { }
3 3319 elsif ($char[$i] eq '\\E') { }
0 3319 elsif ($char[$i] eq '\\Q') { }
0 3319 elsif ($char[$i] eq '\\E') { }
0 3319 elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$\$ \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { }
0 3319 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/mosx) { }
8 3311 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/cgmosx) { }
8 3303 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/cgmosx) { }
6 3297 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/cgmosx) { }
0 3297 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ (?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/mosx) { }
0 3297 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/mosx) { }
8859 0 144 if ($right_e < $left_e)
8888 3 0 if ($right_e < $left_e) { }
8898 0 0 if (++$i > $#char)
8901 0 0 if ($char[$i] eq '\\E')
8969 3 111 if ($left_e > $right_e)
8983 0 1843 if ($modifier =~ /([adlu])/mosx)
8986 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
8997 8 1835 if ($string eq '') { }
240 1595 elsif ($modifier =~ tr/Bb//d) { }
9007 0 240 if ($delimiter =~ / [\@:] /mosx)
9010 0 0 if (not $octet{')'}) { }
0 0 elsif (not $octet{'}'}) { }
0 0 elsif (not $octet{']'}) { }
0 0 elsif (not $octet{'>'}) { }
9028 0 0 unless ($octet{$char})
9037 90 150 if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { }
9045 465 1130 $modifier =~ /i/mosx ? :
9074 0 1595 if ($delimiter =~ / [\@:] /mosx)
9076 0 0 if (not $octet{')'}) { }
0 0 elsif (not $octet{'}'}) { }
0 0 elsif (not $octet{']'}) { }
0 0 elsif (not $octet{'>'}) { }
9094 0 0 unless ($octet{$char})
9108 0 5546 if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { }
0 5546 elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { }
1 5545 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
1 5544 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
6 5538 elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
4 5534 elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { }
9141 77 5469 if (do { $char[$i] =~ /\A \\? ([\x80-\xFF].*) ($metachar|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
6 5463 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx) { }
594 4869 elsif ($char[$i] eq '[') { }
328 4541 elsif ($char[$i] eq '[^') { }
215 4326 elsif (my $char = character_class($char[$i], $modifier)) { }
238 4088 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
1 4087 elsif ($char[$i] =~ /\A [<>] \z/mosx) { }
0 4087 elsif ($char[$i] eq '\\u') { }
0 4087 elsif ($char[$i] eq '\\l') { }
1 4086 elsif ($char[$i] eq '\\U') { }
1 4085 elsif ($char[$i] eq '\\L') { }
9 4076 elsif ($char[$i] eq '\\F') { }
22 4054 elsif ($char[$i] eq '\\Q') { }
33 4021 elsif ($char[$i] eq '\\E') { }
0 4021 elsif ($char[$i] eq '\\Q') { }
0 4021 elsif ($char[$i] eq '\\E') { }
0 4021 elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$\$ \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { }
0 4021 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/mosx) { }
8 4013 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/cgmosx) { }
8 4005 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/cgmosx) { }
6 3999 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/cgmosx) { }
0 3999 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/mosx) { }
0 3999 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/mosx) { }
31 3968 elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { }
196 4462 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
9151 0 6 if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 6 elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 8 elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Egb18030::q_char \z/mosx) { }
9169 3 591 if ($char[$i + 1] eq ']')
9174 0 2615 if (++$i > $#char)
9177 594 2021 if ($char[$i] eq ']')
9181 90 504 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
9201 5 323 if ($char[$i + 1] eq ']')
9206 0 1447 if (++$i > $#char)
9209 328 1119 if ($char[$i] eq ']')
9213 90 238 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
9233 238 0 if (length &fc($char[$i]) == 1) { }
9243 0 1 if ($right_e < $left_e)
9272 33 0 if ($right_e < $left_e) { }
9282 0 0 if (++$i > $#char)
9285 0 0 if ($char[$i] eq '\\E')
9295 0 0 if ($ignorecase)
9300 0 0 if ($ignorecase)
9313 0 0 if ($ignorecase)
9319 0 0 if ($ignorecase)
9327 0 0 if ($ignorecase)
9335 0 0 if ($ignorecase)
9343 0 0 if ($ignorecase)
9350 0 8 if ($ignorecase) { }
9360 0 8 if ($ignorecase) { }
9370 0 6 if ($ignorecase) { }
9380 0 0 if ($ignorecase)
9388 0 0 if ($ignorecase)
9396 4 27 if ($ignorecase)
9403 1 195 if ($char[$i - 1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { }
0 195 elsif ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { }
9407 0 0 if ($char[$i] eq '{') { }
9422 0 1595 if ($left_e > $right_e)
9423 0 0 if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { }
9430 94 1501 if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { }
9445 300 240 if ($stuff =~ /\A [\$\@] /mosx)
9452 0 240 if $char eq $delimiter
9453 0 240 if $char eq $end_delimiter
9454 240 0 unless ($octet{$char})
9469 0 163 if ($modifier =~ /([adlu])/mosx)
9472 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
9483 8 155 if ($string eq '') { }
89 66 elsif ($modifier =~ tr/Bb//d) { }
9506 32 34 $modifier =~ /i/mosx ? :
9522 2 77 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ([\\|\[\{\^]|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 77 elsif ($char[$i] eq '[') { }
0 77 elsif ($char[$i] eq '[^') { }
0 77 elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { }
0 77 elsif (my $char = character_class($char[$i], $modifier)) { }
16 61 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
0 113 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
9533 0 0 if ($char[$i + 1] eq ']')
9537 0 0 if (++$i > $#char)
9540 0 0 if ($char[$i] eq ']')
9555 0 0 if ($char[$i + 1] eq ']')
9559 0 0 if (++$i > $#char)
9562 0 0 if ($char[$i] eq ']')
9586 16 0 if (length &fc($char[$i]) == 1) { }
9596 0 0 if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { }
9622 0 199 if (do { $char[$i] eq '\\\\' }) { }
0 199 elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { }
9648 0 196 if ($modifier =~ /([adlu])/mosx)
9651 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
9662 8 188 if ($string eq '') { }
44 144 elsif ($modifier =~ tr/Bb//d) { }
9672 0 44 if ($delimiter =~ / [\@:] /mosx)
9675 0 0 if (not $octet{')'}) { }
0 0 elsif (not $octet{'}'}) { }
0 0 elsif (not $octet{']'}) { }
0 0 elsif (not $octet{'>'}) { }
9693 0 0 unless ($octet{$char})
9707 17 127 $modifier =~ /i/mosx ? :
9740 0 144 if ($delimiter =~ / [\@:] /mosx)
9742 0 0 if (not $octet{')'}) { }
0 0 elsif (not $octet{'}'}) { }
0 0 elsif (not $octet{']'}) { }
0 0 elsif (not $octet{'>'}) { }
9760 0 0 unless ($octet{$char})
9777 0 421 if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { }
0 421 elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { }
1 420 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
1 419 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
0 419 elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
0 419 elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { }
9810 23 398 if (do { $char[$i] =~ /\A \\? ([\x80-\xFF].*) ($metachar|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 398 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx) { }
20 378 elsif ($char[$i] eq '[') { }
0 378 elsif ($char[$i] eq '[^') { }
11 367 elsif (my $char = character_class($char[$i], $modifier)) { }
11 356 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
16 340 elsif ($char[$i] =~ /\A [<>] \z/mosx) { }
0 340 elsif ($char[$i] eq '\\u') { }
0 340 elsif ($char[$i] eq '\\l') { }
0 340 elsif ($char[$i] eq '\\U') { }
0 340 elsif ($char[$i] eq '\\L') { }
0 340 elsif ($char[$i] eq '\\F') { }
7 333 elsif ($char[$i] eq '\\Q') { }
7 326 elsif ($char[$i] eq '\\E') { }
0 326 elsif ($char[$i] eq '\\Q') { }
0 326 elsif ($char[$i] eq '\\E') { }
0 326 elsif ($char[$i] =~ /\A \\ (?>\s*) 0 \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) - (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \\g (?>\s*) \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \\g (?>\s*) ((?>[1-9][0-9]*)) \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \\ (?>\s*) ((?>[1-9][0-9]*)) \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$\$ \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { }
0 326 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/mosx) { }
4 322 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/cgmosx) { }
4 318 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/cgmosx) { }
3 315 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/cgmosx) { }
0 315 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/mosx) { }
0 315 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/mosx) { }
13 302 elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { }
23 387 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
9820 0 0 if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 0 elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 0 elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Egb18030::q_char \z/mosx) { }
9834 0 20 if ($char[$i + 1] eq ']')
9838 0 79 if (++$i > $#char)
9841 20 59 if ($char[$i] eq ']')
9845 0 20 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
9861 0 0 if ($char[$i + 1] eq ']')
9865 0 0 if (++$i > $#char)
9868 0 0 if ($char[$i] eq ']')
9872 0 0 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
9892 11 0 if (length &fc($char[$i]) == 1) { }
9902 0 16 if ($right_e < $left_e)
9931 7 0 if ($right_e < $left_e) { }
9941 0 0 if (++$i > $#char)
9944 0 0 if ($char[$i] eq '\\E')
9972 0 0 if ($1 <= $parens)
9979 0 0 if ($1 <= $parens)
9986 0 0 if ($1 <= $parens)
9993 0 0 if ($ignorecase)
9998 0 0 if ($ignorecase)
10011 0 0 if ($ignorecase)
10017 0 0 if ($ignorecase)
10025 0 0 if ($ignorecase)
10033 0 0 if ($ignorecase)
10041 0 0 if ($ignorecase)
10048 0 4 if ($ignorecase) { }
10058 0 4 if ($ignorecase) { }
10068 0 3 if ($ignorecase) { }
10078 0 0 if ($ignorecase)
10086 0 0 if ($ignorecase)
10094 0 13 if ($ignorecase)
10101 0 23 if ($char[$i - 1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { }
10113 0 144 if ($left_e > $right_e)
10127 0 96 if ($modifier =~ /([adlu])/mosx)
10130 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
10141 8 88 if ($string eq '') { }
44 44 elsif ($modifier =~ tr/Bb//d) { }
10164 16 28 $modifier =~ /i/mosx ? :
10180 0 62 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ([\\|\[\{\^]|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 62 elsif ($char[$i] eq '[') { }
0 62 elsif ($char[$i] eq '[^') { }
0 62 elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { }
6 56 elsif (my $char = character_class($char[$i], $modifier)) { }
8 48 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
0 86 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
10191 0 0 if ($char[$i + 1] eq ']')
10195 0 0 if (++$i > $#char)
10198 0 0 if ($char[$i] eq ']')
10213 0 0 if ($char[$i + 1] eq ']')
10217 0 0 if (++$i > $#char)
10220 0 0 if ($char[$i] eq ']')
10244 8 0 if (length &fc($char[$i]) == 1) { }
10254 0 0 if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { }
10281 0 98 if (do { $char[$i] eq '\\\\' }) { }
0 98 elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { }
10311 0 9 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) (\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 9 elsif (defined $char[$i + 1] and $char[$i + 1] eq '\\' and $char[$i] =~ /\A ([\x80-\xFF].*) (\\) \z/msx) { }
1 8 elsif ($char[$i] =~ /\A \\\\ \z/mosx) { }
5 3 elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { }
10331 0 91 if (defined $char[-1] and $char[-1] =~ /\A ([\x80-\xFF].*) (\\) \z/msx)
10346 0 292 if ($modifier =~ /([adlu])/mosx)
10349 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
10357 37 255 if ($variable eq '')
10383 0 292 if ($variable =~ s/\A \( (?>\s*) ( (?>(?: local \b | my \b | our \b | state \b )?) .+ ) \) \z/$1/mosx)
10394 17 275 if ($e_modifier >= 1) { }
10399 91 184 if ($delimiter2 eq q[']) { }
10410 8 284 if ($r_modifier) { }
10411 4 4 if (do { $modifier =~ /g/mosx }) { }
0 4 elsif ($modifier =~ /g/mosx) { }
10416 0 4 $delimiter1 eq q['] ? :
10432 0 0 $delimiter1 eq q['] ? :
10452 0 4 $delimiter1 eq q['] ? :
10469 0 8 if ($bind_operator =~ / !~ /mosx)
10476 35 249 if (do { $modifier =~ /g/mosx }) { }
0 249 elsif ($modifier =~ /g/mosx) { }
10481 3 32 $delimiter1 eq q['] ? :
6 29 $bind_operator =~ / !~ /mosx ? :
10507 0 0 $delimiter1 eq q['] ? :
0 0 $bind_operator =~ / !~ /mosx ? :
10530 236 13 $bind_operator =~ / =~ /mosx ? :
93 156 $delimiter1 eq q['] ? :
10555 0 292 if ($my ne '')
10572 0 0 if ($^W)
10573 0 0 if (_MSWin32_5Cended_path($string))
10574 0 0 unless ($] =~ /^5\.005/mosx)
10594 0 2 if ($^W)
10595 0 0 if (_MSWin32_5Cended_path($string))
10596 0 0 unless ($] =~ /^5\.005/mosx)
10618 0 285 if ($modifier =~ /([adlu])/mosx)
10621 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
10632 84 201 if ($modifier =~ tr/Bb//d)
10636 42 159 $modifier =~ /i/mosx ? :
10669 0 384 if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { }
0 384 elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { }
1 383 elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { }
1 382 elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { }
0 382 elsif ($char[$i] =~ /\A \\ ([bBNpP]) ( \{ ([^\x81-\xFE0-9\}][^\x81-\xFE\}]*) \} ) \z/mosx) { }
0 382 elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { }
10702 0 384 if (do { $char[$i] =~ /\A \\? ([\x80-\xFF].*) ($metachar|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 384 elsif ($char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx) { }
3 381 elsif ($char[$i] eq '[') { }
1 380 elsif ($char[$i] eq '[^') { }
5 375 elsif (my $char = character_class($char[$i], $modifier)) { }
14 361 elsif ($char[$i] eq '^' and not $modifier =~ /m/mosx) { }
18 343 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
2 341 elsif ($char[$i] =~ /\A ([<>]) \z/mosx) { }
0 341 elsif ($char[$i] eq '\\u') { }
0 341 elsif ($char[$i] eq '\\l') { }
0 341 elsif ($char[$i] eq '\\U') { }
0 341 elsif ($char[$i] eq '\\L') { }
0 341 elsif ($char[$i] eq '\\F') { }
0 341 elsif ($char[$i] eq '\\Q') { }
0 341 elsif ($char[$i] eq '\\E') { }
0 341 elsif ($char[$i] eq '\\Q') { }
0 341 elsif ($char[$i] eq '\\E') { }
0 341 elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) 0 (?>\s*) \} \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$\$ \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ ((?>[1-9][0-9]*)) \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ \{ (?>\s*) ((?>[1-9][0-9]*)) (?>\s*) \} \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { }
0 341 elsif ($char[$i] =~ /\A \$ ((?> \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* )) \z/mosx) { }
12 329 elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ (?>\s*) PREMATCH | \$ (?>\s*) \{ (?>\s*) PREMATCH (?>\s*) \} | \$ (?>\s*) \{\^PREMATCH\} ) \z/cgmosx) { }
12 317 elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ (?>\s*) MATCH | \$ (?>\s*) \{ (?>\s*) MATCH (?>\s*) \} | \$ (?>\s*) \{\^MATCH\} ) \z/cgmosx) { }
9 308 elsif ($char[$i] =~ /\A ( \$ (?>\s*) POSTMATCH | \$ (?>\s*) \{ (?>\s*) POSTMATCH (?>\s*) \} | \$ (?>\s*) \{\^POSTMATCH\} ) \z/cgmosx) { }
0 308 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ((?> \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* )) \} \z/mosx) { }
0 308 elsif ($char[$i] =~ /\A \$ (?>\s*) \{ ( .+ ) \} \z/mosx) { }
3 305 elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { }
7 429 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
10712 0 0 if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 0 elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $Egb18030::q_char \z/mosx) { }
0 0 elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $Egb18030::q_char \z/mosx) { }
10726 0 3 if ($char[$i + 1] eq ']')
10730 0 7 if (++$i > $#char)
10733 3 4 if ($char[$i] eq ']')
10737 0 3 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
10753 0 1 if ($char[$i + 1] eq ']')
10757 0 2 if (++$i > $#char)
10760 1 1 if ($char[$i] eq ']')
10764 0 1 if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { }
10801 18 0 if (length &fc($char[$i]) == 1) { }
10811 0 2 if ($right_e < $left_e)
10840 0 0 if ($right_e < $left_e) { }
10850 0 0 if (++$i > $#char)
10853 0 0 if ($char[$i] eq '\\E')
10863 0 0 if ($ignorecase)
10868 0 0 if ($ignorecase)
10881 0 0 if ($ignorecase)
10887 0 0 if ($ignorecase)
10895 0 0 if ($ignorecase)
10903 0 0 if ($ignorecase)
10911 0 0 if ($ignorecase)
10918 0 12 if ($ignorecase) { }
10928 0 12 if ($ignorecase) { }
10938 0 9 if ($ignorecase) { }
10948 0 0 if ($ignorecase)
10956 0 0 if ($ignorecase)
10964 0 3 if ($ignorecase)
10971 3 4 if ($char[$i - 1] =~ /\A (?:[\x00-\xFF]|\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { }
10981 0 201 if ($left_e > $right_e)
10995 0 112 if ($modifier =~ /([adlu])/mosx)
10998 0 0 if ($filename ne '/root/.cpan/build/Char-GB18030-1.14-0/blib/lib/Egb18030.pm')
11009 56 56 if ($modifier =~ tr/Bb//d)
11013 28 28 $modifier =~ /i/mosx ? :
11028 0 56 if (do { $char[$i] =~ /\A ([\x80-\xFF].*) ([\\|\[\{\^]|\Q$delimiter\E|\Q$end_delimiter\E) \z/msx }) { }
0 56 elsif ($char[$i] eq '[') { }
0 56 elsif ($char[$i] eq '[^') { }
0 56 elsif (my $char = character_class($char[$i], $modifier)) { }
0 56 elsif ($char[$i] eq '^' and not $modifier =~ /m/mosx) { }
12 44 elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Egb18030::uc($char[$i]) ne &fc($char[$i])) { }
0 88 elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { }
11039 0 0 if ($char[$i + 1] eq ']')
11043 0 0 if (++$i > $#char)
11046 0 0 if ($char[$i] eq ']')
11061 0 0 if ($char[$i + 1] eq ']')
11065 0 0 if (++$i > $#char)
11068 0 0 if ($char[$i] eq ']')
11092 12 0 if (length &fc($char[$i]) == 1) { }
11102 0 0 if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { }
11125 0 0 if (_open_r($fh, $realfilename))
11128 0 0 unless close $fh
11130 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11151 0 0 if (_open_r($fh, $realfilename))
11154 0 0 unless close $fh
11156 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11177 0 0 if (_open_r($fh, $realfilename))
11180 0 0 unless close $fh
11182 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11214 0 0 if (_open_r($fh, $realfilename))
11217 0 0 unless close $fh
11219 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11240 0 0 if (_open_r($fh, $realfilename))
11243 0 0 unless close $fh
11245 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11266 0 0 if (_open_r($fh, $realfilename))
11269 0 0 unless close $fh
11271 0 0 if ($script =~ /^ (?>\s*) use (?>\s+) GB18030 (?>\s*) ([^\x81-\xFE;]*) ; (?>\s*) \n? $/mosx)
11287 0 0 if ($^O eq 'MacOS') { }
11293 0 0 unless $expr =~ / \.pm \z/imosx
11304 0 0 if ($^O eq 'MacOS') { }