| line |
true |
false |
branch |
|
25
|
135 |
8 |
if $INC[-1] eq "." |
|
27
|
0 |
143 |
if ($] < "5.006" and not defined &warnings::import) |
|
89
|
0 |
132 |
if (defined $_[0] and $_[0] =~ /\A [0-9] /msx) |
|
90
|
6 |
0 |
if ($_[0] ne $mb::VERSION) |
|
101
|
3 |
36 |
if ($arg eq '*mb' or $arg eq '%mb') { } |
|
|
27 |
9 |
elsif ($arg =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
116
|
27 |
96 |
if (defined $encoding) { } |
|
163
|
108 |
15 |
if (not $want_runtime || $ENV{'PERL_MB_OCTET'} and $] >= "5.008") |
|
164
|
108 |
0 |
if (eval {
do {
require Filter::Util::Call;
1
}
}) |
|
167
|
6 |
108 |
if $done |
|
174
|
108 |
0 |
if ($status == 0) |
|
176
|
91 |
17 |
if ($buffer =~ /\b mb::set_script_encoding \s* \(/msx) { } |
|
196
|
0 |
21 |
if (scalar @ARGV == 0) |
|
223
|
11 |
10 |
if (($encoding) = $ARGV[0] =~ /\A -e ( .+ ) \z/msx) { } |
|
|
10 |
0 |
elsif ($ARGV[0] =~ /\A -e \z/msx) { } |
|
224
|
0 |
11 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
234
|
6 |
4 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
251
|
0 |
6 |
unless my $rfh = &_open_r($script) |
|
260
|
0 |
6 |
if ($OSNAME =~ /MSWin32/) |
|
265
|
0 |
0 |
if (/\A (?:$x)*? [ ] /msx) { } |
|
|
0 |
0 |
elsif (/\A (?:$x)*? [*?] /msx) { } |
|
266
|
0 |
0 |
if (my(@glob) = &dosglob(qq["$_"])) { } |
|
276
|
0 |
0 |
if (my(@glob) = &dosglob($_)) { } |
|
298
|
2 |
4 |
if ($source =~ /^__(?:END|DATA)__\b/m) { } |
|
302
|
0 |
1 |
if (not -e $script_oo or mtime($script_oo) <= mtime($script) or mtime($script_oo) <= mtime(__FILE__)) |
|
310
|
1 |
0 |
if (mkdir "$script.lock", 493) { } |
|
311
|
0 |
1 |
unless my $wfh = &_open_w($script_oo) |
|
325
|
0 |
2 |
if ($OSNAME =~ /MSWin32/) { } |
|
326
|
0 |
0 |
if ($0 =~ m( ([^\/\\]+)\.pm \z)imsx) { } |
|
337
|
2 |
0 |
if ($0 =~ m[ ([^\/]+)\.pm \z]imsx) { } |
|
353
|
0 |
2 |
if (/ /) { } |
|
375
|
1 |
3 |
if ($@) |
|
425
|
12 |
6 |
@_ ? : |
|
426
|
20 |
6 |
if (my(@x) = /\G$x/g) |
|
437
|
23 |
4 |
@_ ? : |
|
456
|
5 |
0 |
if (-f $prefix_file) |
|
460
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
465
|
0 |
5 |
unless my $fh = &_open_r($prefix_file) |
|
471
|
5 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
472
|
0 |
5 |
unless my $fh = &_open_w($prefix_file_oo) |
|
499
|
8 |
0 |
@_ ? : |
|
503
|
8 |
0 |
if (not $OSNAME =~ /MSWin32/) { } |
|
515
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \& /msx |
|
516
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \( /msx |
|
517
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \) /msx |
|
518
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \< /msx |
|
519
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \> /msx |
|
520
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \^ /msx |
|
521
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \| /msx |
|
525
|
0 |
0 |
if (my($dir) = $pattern =~ /\A ($x*) \\ /msx) { } |
|
536
|
0 |
22 |
unless &mb::uc($a) cmp &mb::uc($b) |
|
542
|
15016 |
20 |
@_ ? : |
|
555
|
36 |
1 |
@_ ? : |
|
556
|
0 |
37 |
if @_ and not wantarray |
|
558
|
36 |
1 |
if ($script_encoding =~ /\A (?: sjis ) \z/msx) { } |
|
|
0 |
1 |
elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { } |
|
|
0 |
1 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { } |
|
|
0 |
1 |
elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { } |
|
|
1 |
0 |
elsif ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
559
|
18 |
18 |
if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx) |
|
564
|
0 |
0 |
if ($getc =~ /\A [\xA1-\xFE] \z/msx) |
|
569
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
574
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
576
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] [\x30-\x39] \z/msx) |
|
583
|
1 |
0 |
if ($getc =~ /\A [\x00-\x7F\x80-\xC1\xF5-\xFF] \z/msx) { } |
|
|
0 |
0 |
elsif ($getc =~ /\A [\xC2-\xDF] \z/msx) { } |
|
|
0 |
0 |
elsif ($getc =~ /\A [\xE0-\xEF] \z/msx) { } |
|
|
0 |
0 |
elsif ($getc =~ /\A [\xF0-\xF4] \z/msx) { } |
|
598
|
1 |
36 |
wantarray ? : |
|
605
|
4 |
4 |
if (@_ == 3) { } |
|
611
|
4 |
4 |
if ($index == -1) { } |
|
626
|
12 |
166 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
627
|
8 |
4 |
if ($pos >= $position) |
|
631
|
170 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
644
|
10 |
1 |
@_ ? : |
|
646
|
58 |
61 |
unless {"A", "a", "B", "b", "C", "c", "D", "d", "E", "e", "F", "f", "G", "g", "H", "h", "I", "i", "J", "j", "K", "k", "L", "l", "M", "m", "N", "n", "O", "o", "P", "p", "Q", "q", "R", "r", "S", "s", "T", "t", "U", "u", "V", "v", "W", "w", "X", "x", "Y", "y", "Z", "z"}->{$_} |
|
653
|
1 |
1 |
@_ ? : |
|
654
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
665
|
18 |
4 |
@_ ? : |
|
672
|
2 |
2 |
@_ ? : |
|
674
|
4 |
0 |
if (/\A($x)/) |
|
685
|
37 |
2 |
@_ ? : |
|
694
|
21 |
18 |
/\A (?: $over_ascii | [\x00-\x7F] )* \z/msx ? : |
|
700
|
5 |
0 |
@_ ? : |
|
703
|
0 |
5 |
if (/^[0-9]/) { } |
|
704
|
0 |
0 |
if ($] < $_) { } |
|
718
|
0 |
5 |
if ($file =~ s[::][/]g or not $file =~ m([\./\\])) |
|
721
|
1 |
4 |
if (exists $INC{$file}) |
|
723
|
1 |
0 |
if $INC{$file} |
|
727
|
4 |
0 |
if (-f $prefix_file) |
|
731
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
736
|
0 |
4 |
unless my $fh = &_open_r($prefix_file) |
|
742
|
4 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
743
|
0 |
4 |
unless my $fh = &_open_w($prefix_file_oo) |
|
764
|
0 |
4 |
if ($@) { } |
|
|
0 |
4 |
elsif (not $result) { } |
|
786
|
2 |
8 |
if (wantarray) { } |
|
796
|
4 |
4 |
@_ ? : |
|
810
|
4 |
4 |
if (@_ == 3) { } |
|
816
|
4 |
4 |
if ($rindex == -1) { } |
|
832
|
20 |
210 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
835
|
230 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
930
|
140 |
104 |
if ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
|
104 |
0 |
elsif ($] >= 5.038) { } |
|
|
0 |
0 |
elsif ($] >= 5.03) { } |
|
|
0 |
0 |
elsif ($] >= 5.010001) { } |
|
1014
|
143 |
0 |
$] >= 5.014 ? : |
|
|
2 |
48 |
if ($_[1] < -1 * scalar(@x) or 1 * scalar(@x) < $_[1]) |
|
|
8 |
8 |
$_[1] > 0 ? : |
|
|
8 |
16 |
$_[1] < 0 ? : |
|
|
16 |
0 |
$_[2] > 0 ? : |
|
|
8 |
16 |
$_[2] < 0 ? : |
|
|
4 |
0 |
$_[1] > 0 ? : |
|
|
4 |
4 |
$_[1] < 0 ? : |
|
|
16 |
32 |
if (@_ == 4) { } |
|
|
24 |
8 |
elsif (@_ == 3) { } |
|
1071
|
2488 |
42 |
defined $_[3] ? : |
|
1077
|
3328 |
60 |
unless (exists $tr{$search[$i]}) |
|
1080
|
3123 |
205 |
if (defined $replacement[$i] and $replacement[$i] ne '') { } |
|
|
108 |
97 |
elsif (exists $modifier{'d'}) { } |
|
|
89 |
8 |
elsif (defined $replacement[-1] and $replacement[-1] ne '') { } |
|
1105
|
126 |
2404 |
if (exists $modifier{'c'}) { } |
|
1108
|
54 |
72 |
if (exists $modifier{'s'}) { } |
|
1113
|
252 |
176 |
if (exists $tr{$x}) { } |
|
1120
|
124 |
52 |
if (exists $modifier{'d'}) { } |
|
|
52 |
0 |
elsif (defined $replacement[-1]) { } |
|
1126
|
9 |
43 |
if (defined $last_transliterated and $replacement[-1] eq $last_transliterated) { } |
|
1144
|
210 |
104 |
if (exists $tr{$x}) { } |
|
1150
|
34 |
70 |
if (exists $modifier{'d'}) { } |
|
|
70 |
0 |
elsif (defined $replacement[-1]) { } |
|
1167
|
85 |
2319 |
if (exists $modifier{'s'}) { } |
|
1170
|
425 |
168 |
if (exists $tr{$x}) { } |
|
1173
|
89 |
336 |
if ($tr{$x} eq '') { } |
|
|
177 |
159 |
elsif (defined $last_transliterated and $tr{$x} eq $last_transliterated) { } |
|
1196
|
2621 |
128 |
if (exists $tr{$x}) { } |
|
1208
|
2362 |
168 |
if (exists $modifier{'r'}) { } |
|
1222
|
49 |
1 |
@_ ? : |
|
1224
|
450 |
496 |
unless {"a", "A", "b", "B", "c", "C", "d", "D", "e", "E", "f", "F", "g", "G", "h", "H", "i", "I", "j", "J", "k", "K", "l", "L", "m", "M", "n", "N", "o", "O", "p", "P", "q", "Q", "r", "R", "s", "S", "t", "T", "u", "U", "v", "V", "w", "W", "x", "X", "y", "Y", "z", "Z"}->{$_} |
|
1231
|
1 |
1 |
@_ ? : |
|
1232
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
1247
|
29 |
61 |
if ($mb::last_s_passed) { } |
|
1248
|
29 |
0 |
if (defined $_[0]) { } |
|
1255
|
0 |
0 |
if ($] >= 5.006) { } |
|
1271
|
61 |
0 |
if (defined $_[0]) { } |
|
1276
|
0 |
0 |
if ($] >= 5.006) { } |
|
1297
|
5 |
5 |
if ($mb::last_s_passed) { } |
|
1298
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1306
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1321
|
9 |
9 |
if ($mb::last_s_passed) { } |
|
1322
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1330
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1342
|
61 |
0 |
if (defined $&) { } |
|
1343
|
8 |
53 |
if ($mb::last_s_passed) { } |
|
1344
|
8 |
0 |
if (defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1) { } |
|
1352
|
53 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1368
|
15 |
0 |
if (defined $&) { } |
|
1369
|
8 |
7 |
if ($mb::last_s_passed) { } |
|
1373
|
7 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1421
|
33 |
391 |
if (defined $classmate) { } |
|
1432
|
559 |
134 |
unless ($element =~ /\A[$bare_s]\z/) |
|
1468
|
60 |
452 |
if (defined $classmate) { } |
|
1550
|
58975 |
59299 |
if ($classmate =~ s/\A \^ //msx) { } |
|
1561
|
10 |
12 |
if (my(@codepoint) = $_[0] =~ /\G($x)/cgmsx) { } |
|
1562
|
5 |
5 |
if (CORE::length $codepoint[$#codepoint] == 1) { } |
|
1582
|
0 |
0 |
unless open $fhn, ">> $_[0]" |
|
1591
|
0 |
15 |
unless open $fhn, "< $_[0]" |
|
1600
|
0 |
10 |
unless open $fhn, "> $_[0]" |
|
1617
|
38 |
18 |
if (defined $_[0] and $_[0] eq '' || $_[0] =~ /\A \( \? \^? [-a-z]* : \) \z/x) { } |
|
|
12 |
6 |
elsif (@_ == 3) { } |
|
|
6 |
0 |
elsif (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ == 1) { } |
|
1618
|
30 |
8 |
defined $_[1] ? : |
|
1619
|
12 |
6 |
if (defined $_[2] and $_[2] > 0 and scalar @x > $_[2]) |
|
1622
|
26 |
12 |
if (wantarray) { } |
|
1626
|
0 |
12 |
if ($] < "5.012") |
|
1627
|
0 |
0 |
if $^W |
|
1650
|
306 |
30 |
defined $_[0] ? : |
|
1651
|
202 |
134 |
defined $_[1] ? : |
|
1663
|
108 |
228 |
if ($pattern eq " ") |
|
1671
|
34 |
302 |
if (($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx) { } |
|
1702
|
21 |
315 |
'' =~ / \A $pattern \z /msx ? : |
|
1705
|
21 |
315 |
if (defined $_[2] and $_[2] >= 1) { } |
|
1731
|
303 |
33 |
if (CORE::length $string > 0) { } |
|
|
6 |
48 |
elsif (defined $_[2] and $_[2] >= 1) { } |
|
1735
|
6 |
0 |
if (scalar @split < $_[2]) |
|
1741
|
309 |
27 |
if (not defined $_[2] or $_[2] == 0) |
|
1750
|
203 |
133 |
if (wantarray) { } |
|
1767
|
2 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1768
|
0 |
2 |
if (@_ == 0) { } |
|
1777
|
0 |
0 |
if (@_ == 0) { } |
|
|
0 |
0 |
elsif ($script_encoding =~ /\A (?: sjis ) \z/msx and $_[0] =~ /\A $x* [\x81-\x9F\xE0-\xFC][\x5C] \z/msx) { } |
|
|
0 |
0 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and $_[0] =~ /\A $x* [\x81-\xFE][\x5C] \z/msx) { } |
|
1781
|
0 |
0 |
if (defined wantarray) { } |
|
1789
|
0 |
0 |
if (defined wantarray) { } |
|
1805
|
0 |
0 |
$filetest[-1] eq '-t' ? : |
|
|
11209 |
0 |
@_ ? : |
|
1806
|
0 |
11209 |
if @_ and not wantarray |
|
1809
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1820
|
9166 |
2043 |
if ($result = eval $filetest . ' $_') { } |
|
1823
|
0 |
2043 |
wantarray ? : |
|
1826
|
7 |
0 |
if ($result = eval $filetest . ' _') { } |
|
1829
|
0 |
0 |
wantarray ? : |
|
1832
|
0 |
9166 |
wantarray ? : |
|
1838
|
3 |
0 |
@_ ? : |
|
1839
|
0 |
3 |
if ($_ eq "_") |
|
1844
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1858
|
3 |
4 |
unless (defined $_[0]) |
|
1863
|
7 |
0 |
if (not $OSNAME =~ /MSWin32/ && $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { } |
|
|
0 |
0 |
elsif (-d $_[1]) { } |
|
|
0 |
0 |
elsif (-d "$_[1].") { } |
|
1878
|
9 |
0 |
@_ ? : |
|
1881
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1897
|
10222 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1898
|
10222 |
0 |
@_ ? : |
|
1902
|
0 |
0 |
@_ ? : |
|
1903
|
0 |
0 |
if (unlink $_) { } |
|
|
0 |
0 |
elsif (unlink "$_.") { } |
|
1922
|
0 |
144 |
if ($OSNAME =~ /MSWin32/) { } |
|
|
0 |
144 |
elsif ($OSNAME =~ /solaris/) { } |
|
|
0 |
144 |
elsif ($OSNAME =~ /hpux/) { } |
|
|
0 |
144 |
elsif ($OSNAME =~ /aix/) { } |
|
1923
|
0 |
0 |
if (my($codepage) = `chcp` =~ /[^0123456789](932|936|949|950|951|20932|54936)\Z/) { } |
|
1944
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
1968
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
1989
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
2014
|
0 |
144 |
defined $ENV{'LANG'} ? : |
|
|
0 |
144 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
144 |
defined $ENV{'LC_ALL'} ? : |
|
2047
|
117347 |
19414 |
@_ ? : |
|
2120
|
123 |
277191 |
if (m[\G ( \s* (?:
# 12345 | 12345 | 12345 | 12345 | 12345 | 12345 |
%= | % | # "\x25" [%] PERCENT SIGN (U+0025)
&&= | && | &\.= | &\. | &= | & | # "\x26" [&] AMPERSAND (U+0026)
\*\*= | \*\* | \*= | \* | # "\x2A" [*] ASTERISK (U+002A)
\.\.\.| \.\. | \.= | \. | # "\x2E" [.] FULL STOP (U+002E)
\/\/= | \/\/ | \/= | \/ | # "\x2F" [/] SOLIDUS (U+002F)
<=> | << | <= | < | # "\x3C" [<] LESS-THAN SIGN (U+003C)
\? # "\x3F" [?] QUESTION MARK (U+003F)
)) ]cgmsx) |
|
2144
|
14 |
683685 |
if (/\G ^ ( (?: __END__ | __DATA__ ) $R .* ) \z/cgmsx) { } |
|
|
1 |
683684 |
elsif (/\G ^ ( = [A-Za-z_][A-Za-z_0-9]* [\x00-\xFF]*? $R =cut \b [^\n]* $R ) /cgmsx) { } |
|
|
8654 |
675030 |
elsif (/\G (?= $R ) /cgmsx) { } |
|
|
257411 |
417619 |
elsif (/\G ( [\t ]+ ) /cgmsx) { } |
|
|
5233 |
412386 |
elsif (/\G ( ; ) /cgmsx) { } |
|
|
552 |
411834 |
elsif (/\G ( [(\{\[] ) /cgmsx) { } |
|
|
2 |
411832 |
elsif (/\G (
v [0-9]+ (?: \.[0-9]+ ){1,} \b |
[0-9]+ (?: \.[0-9]+ ){2,} \b
) /cgmsx) { } |
|
|
1 |
411831 |
elsif (/\G v ( [0-9]+ ) \b (?! \s* => ) /cgmsx) { } |
|
|
935 |
410896 |
elsif (m[\G (
# since Perl v5.22 adds hexadecimal floating point literals
# https://perldoc.perl.org/perl5220delta#Floating-point-parsing-has-been-improved
# https://perldoc.perl.org/5.32.0/perldata#Scalar-value-constructors
# https://qiita.com/mod_poppo/items/3fa4cdc35f9bfb352ad5
# https://qiita.com/mod_poppo/items/3fa4cdc35f9bfb352ad5#perl
#
# $ perl -l -e 'print(0x1.23); print(0x1.23p0)'
# makes ==> 123
# makes ==> 1.13671875
0[Xx] [0-9A-Fa-f_]+ \. [0-9A-Fa-f_]* [Pp] [+-]? [0-9_]+ |
0[Xx] \. [0-9A-Fa-f_]+ [Pp] [+-]? [0-9_]+ |
0[Xx] [0-9A-Fa-f_]+ |
# since perl v5.33.5 Core Enhancements New octal syntax 0oddddd
0[Oo] [0-7_]+ |
0 [0-7_]* |
0[Bb] [01_]+ |
[1-9] [0-9_]* \. [0-9_]* [Ee] [+-]? [0-9_]+ |
[1-9] [0-9_]* |
\. [0-9_]+ [Ee] [+-]? [0-9_]+ |
\. [0-9_]+
) ]cgmsx) { } |
|
|
0 |
410896 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= (?: \( \s* )* (?: ' | " | ` | \$ | (?: (?: m | q | qq | qr | qw | qx | s | tr | y ) \b )) ) /cgmsx) { } |
|
|
2828 |
408068 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= [A-Za-z_][A-Za-z0-9_]* ) /cgmsx) { } |
|
|
8409 |
399659 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) /cgmsx) { } |
|
|
1 |
399658 |
elsif (/\G ( \.\.\. ) /cgmsx) { } |
|
|
1 |
399657 |
elsif (/\G ( -> \s* [A-Za-z_][A-Za-z_0-9]* ) /cgmsx) { } |
|
|
121783 |
277874 |
elsif (/\G (
# 12345 | 12345 | 12345 | 12345 | 12345 | 12345 |
!= | !~ | ! | # "\x21" [!] EXCLAMATION MARK (U+0021)
\+\+ | \+= | \+ | # "\x2B" [+] PLUS SIGN (U+002B)
, | # "\x2C" [,] COMMA (U+002C)
-- | -= | -> | - | # "\x2D" [-] HYPHEN-MINUS (U+002D)
== | => | =~ | = | # "\x3D" [=] EQUALS SIGN (U+003D)
>> | >= | > | # "\x3E" [>] GREATER-THAN SIGN (U+003E)
\\ | # "\x5C" [\] REVERSE SOLIDUS (U+005C)
\^\^= | \^\^ | \^\.= | \^\. | \^= | \^ | # "\x5E" [^] CIRCUMFLEX ACCENT (U+005E)
\|\|= | \|\| | \|\.= | \|\. | \|= | \| | # "\x7C" [|] VERTICAL LINE (U+007C)
~~ | ~\. | ~= | ~ # "\x7E" [~] TILDE (U+007E)
) /cgmsx) { } |
|
|
2431 |
275443 |
elsif (/\G ( (?: and | cmp | eq | ge | gt | isa | le | lt | ne | not | or | x | x= | xor ) \b ) /cgmsx) { } |
|
|
20 |
275423 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
68 |
275355 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
55 |
275300 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
3 |
275297 |
elsif (/\G \@\{\^CAPTURE\} /cgmsx) { } |
|
|
3 |
275294 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
12 |
275282 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
22 |
275260 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
12 |
275248 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
14 |
275234 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
11 |
275223 |
elsif (/\G ( CORE:: (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
30 |
275193 |
elsif (/\G (?: mb:: | $old_package )? ( (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
221 |
274972 |
elsif (/\G ((?: \$[#] | [\$\@%&*] | defer | sub ) \s* ) ( \{ ) /cgmsx) { } |
|
|
3 |
274969 |
elsif (/\G ( (?: mb:: | CORE:: )? do ) \b /cgmsx) { } |
|
|
3 |
274966 |
elsif (/\G ( (?: mb:: | CORE:: )? eval ) \b /cgmsx) { } |
|
|
3 |
274963 |
elsif (/\G ( [\$] [#] (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
5070 |
269893 |
elsif (m(\G ( [\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | ^\{[A-Za-z_][A-Za-z_0-9]*\} | [0-9]+ | [!"#\$%&'()+,\-./:;<=>?\@\[\\\]\^_`|~] ) (?: \s* (?: \+\+ | -- ) )? ) )cgmsx) { } |
|
|
155 |
269738 |
elsif (/\G ( [\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [_] ) ) /cgmsx) { } |
|
|
11 |
269727 |
elsif (/\G ( [\%\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [!+\-] ) ) /cgmsx) { } |
|
|
172 |
269555 |
elsif (/\G ( [&*] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
41 |
269514 |
elsif (/\G ( [#] [^\n]* ) /cgmsx) { } |
|
|
5859 |
263655 |
elsif (/\G ( ' ) /cgmsx) { } |
|
|
126241 |
137414 |
elsif (/\G ( ["`] ) /cgmsx) { } |
|
|
118046 |
19368 |
elsif (m[\G ( [/] ) ]cgmsx) { } |
|
|
1 |
19367 |
elsif (/\G ( [?] ) /cgmsx) { } |
|
|
1 |
19366 |
elsif (/\G ( <<>> ) /cgmsx) { } |
|
|
5 |
19361 |
elsif (/\G (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
171 |
19190 |
elsif (/\G ( qw | q ) \b /cgmsx) { } |
|
|
69 |
19121 |
elsif (/\G ( qq ) \b /cgmsx) { } |
|
|
67 |
19054 |
elsif (/\G ( qx ) \b /cgmsx) { } |
|
|
1655 |
17399 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
|
1713 |
15686 |
elsif (/\G ( s ) \b /cgmsx) { } |
|
|
2159 |
13527 |
elsif (/\G (?: tr | y ) \b /cgmsx) { } |
|
|
11 |
13516 |
elsif (/\G ( <<~ ) /cgmsx) { } |
|
|
12 |
13504 |
elsif (/\G ( << ) /cgmsx) { } |
|
|
29 |
13475 |
elsif (/\G ( sub \s+ [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* \s* ) /cgmsx) { } |
|
|
2 |
13473 |
elsif (/\G ( while \s* \( \s* ) ( <<>> ) ( \s* \) ) /cgmsx) { } |
|
|
9 |
13464 |
elsif (/\G ( while \s* \( \s* ) (<) ((?:(?!\s)$x)*?) (>) ( \s* \) ) /cgmsx) { } |
|
|
0 |
13464 |
elsif (/\G ( while \s* ) ( <<>> ) /cgmsx) { } |
|
|
0 |
13464 |
elsif (/\G ( while \s* ) (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
25 |
13439 |
elsif (/\G ( (?: if | elsif | unless | while | until | given | when | (?: CORE:: )? catch ) \s* ) ( \( ) /cgmsx) { } |
|
|
4 |
13435 |
elsif (/\G mb:: ( catch \s* ) ( \( ) /cgmsx) { } |
|
|
1 |
13434 |
elsif (/\G ( else ) \b /cgmsx) { } |
|
|
13 |
13421 |
elsif (/\G ( if | unless | while | until ) \b /cgmsx) { } |
|
|
0 |
13421 |
elsif (/\G ( (?: foreach | for ) \s+ my \s* [\$] [A-Za-z_][A-Za-z_0-9]* ) ( \( ) /cgmsx) { } |
|
|
0 |
13421 |
elsif (/\G ( (?: foreach | for ) \s* [\$] [\$]* (?: \{[A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)*\} | [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]* ) ) ) ( \( ) /cgmsx) { } |
|
|
4 |
13417 |
elsif (/\G ( (?: foreach | for ) \s* ) ( \( ) /cgmsx) { } |
|
|
679 |
12738 |
elsif (/\G (?: CORE:: | mb:: | $old_package )? ( split ) \b /cgmsx) { } |
|
|
15 |
12723 |
elsif (/\G ( (?: lc | lcfirst | uc | ucfirst ) ) \b /cgmsx) { } |
|
|
3 |
12720 |
elsif (/\G ( (?: CORE:: | mb:: )? require ) /cgmsx) { } |
|
|
42 |
12678 |
elsif (/\G ( mb::use | mb::no ) \b /cgmsx) { } |
|
|
1 |
12677 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
2 |
12675 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )* \s* \$ ) /cgmsx) { } |
|
|
2 |
12673 |
elsif (/\G ( mb::getc ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
1 |
12672 |
elsif (/\G ( mb::getc ) /cgmsx) { } |
|
|
28 |
12644 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
chop |
chr |
getc |
lc |
lcfirst |
length |
ord |
uc |
ucfirst
) ) \b /cgmsx) { } |
|
|
26 |
12618 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
index |
reverse |
rindex |
substr
) ) \b /cgmsx) { } |
|
|
2 |
12616 |
elsif (/\G ( mb:: (?: index_byte | rindex_byte ) ) \b /cgmsx) { } |
|
|
2885 |
9731 |
elsif (/\G ( (?: CORE:: )? (?:
_ |
abs |
chomp |
cos |
exp |
fc |
hex |
int |
__LINE__ |
log |
oct |
pop |
pos |
quotemeta |
rand |
rmdir |
shift |
sin |
sqrt |
tell |
time |
umask |
wantarray
) ) \b /cgmsx) { } |
|
|
2 |
9729 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
18 |
9711 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )* \b (?: ' | " | ` | m | q | qq | qr | qw | qx | s | tr | y | \$ ) \b ) /cgmsx) { } |
|
|
10 |
9701 |
elsif (/\G ( lstat | stat ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
4 |
9697 |
elsif (/\G ( opendir ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \s* , ) /cgmsx) { } |
|
|
32 |
9665 |
elsif (/\G ( chdir | lstat | stat | unlink ) \b /cgmsx) { } |
|
|
4 |
9661 |
elsif (/\G ( opendir ) \b /cgmsx) { } |
|
|
0 |
9661 |
elsif (/\G (
Carp::carp |
Carp::cluck |
Carp::confess |
Carp::croak |
carp |
cluck |
confess |
croak |
die |
print |
printf |
say |
warn
) (?= (?: \s+ | [#] .* )* << ) /cgx) { } |
|
|
25 |
9636 |
elsif (/\G (
(?: printf | print | say )
(?: \s+ | [#] .* )*
(?! [a-z]+ ) # lowercase is considered to be function
(?: \b [A-Za-z_][A-Za-z_0-9]*(?: :: [A-Za-z_][A-Za-z_0-9]*)* |
\$ [A-Za-z_][A-Za-z_0-9]*(?: :: [A-Za-z_][A-Za-z_0-9]*)*
)
) /cgx) { } |
|
|
0 |
9636 |
elsif (/\G (
(?: printf | print | say )
(?: \s+ | [#] .* )*
) (\{)
/cgx) { } |
|
|
14 |
9622 |
elsif (/\G ( return ) /cgmsx) { } |
|
|
561 |
9061 |
elsif (/\G ( [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) { } |
|
|
396 |
8665 |
elsif (/\G ([\)\}\]]) /cgmsx) { } |
|
|
8665 |
0 |
elsif (/\G ([\x00-\x7F]) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
2157
|
14 |
9 |
if ($quote_type eq 'qq') { } |
|
|
9 |
0 |
elsif ($quote_type eq 'q') { } |
|
2302
|
0 |
8409 |
if (my $ambiguous_char = parse_ambiguous_char()) { } |
|
2533
|
28 |
118018 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2538
|
23 |
118023 |
if ($modifier_i) { } |
|
2553
|
0 |
1 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2558
|
0 |
1 |
if ($modifier_i) { } |
|
2590
|
2 |
169 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
2 |
167 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
45 |
122 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
6 |
116 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
48 |
68 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
68 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2599
|
6 |
62 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
2 |
60 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
8 |
52 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
2 |
50 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
50 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2613
|
1 |
68 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
1 |
67 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
6 |
61 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
3 |
58 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
24 |
34 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
34 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2622
|
3 |
31 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
1 |
30 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
4 |
26 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
1 |
25 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
25 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2636
|
1 |
66 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
1 |
65 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
4 |
61 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
3 |
58 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
24 |
34 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
34 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2645
|
3 |
31 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
1 |
30 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
4 |
26 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
1 |
25 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
25 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2660
|
2 |
1653 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
643 |
1010 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
8 |
1002 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
360 |
642 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
530 |
112 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
44 |
68 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
68 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2670
|
6 |
62 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
2 |
60 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
8 |
52 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
2 |
50 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
4 |
46 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
46 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2683
|
2 |
1653 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2688
|
37 |
1618 |
if ($modifier_i) { } |
|
2705
|
1 |
1712 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
286 |
1426 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
240 |
1186 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
354 |
832 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
528 |
304 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
22 |
282 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
282 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2708
|
0 |
240 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
4 |
236 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
16 |
220 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
4 |
216 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
96 |
120 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
120 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2717
|
0 |
120 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
4 |
116 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
16 |
100 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
4 |
96 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
96 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2734
|
12 |
270 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
1 |
269 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
244 |
25 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
1 |
24 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
2 |
22 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
22 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2737
|
1 |
243 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
4 |
239 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
17 |
222 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
4 |
218 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
96 |
122 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
122 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2746
|
0 |
122 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
4 |
118 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
18 |
100 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
4 |
96 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
96 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2768
|
9 |
1704 |
if (my $e = $modifier_cegr =~ tr/e//d) { } |
|
|
300 |
1404 |
elsif ($replacement[0] =~ /\A ' /msx) { } |
|
|
2 |
1402 |
elsif ($replacement[0] =~ /\A [#] /msx) { } |
|
2789
|
1 |
1712 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2794
|
18 |
1695 |
if ($modifier_i) { } |
|
2809
|
4 |
2155 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
4 |
2151 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
912 |
1239 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
98 |
1141 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
131 |
1010 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
1010 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2812
|
0 |
912 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
16 |
896 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
64 |
832 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
16 |
816 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
360 |
456 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
456 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2821
|
0 |
456 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
16 |
440 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
64 |
376 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
16 |
360 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
360 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2836
|
0 |
1010 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
4 |
1006 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
912 |
94 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
4 |
90 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
90 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2839
|
0 |
912 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
16 |
896 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
64 |
832 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
16 |
816 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
360 |
456 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
456 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2848
|
0 |
456 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
16 |
440 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
64 |
376 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
16 |
360 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
360 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
2865
|
0 |
2159 |
if ($modifier_r) { } |
|
|
28 |
2131 |
elsif ($modifier_not_r =~ /s/) { } |
|
2915
|
16 |
2115 |
if ($modifier_not_r =~ /c/) { } |
|
2937
|
1 |
10 |
if (/\G ( ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { } |
|
|
1 |
9 |
elsif (/\G ( \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { } |
|
|
3 |
6 |
elsif (/\G ( [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { } |
|
|
3 |
3 |
elsif (/\G ( [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { } |
|
|
3 |
0 |
elsif (/\G ( [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { } |
|
2949
|
1 |
11 |
if (/\G ( ([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { } |
|
|
1 |
10 |
elsif (/\G ( \\([A-Za-z_][A-Za-z_0-9]*) ) /cgmsx) { } |
|
|
4 |
6 |
elsif (/\G ( [\t ]* '([A-Za-z_][A-Za-z_0-9]*)' ) /cgmsx) { } |
|
|
3 |
3 |
elsif (/\G ( [\t ]* "([A-Za-z_][A-Za-z_0-9]*)" ) /cgmsx) { } |
|
|
3 |
0 |
elsif (/\G ( [\t ]* `([A-Za-z_][A-Za-z_0-9]*)` ) /cgmsx) { } |
|
3076
|
296 |
1068 |
if (/\G ( \s+ ) /cgmsx) { } |
|
|
389 |
679 |
elsif (/\G ( \( ) /cgmsx) { } |
|
|
16 |
663 |
elsif (/\G ( \# .* \n ) /cgmx) { } |
|
3094
|
24 |
655 |
if (m[\G ( [/] ) ]cgmsx) { } |
|
|
611 |
44 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
3111
|
18 |
6 |
unless ($modifier_not_cegir =~ /m/msx) |
|
3116
|
1 |
23 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
3121
|
6 |
18 |
if ($modifier_i) { } |
|
3134
|
8 |
603 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
8 |
595 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
32 |
563 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
83 |
480 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
16 |
464 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
184 |
280 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
280 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
3144
|
24 |
256 |
if (/\G ( [A-Za-z_0-9] ) /cgmsx) { } |
|
|
8 |
248 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
32 |
216 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
8 |
208 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
16 |
192 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
192 |
0 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
3156
|
607 |
4 |
unless ($modifier_not_cegir =~ /m/msx) |
|
3161
|
1 |
610 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
3166
|
16 |
595 |
if ($modifier_i) { } |
|
3197
|
42 |
0 |
if (/\G ( [A-Za-z_][A-Za-z_0-9]* (?: ::[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) |
|
3203
|
26 |
16 |
if (/\G ( [0-9]+ (?: \.[0-9]+)* ) /cgmsx) |
|
3211
|
12 |
30 |
if ($list eq '') { } |
|
|
8 |
22 |
elsif (scalar eval "()=$list" == 0) { } |
|
3525
|
34 |
4589 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
920 |
3669 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
3534
|
886 |
34 |
if (--$nest_bracket <= 0) |
|
3553
|
42 |
30 |
if (/\G (?= $endswith ) /cgmsx) { } |
|
3569
|
9 |
456 |
if (/\G ( $R $endswith ) /cgmsx) { } |
|
|
456 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3597
|
14 |
0 |
if (/\G ( $R $endswith ) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\L \\u /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\U \\l /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\L /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\U /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\l /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\u /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\Q /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\E /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (\\) ($x) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \@\{\^CAPTURE\} /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3768
|
0 |
258 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
53 |
205 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
205 |
elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { } |
|
3774
|
53 |
0 |
if (--$nest_bracket <= 0) |
|
3794
|
5979 |
8683 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
8683 |
elsif (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
3812
|
13 |
8875 |
if (/\G (\\\\) /cgmsx) { } |
|
|
8875 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3842
|
0 |
317 |
if (/\G (\\ \Q$open_bracket\E) /cgmsx) { } |
|
|
0 |
317 |
elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
317 |
elsif (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
85 |
232 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\L \\u) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\U \\l) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\L) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\U) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\l) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\u) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\Q) /cgmsx) { } |
|
|
0 |
232 |
elsif (/\G (\\E) /cgmsx) { } |
|
3856
|
85 |
0 |
if (--$nest_bracket <= 0) { } |
|
3936
|
67 |
18 |
if (wantarray) { } |
|
3954
|
0 |
689290 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
128003 |
561287 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\L \\u) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\U \\l) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\L) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\U) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\l) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\u) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\Q) /cgmsx) { } |
|
|
0 |
561287 |
elsif (/\G (\\E) /cgmsx) { } |
|
3961
|
0 |
128003 |
if CORE::length $1 >= 2 |
|
4034
|
1646 |
126357 |
if (wantarray) { } |
|
4050
|
0 |
561519 |
if (/\G ( \\o\{ (.*?) \} ) /cgmsx) { } |
|
|
1 |
561518 |
elsif (/\G ( \\x\{ (.*?) \} ) /cgmsx) { } |
|
|
269 |
561249 |
elsif (/\G ( (\\) ($x) ) /cgmsx) { } |
|
|
2 |
561247 |
elsif (/\G ( \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
2 |
561245 |
elsif (/\G ( \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
23 |
561222 |
elsif (/\G ( \$ ([1-9][0-9]*) ) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G ( \@\{\^CAPTURE\} ) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G (\$\{\^CAPTURE\}) \s* (\[) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G ( \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G ( \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
561222 |
elsif (/\G ( \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
561222 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
4168
|
561519 |
0 |
if (wantarray) { } |
|
4182
|
95 |
6322 |
if ($i + 1 < $#hyphened and $hyphened[$i + 1] eq '-' and 1) { } |
|
4186
|
4 |
91 |
$hyphened[$i + 0] eq '\\-' ? : |
|
4187
|
4 |
91 |
$hyphened[$i + 2] eq '\\-' ? : |
|
4188
|
0 |
95 |
if (do {
not $hyphened[$i + 0] =~ /\A [\x00-\x7F] \z/msx
}) { } |
|
|
0 |
95 |
elsif (not $hyphened[$i + 2] =~ /\A [\x00-\x7F] \z/msx) { } |
|
|
0 |
95 |
elsif ($hyphened[$i + 0] gt $hyphened[$i + 2]) { } |
|
4204
|
19 |
6303 |
if ($hyphened[$i] eq '\\-') { } |
|
4226
|
0 |
4160 |
if (/\G (\\ \Q$open_bracket\E) /cgmsx) { } |
|
|
0 |
4160 |
elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
4160 |
elsif (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
2080 |
2080 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
2080 |
elsif (/\G (\\ -) /cgmsx) { } |
|
4237
|
2080 |
0 |
if (--$nest_bracket <= 0) |
|
4262
|
0 |
4800 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
2238 |
2562 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
9 |
2553 |
elsif (/\G (\\ -) /cgmsx) { } |
|
4286
|
4 |
4629 |
if (do {
/\G \\ ( [0-3][0-7][0-7] | [0-7][0-7] | [0-7] ) /cgmsx
}) { } |
|
|
4 |
4625 |
elsif (/\G \\o ( [0-3][0-7][0-7] | [0-7][0-7] | [0-7] ) /cgmsx) { } |
|
|
4 |
4621 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
3 |
4618 |
elsif (/\G \\x ( [0-9A-Fa-f][0-9A-Fa-f] | [0-9A-Fa-f] ) /cgmsx) { } |
|
|
3 |
4615 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
9 |
4606 |
elsif (/\G ( \\c [\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_?] ) /cgmsx) { } |
|
|
16 |
4590 |
elsif (/\G ( \\ ([\\abefnrtElLuUQ]) ) /cgmsx) { } |
|
|
4590 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
4397
|
2994 |
5440 |
if (do {
CORE::length $a == 1
}) { } |
|
|
5440 |
0 |
elsif (CORE::length $a == 2) { } |
|
4399
|
434 |
2560 |
if (do {
CORE::length $b == 1
}) { } |
|
|
2560 |
0 |
elsif (CORE::length $b == 2) { } |
|
4402
|
274 |
0 |
$a[1] <= $b[1] ? : |
|
|
160 |
274 |
$a[1] <= 128 && 160 <= $b[1] ? : |
|
4411
|
1920 |
640 |
129 < $b[1] ? : |
|
|
1280 |
0 |
$a[1] <= 223 ? : |
|
|
0 |
1280 |
$a[1] < 160 ? : |
|
|
1280 |
1280 |
$a[1] <= 128 ? : |
|
4420
|
5440 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4422
|
5040 |
400 |
$a[1] < 252 ? : |
|
4426
|
5040 |
400 |
129 < $b[1] ? : |
|
4445
|
132 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4447
|
36 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4450
|
36 |
0 |
$a[1] <= $b[1] ? : |
|
4456
|
48 |
48 |
161 < $b[1] ? : |
|
4463
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4465
|
84 |
36 |
$a[1] < 254 ? : |
|
4469
|
84 |
36 |
161 < $b[1] ? : |
|
4488
|
132 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4490
|
36 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4493
|
36 |
0 |
$a[1] <= $b[1] ? : |
|
4499
|
48 |
48 |
129 < $b[1] ? : |
|
4506
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4508
|
84 |
36 |
$a[1] < 254 ? : |
|
4512
|
84 |
36 |
129 < $b[1] ? : |
|
4531
|
2652 |
15600 |
if (do {
CORE::length $a == 1
}) { } |
|
|
8528 |
7072 |
elsif (CORE::length $a == 2) { } |
|
|
7072 |
0 |
elsif (CORE::length $a == 4) { } |
|
4533
|
156 |
2496 |
if (do {
CORE::length $b == 1
}) { } |
|
|
832 |
1664 |
elsif (CORE::length $b == 2) { } |
|
|
1664 |
0 |
elsif (CORE::length $b == 4) { } |
|
4536
|
156 |
0 |
$a[1] <= $b[1] ? : |
|
4542
|
416 |
416 |
129 < $b[1] ? : |
|
4549
|
832 |
832 |
129 < $b[3] ? : |
|
|
832 |
832 |
48 < $b[2] ? : |
|
|
832 |
832 |
129 < $b[1] ? : |
|
4559
|
1872 |
6656 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6656 |
0 |
elsif (CORE::length $b == 4) { } |
|
4561
|
1352 |
520 |
$a[1] < 254 ? : |
|
4565
|
1352 |
520 |
129 < $b[1] ? : |
|
4573
|
3328 |
3328 |
129 < $b[3] ? : |
|
|
3328 |
3328 |
48 < $b[2] ? : |
|
|
3328 |
3328 |
129 < $b[1] ? : |
|
|
3328 |
3328 |
$a[1] < 254 ? : |
|
4583
|
7072 |
0 |
if (do {
CORE::length $b == 4
}) |
|
4585
|
5200 |
1872 |
$a[1] < 254 ? : |
|
|
4368 |
2704 |
$a[2] < 57 ? : |
|
|
3952 |
3120 |
$a[3] < 254 ? : |
|
4591
|
3952 |
3120 |
129 < $b[3] ? : |
|
|
4368 |
2704 |
48 < $b[2] ? : |
|
|
5200 |
1872 |
129 < $b[1] ? : |
|
4612
|
9736 |
80390 |
if (do {
CORE::length $a == 1
}) { } |
|
|
12692 |
67698 |
elsif (CORE::length $a == 2) { } |
|
|
27378 |
40320 |
elsif (CORE::length $a == 3) { } |
|
|
40320 |
0 |
elsif (CORE::length $a == 4) { } |
|
4614
|
424 |
9312 |
if (do {
CORE::length $b == 1
}) { } |
|
|
816 |
8496 |
elsif (CORE::length $b == 2) { } |
|
|
3376 |
5120 |
elsif (CORE::length $b == 3) { } |
|
|
5120 |
0 |
elsif (CORE::length $b == 4) { } |
|
4617
|
424 |
0 |
$a[1] <= $b[1] ? : |
|
4623
|
408 |
408 |
194 < $b[1] ? : |
|
4630
|
2096 |
1280 |
128 < $b[2] ? : |
|
|
2712 |
664 |
224 < $b[1] ? : |
|
4639
|
2560 |
2560 |
128 < $b[3] ? : |
|
|
3296 |
1824 |
128 < $b[2] ? : |
|
|
3776 |
1344 |
240 < $b[1] ? : |
|
4650
|
868 |
11824 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6448 |
5376 |
elsif (CORE::length $b == 3) { } |
|
|
5376 |
0 |
elsif (CORE::length $b == 4) { } |
|
4652
|
600 |
268 |
$a[1] < 223 ? : |
|
4656
|
600 |
268 |
194 < $b[1] ? : |
|
4664
|
3888 |
2560 |
128 < $b[2] ? : |
|
|
5272 |
1176 |
224 < $b[1] ? : |
|
|
3224 |
3224 |
$a[1] < 223 ? : |
|
4673
|
2688 |
2688 |
128 < $b[3] ? : |
|
|
3552 |
1824 |
128 < $b[2] ? : |
|
|
3904 |
1472 |
240 < $b[1] ? : |
|
|
2688 |
2688 |
$a[1] < 223 ? : |
|
4684
|
19442 |
7936 |
if (do {
CORE::length $b == 3
}) { } |
|
|
7936 |
0 |
elsif (CORE::length $b == 4) { } |
|
4686
|
18726 |
716 |
$a[1] < 239 ? : |
|
|
11750 |
7692 |
$a[2] < 191 ? : |
|
4691
|
10802 |
8640 |
128 < $b[2] ? : |
|
|
18726 |
716 |
224 < $b[1] ? : |
|
4700
|
3968 |
3968 |
128 < $b[3] ? : |
|
|
6112 |
1824 |
128 < $b[2] ? : |
|
|
5184 |
2752 |
240 < $b[1] ? : |
|
|
4992 |
2944 |
$a[1] < 239 ? : |
|
|
4224 |
3712 |
$a[2] < 191 ? : |
|
4711
|
40320 |
0 |
if (do {
CORE::length $b == 4
}) |
|
4713
|
37520 |
2800 |
$a[1] < 244 ? : |
|
|
23448 |
16872 |
$a[2] < 191 ? : |
|
|
21408 |
18912 |
$a[3] < 191 ? : |
|
4719
|
21408 |
18912 |
128 < $b[3] ? : |
|
|
23448 |
16872 |
128 < $b[2] ? : |
|
|
37520 |
2800 |
240 < $b[1] ? : |
|
4762
|
45 |
0 |
if (my($m) = $source =~ /\A \( \? \^? (.*?) : /x) |
|
4775
|
12 |
324 |
if (my($negative, $class) = $before =~ /\A \[ (\^?) ((?>\\$x|$x)+?) \] \z/x) { } |
|
|
4 |
320 |
elsif ($before eq '.') { } |
|
|
0 |
320 |
elsif ($before eq '\\B') { } |
|
|
0 |
320 |
elsif ($before eq '\\D') { } |
|
|
0 |
320 |
elsif ($before eq '\\H') { } |
|
|
0 |
320 |
elsif ($before eq '\\N') { } |
|
|
0 |
320 |
elsif ($before eq '\\R') { } |
|
|
0 |
320 |
elsif ($before eq '\\S') { } |
|
|
0 |
320 |
elsif ($before eq '\\V') { } |
|
|
0 |
320 |
elsif ($before eq '\\W') { } |
|
|
0 |
320 |
elsif ($before eq '\\b') { } |
|
|
1 |
319 |
elsif ($before eq '\\d') { } |
|
|
0 |
319 |
elsif ($before eq '\\h') { } |
|
|
1 |
318 |
elsif ($before eq '\\s') { } |
|
|
0 |
318 |
elsif ($before eq '\\v') { } |
|
|
1 |
317 |
elsif ($before eq '\\w') { } |
|
|
52 |
265 |
elsif ($before =~ /\A[?+*{]\z/) { } |
|
|
0 |
265 |
elsif ($before =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x) { } |
|
4784
|
13 |
2 |
if ($i < $#classmate and $classmate[$i + 1] eq '-') { } |
|
4785
|
0 |
13 |
$classmate[$i + 0] =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x ? : |
|
4786
|
0 |
13 |
$classmate[$i + 2] =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x ? : |
|
4795
|
0 |
2 |
if ($classmate =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x) { } |
|
|
0 |
2 |
elsif ($classmate eq '\\D') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\H') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\S') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\V') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\W') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\b') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\d') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\h') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\s') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\v') { } |
|
|
0 |
2 |
elsif ($classmate eq '\\w') { } |
|
|
0 |
2 |
elsif ($classmate eq '[:alnum:]') { } |
|
|
1 |
1 |
elsif ($classmate eq '[:alpha:]') { } |
|
|
0 |
1 |
elsif ($classmate eq '[:ascii:]') { } |
|
|
0 |
1 |
elsif ($classmate eq '[:blank:]') { } |
|
|
0 |
1 |
elsif ($classmate eq '[:cntrl:]') { } |
|
|
1 |
0 |
elsif ($classmate eq '[:digit:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:graph:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:lower:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:print:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:punct:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:space:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:upper:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:word:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:xdigit:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^alnum:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^alpha:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^ascii:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^blank:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^cntrl:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^digit:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^graph:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^lower:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^print:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^punct:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^space:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^upper:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^word:]') { } |
|
|
0 |
0 |
elsif ($classmate eq '[:^xdigit:]') { } |
|
|
0 |
0 |
elsif (CORE::length $classmate == 1) { } |
|
4854
|
2 |
10 |
if ($negative eq '^') { } |
|
|
0 |
10 |
elsif ($] =~ /\A5\.006/) { } |
|
4855
|
0 |
0 |
@sbcs && !@xbcs ? : |
|
|
2 |
0 |
!@sbcs && @xbcs ? : |
|
|
0 |
2 |
@sbcs && @xbcs ? : |
|
4864
|
0 |
0 |
@sbcs && !@xbcs ? : |
|
|
0 |
0 |
!@sbcs && @xbcs ? : |
|
|
0 |
0 |
@sbcs && @xbcs ? : |
|
4873
|
2 |
0 |
@sbcs && !@xbcs ? : |
|
|
8 |
2 |
!@sbcs && @xbcs ? : |
|
|
0 |
10 |
@sbcs && @xbcs ? : |
|
4882
|
1 |
3 |
$modifiers =~ /s/ ? : |
|
4900
|
0 |
52 |
if (do {
$after[-1] =~ /\A \\c [\x00-\xFF] \z/x
}) { } |
|
|
0 |
52 |
elsif ($after[-1] =~ /\A \\ [\x00-\xFF] \z/x) { } |
|
|
45 |
7 |
elsif ($after[-1] =~ /\A [\x00-\xFF] \z/x) { } |
|
|
3 |
4 |
elsif ($after[-1] =~ / [\x00-\xFF] [)}\]] \z/x) { } |
|
4933
|
2 |
43 |
if ($modifiers ne '') { } |
|
4962
|
0 |
353332 |
if (do {
$codepoint_class =~ /\G\\o\{([01234567]+)\}/cgmsx
}) { } |
|
|
0 |
353332 |
elsif ($codepoint_class =~ /\G\\x\{([0123456789ABCDEFabcdef]+)\}/cgmsx) { } |
|
|
100 |
353232 |
elsif ($codepoint_class =~ /\G(\[:.+?:\])/cgmsx) { } |
|
|
562 |
352670 |
elsif ($codepoint_class =~ /\G((?>\\$x))/cgmsx) { } |
|
|
352670 |
0 |
elsif ($codepoint_class =~ /\G($x)/cgmsx) { } |
|
4988
|
117303 |
1423 |
if ($i < $#classmate and $classmate[$i + 1] eq '-') { } |
|
|
34 |
1389 |
elsif ($classmate eq '\\D') { } |
|
|
10 |
1379 |
elsif ($classmate eq '\\H') { } |
|
|
19 |
1360 |
elsif ($classmate eq '\\S') { } |
|
|
16 |
1344 |
elsif ($classmate eq '\\V') { } |
|
|
193 |
1151 |
elsif ($classmate eq '\\W') { } |
|
|
6 |
1145 |
elsif ($classmate eq '\\b') { } |
|
|
34 |
1111 |
elsif ($classmate eq '\\d') { } |
|
|
10 |
1101 |
elsif ($classmate eq '\\h') { } |
|
|
19 |
1082 |
elsif ($classmate eq '\\s') { } |
|
|
16 |
1066 |
elsif ($classmate eq '\\v') { } |
|
|
193 |
873 |
elsif ($classmate eq '\\w') { } |
|
|
19 |
854 |
elsif ($classmate eq '[:alnum:]') { } |
|
|
3 |
851 |
elsif ($classmate eq '[:alpha:]') { } |
|
|
3 |
848 |
elsif ($classmate eq '[:ascii:]') { } |
|
|
3 |
845 |
elsif ($classmate eq '[:blank:]') { } |
|
|
3 |
842 |
elsif ($classmate eq '[:cntrl:]') { } |
|
|
3 |
839 |
elsif ($classmate eq '[:digit:]') { } |
|
|
3 |
836 |
elsif ($classmate eq '[:graph:]') { } |
|
|
3 |
833 |
elsif ($classmate eq '[:lower:]') { } |
|
|
3 |
830 |
elsif ($classmate eq '[:print:]') { } |
|
|
3 |
827 |
elsif ($classmate eq '[:punct:]') { } |
|
|
3 |
824 |
elsif ($classmate eq '[:space:]') { } |
|
|
3 |
821 |
elsif ($classmate eq '[:upper:]') { } |
|
|
3 |
818 |
elsif ($classmate eq '[:word:]') { } |
|
|
3 |
815 |
elsif ($classmate eq '[:xdigit:]') { } |
|
|
3 |
812 |
elsif ($classmate eq '[:^alnum:]') { } |
|
|
3 |
809 |
elsif ($classmate eq '[:^alpha:]') { } |
|
|
3 |
806 |
elsif ($classmate eq '[:^ascii:]') { } |
|
|
3 |
803 |
elsif ($classmate eq '[:^blank:]') { } |
|
|
3 |
800 |
elsif ($classmate eq '[:^cntrl:]') { } |
|
|
3 |
797 |
elsif ($classmate eq '[:^digit:]') { } |
|
|
3 |
794 |
elsif ($classmate eq '[:^graph:]') { } |
|
|
3 |
791 |
elsif ($classmate eq '[:^lower:]') { } |
|
|
3 |
788 |
elsif ($classmate eq '[:^print:]') { } |
|
|
3 |
785 |
elsif ($classmate eq '[:^punct:]') { } |
|
|
3 |
782 |
elsif ($classmate eq '[:^space:]') { } |
|
|
3 |
779 |
elsif ($classmate eq '[:^upper:]') { } |
|
|
3 |
776 |
elsif ($classmate eq '[:^word:]') { } |
|
|
3 |
773 |
elsif ($classmate eq '[:^xdigit:]') { } |
|
|
12 |
761 |
elsif ($classmate =~ /\G (\\) ($x) /cgmsx) { } |
|
|
761 |
0 |
elsif ($classmate =~ /\G ($x) /cgmsx) { } |
|
4991
|
8434 |
108869 |
if (do {
$script_encoding =~ /\A (?: sjis ) \z/msx
}) { } |
|
|
252 |
108617 |
elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { } |
|
|
252 |
108365 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { } |
|
|
18252 |
90113 |
elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { } |
|
|
90113 |
0 |
elsif ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
5062
|
12 |
0 |
if (CORE::length $2 == 1) { } |
|
5072
|
417 |
344 |
if (CORE::length $1 == 1) { } |
|
5092
|
398 |
0 |
@sbcs && !@xbcs ? : |
|
|
117848 |
398 |
!@sbcs && @xbcs ? : |
|
|
28 |
118246 |
@sbcs && @xbcs ? : |
|
5106
|
948 |
1008 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
566 |
442 |
elsif (/\G \[ /cgmsx) { } |
|
|
2 |
440 |
elsif (/\G \. /cgmsx) { } |
|
|
2 |
438 |
elsif (/\G \\B /cgmsx) { } |
|
|
12 |
426 |
elsif (/\G \\D /cgmsx) { } |
|
|
4 |
422 |
elsif (/\G \\H /cgmsx) { } |
|
|
2 |
420 |
elsif (/\G \\N /cgmsx) { } |
|
|
2 |
418 |
elsif (/\G \\R /cgmsx) { } |
|
|
7 |
411 |
elsif (/\G \\S /cgmsx) { } |
|
|
6 |
405 |
elsif (/\G \\V /cgmsx) { } |
|
|
65 |
340 |
elsif (/\G \\W /cgmsx) { } |
|
|
2 |
338 |
elsif (/\G \\b /cgmsx) { } |
|
|
12 |
326 |
elsif (/\G \\d /cgmsx) { } |
|
|
4 |
322 |
elsif (/\G \\h /cgmsx) { } |
|
|
7 |
315 |
elsif (/\G \\s /cgmsx) { } |
|
|
6 |
309 |
elsif (/\G \\v /cgmsx) { } |
|
|
65 |
244 |
elsif (/\G \\w /cgmsx) { } |
|
|
0 |
244 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
0 |
244 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
0 |
244 |
elsif (/\G (\\ 0[1-7]*) /cgmsx) { } |
|
|
0 |
244 |
elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { } |
|
|
0 |
244 |
elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { } |
|
|
244 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5115
|
566 |
1200 |
if (/\G \] /cgmsx) { } |
|
|
28 |
1172 |
elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { } |
|
|
44 |
1128 |
elsif (/\G (\[:[a-z]*:\]) /cgmsx) { } |
|
|
1128 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5187
|
0 |
0 |
if ($operator eq 's') { } |
|
5197
|
99 |
145 |
if (CORE::length $1 == 1) { } |
|
5229
|
0 |
1133 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
564 |
569 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\L \\u /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\U \\l /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\L /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\U /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\l /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\u /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\Q /cgmsx) { } |
|
|
0 |
569 |
elsif (/\G \\E /cgmsx) { } |
|
5234
|
564 |
0 |
if (--$nest_bracket <= 0) { } |
|
5310
|
120538 |
121936 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\L \\u /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\U \\l /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\L /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\U /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\l /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\u /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\Q /cgmsx) { } |
|
|
0 |
121936 |
elsif (/\G \\E /cgmsx) { } |
|
5382
|
118842 |
3663 |
if (/\G \[ /cgmsx) { } |
|
|
21 |
3642 |
elsif (/\G \. /cgmsx) { } |
|
|
7 |
3635 |
elsif (/\G \\B /cgmsx) { } |
|
|
18 |
3617 |
elsif (/\G \\D /cgmsx) { } |
|
|
10 |
3607 |
elsif (/\G \\H /cgmsx) { } |
|
|
8 |
3599 |
elsif (/\G \\N /cgmsx) { } |
|
|
12 |
3587 |
elsif (/\G \\R /cgmsx) { } |
|
|
14 |
3573 |
elsif (/\G \\S /cgmsx) { } |
|
|
12 |
3561 |
elsif (/\G \\V /cgmsx) { } |
|
|
71 |
3490 |
elsif (/\G \\W /cgmsx) { } |
|
|
7 |
3483 |
elsif (/\G \\b /cgmsx) { } |
|
|
17 |
3466 |
elsif (/\G \\d /cgmsx) { } |
|
|
10 |
3456 |
elsif (/\G \\h /cgmsx) { } |
|
|
18 |
3438 |
elsif (/\G \\s /cgmsx) { } |
|
|
14 |
3424 |
elsif (/\G \\v /cgmsx) { } |
|
|
70 |
3354 |
elsif (/\G \\w /cgmsx) { } |
|
|
0 |
3354 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3354 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3354 |
elsif (/\G (\\ 0[1-7]*) /cgmsx) { } |
|
|
0 |
3354 |
elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { } |
|
|
24 |
3330 |
elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { } |
|
|
8 |
3322 |
elsif (/\G (\\) ($x) /cgmsx) { } |
|
|
0 |
3322 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
0 |
3322 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
24 |
3298 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
0 |
3298 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
0 |
3298 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
3298 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
3298 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
3298 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
3298 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5385
|
118842 |
413831 |
if (/\G \] /cgmsx) { } |
|
|
510 |
413321 |
elsif (/\G (\\) /cgmsx) { } |
|
|
98 |
413223 |
elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { } |
|
|
114 |
413109 |
elsif (/\G (\[:[a-z]*:\]) /cgmsx) { } |
|
|
413109 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5464
|
0 |
24 |
if ($operator eq 's') { } |
|
5474
|
8 |
0 |
if (CORE::length $2 == 1) { } |
|
5551
|
2735 |
563 |
if (CORE::length $1 == 1) { } |
|
5578
|
0 |
122351 |
if (/\G [adlpu] /cgmsx) { } |
|
|
100 |
122251 |
elsif (/\G ([i]) /cgmsx) { } |
|
|
36 |
122215 |
elsif (/\G ([cegr]) /cgmsx) { } |
|
|
165 |
122050 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
5603
|
0 |
2247 |
if (/\G ([r]) /cgmsx) { } |
|
|
88 |
2159 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
5626
|
9 |
3258 |
if ($searchlist =~ /\G (\\-) /cgmsx) { } |
|
|
31 |
3227 |
elsif ($searchlist =~ /\G (-) /cgmsx) { } |
|
|
1036 |
2191 |
elsif ($searchlist =~ /\G ([$escapee_in_qq_like]) /cgmsx) { } |
|
|
2191 |
0 |
elsif ($searchlist =~ /\G ($x) /cgmsx) { } |
|
5642
|
1160 |
1031 |
if (CORE::length $1 == 1) { } |
|
5663
|
1116 |
0 |
@sbcs && !@xbcs ? : |
|
|
21 |
1116 |
!@sbcs && @xbcs ? : |
|
|
994 |
1137 |
@sbcs && @xbcs ? : |
|
5672
|
3266 |
0 |
if (CORE::length $_[0] >= 2) { } |
|
5684
|
0 |
570097 |
if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
1992 |
568105 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { } |
|
5706
|
0 |
976273 |
if ($codepoint eq '`') { } |
|
|
1032 |
975241 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
18843 |
956398 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { } |
|
5724
|
0 |
4608 |
if ($codepoint =~ /\A (\Q$endswith\E) \z/msx) { } |
|
|
0 |
4608 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
1988 |
2620 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { } |
|
5742
|
28 |
462 |
if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
82 |
380 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { } |