| line |
true |
false |
branch |
|
25
|
103 |
2 |
if $INC[-1] eq "." |
|
27
|
0 |
105 |
if ($] < "5.006" and not defined &warnings::import) |
|
81
|
0 |
103 |
if (defined $_[0] and $_[0] =~ /\A [0-9] /msx) |
|
82
|
0 |
0 |
if ($_[0] ne $mb::VERSION) |
|
93
|
10 |
93 |
if (defined $_[0]) { } |
|
95
|
10 |
0 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
131
|
0 |
0 |
if (scalar @ARGV == 0) |
|
158
|
0 |
0 |
if (($encoding) = $ARGV[0] =~ /\A -e ( .+ ) \z/msx) { } |
|
|
0 |
0 |
elsif ($ARGV[0] =~ /\A -e \z/msx) { } |
|
159
|
0 |
0 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
169
|
0 |
0 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | gb18030 | gbk | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
184
|
0 |
0 |
if (not -e $script_oo or mtime($script_oo) <= mtime($ARGV[0]) or mtime($script_oo) <= mtime(__FILE__)) |
|
191
|
0 |
0 |
unless my $fh = &_open_r($ARGV[0]) |
|
200
|
0 |
0 |
if (mkdir "$ARGV[0].lock", 493) { } |
|
201
|
0 |
0 |
unless my $fh = &_open_w($script_oo) |
|
215
|
0 |
0 |
if ($OSNAME =~ /MSWin32/) { } |
|
216
|
0 |
0 |
if ($0 =~ m( ([^\/\\]+)\.pm \z)imsx) { } |
|
227
|
0 |
0 |
if ($0 =~ m[ ([^\/]+)\.pm \z]imsx) { } |
|
239
|
0 |
0 |
if ($OSNAME =~ /MSWin32/) |
|
244
|
0 |
0 |
if (/\A (?:$x)*? [ ] /msx) { } |
|
|
0 |
0 |
elsif (/\A (?:$x)*? [*?] /msx) { } |
|
245
|
0 |
0 |
if (my(@glob) = &dosglob(qq["$_"])) { } |
|
255
|
0 |
0 |
if (my(@glob) = &dosglob($_)) { } |
|
273
|
0 |
0 |
if (/ /) { } |
|
319
|
12 |
6 |
@_ ? : |
|
320
|
20 |
6 |
if (my(@x) = /\G$x/g) |
|
331
|
23 |
4 |
@_ ? : |
|
350
|
5 |
0 |
if (-f $prefix_file) |
|
354
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
359
|
0 |
5 |
unless my $fh = &_open_r($prefix_file) |
|
365
|
5 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
366
|
0 |
5 |
unless my $fh = &_open_w($prefix_file_oo) |
|
393
|
8 |
0 |
@_ ? : |
|
397
|
8 |
0 |
if (not $OSNAME =~ /MSWin32/) { } |
|
409
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \& /msx |
|
410
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \( /msx |
|
411
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \) /msx |
|
412
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \< /msx |
|
413
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \> /msx |
|
414
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \^ /msx |
|
415
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \| /msx |
|
419
|
0 |
0 |
if (my($dir) = $pattern =~ /\A ($x*) \\ /msx) { } |
|
430
|
0 |
20 |
unless &mb::uc($a) cmp &mb::uc($b) |
|
436
|
15016 |
20 |
@_ ? : |
|
449
|
36 |
1 |
@_ ? : |
|
450
|
0 |
37 |
if @_ and not wantarray |
|
452
|
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) { } |
|
453
|
18 |
18 |
if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx) |
|
458
|
0 |
0 |
if ($getc =~ /\A [\xA1-\xFE] \z/msx) |
|
463
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
468
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
470
|
0 |
0 |
if ($getc =~ /\A [\x81-\xFE] [\x30-\x39] \z/msx) |
|
477
|
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) { } |
|
492
|
1 |
36 |
wantarray ? : |
|
499
|
4 |
4 |
if (@_ == 3) { } |
|
505
|
4 |
4 |
if ($index == -1) { } |
|
520
|
12 |
166 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
521
|
8 |
4 |
if ($pos >= $position) |
|
525
|
170 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
538
|
10 |
1 |
@_ ? : |
|
540
|
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"}->{$_} |
|
547
|
1 |
1 |
@_ ? : |
|
548
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
559
|
12 |
4 |
@_ ? : |
|
566
|
2 |
2 |
@_ ? : |
|
568
|
4 |
0 |
if (/\A($x)/) |
|
579
|
5 |
0 |
@_ ? : |
|
582
|
0 |
5 |
if (/^[0-9]/) { } |
|
583
|
0 |
0 |
if ($] < $_) { } |
|
597
|
0 |
5 |
if ($file =~ s[::][/]g or not $file =~ m([\./\\])) |
|
600
|
1 |
4 |
if (exists $INC{$file}) |
|
602
|
1 |
0 |
if $INC{$file} |
|
606
|
4 |
0 |
if (-f $prefix_file) |
|
610
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
615
|
0 |
4 |
unless my $fh = &_open_r($prefix_file) |
|
621
|
4 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
622
|
0 |
4 |
unless my $fh = &_open_w($prefix_file_oo) |
|
643
|
0 |
4 |
if ($@) { } |
|
|
0 |
4 |
elsif (not $result) { } |
|
665
|
2 |
8 |
if (wantarray) { } |
|
675
|
4 |
4 |
@_ ? : |
|
689
|
4 |
4 |
if (@_ == 3) { } |
|
695
|
4 |
4 |
if ($rindex == -1) { } |
|
711
|
20 |
210 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
714
|
230 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
795
|
98 |
96 |
if ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
|
96 |
0 |
elsif ($] >= 5.038) { } |
|
|
0 |
0 |
elsif ($] >= 5.03) { } |
|
|
0 |
0 |
elsif ($] >= 5.010001) { } |
|
879
|
105 |
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) { } |
|
936
|
2470 |
42 |
defined $_[3] ? : |
|
942
|
3274 |
60 |
unless (exists $tr{$search[$i]}) |
|
945
|
3069 |
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 '') { } |
|
970
|
126 |
2386 |
if (exists $modifier{'c'}) { } |
|
973
|
54 |
72 |
if (exists $modifier{'s'}) { } |
|
978
|
252 |
176 |
if (exists $tr{$x}) { } |
|
985
|
124 |
52 |
if (exists $modifier{'d'}) { } |
|
|
52 |
0 |
elsif (defined $replacement[-1]) { } |
|
991
|
9 |
43 |
if (defined $last_transliterated and $replacement[-1] eq $last_transliterated) { } |
|
1009
|
210 |
104 |
if (exists $tr{$x}) { } |
|
1015
|
34 |
70 |
if (exists $modifier{'d'}) { } |
|
|
70 |
0 |
elsif (defined $replacement[-1]) { } |
|
1032
|
85 |
2301 |
if (exists $modifier{'s'}) { } |
|
1035
|
425 |
168 |
if (exists $tr{$x}) { } |
|
1038
|
89 |
336 |
if ($tr{$x} eq '') { } |
|
|
177 |
159 |
elsif (defined $last_transliterated and $tr{$x} eq $last_transliterated) { } |
|
1061
|
2603 |
128 |
if (exists $tr{$x}) { } |
|
1073
|
2344 |
168 |
if (exists $modifier{'r'}) { } |
|
1087
|
45 |
1 |
@_ ? : |
|
1089
|
414 |
456 |
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"}->{$_} |
|
1096
|
1 |
1 |
@_ ? : |
|
1097
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
1112
|
29 |
61 |
if ($mb::last_s_passed) { } |
|
1113
|
29 |
0 |
if (defined $_[0]) { } |
|
1120
|
0 |
0 |
if ($] >= 5.006) { } |
|
1136
|
61 |
0 |
if (defined $_[0]) { } |
|
1141
|
0 |
0 |
if ($] >= 5.006) { } |
|
1162
|
5 |
5 |
if ($mb::last_s_passed) { } |
|
1163
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1171
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1186
|
9 |
9 |
if ($mb::last_s_passed) { } |
|
1187
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1195
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1207
|
61 |
0 |
if (defined $&) { } |
|
1208
|
8 |
53 |
if ($mb::last_s_passed) { } |
|
1209
|
8 |
0 |
if (defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1) { } |
|
1217
|
53 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1233
|
15 |
0 |
if (defined $&) { } |
|
1234
|
8 |
7 |
if ($mb::last_s_passed) { } |
|
1238
|
7 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1286
|
33 |
391 |
if (defined $classmate) { } |
|
1297
|
559 |
134 |
unless ($element =~ /\A[$bare_s]\z/) |
|
1333
|
60 |
452 |
if (defined $classmate) { } |
|
1415
|
58974 |
59295 |
if ($classmate =~ s/\A \^ //msx) { } |
|
1426
|
10 |
12 |
if (my(@codepoint) = $_[0] =~ /\G($x)/cgmsx) { } |
|
1427
|
5 |
5 |
if (CORE::length $codepoint[$#codepoint] == 1) { } |
|
1447
|
0 |
0 |
unless open $fhn, ">> $_[0]" |
|
1456
|
0 |
9 |
unless open $fhn, $_[0] |
|
1465
|
0 |
9 |
unless open $fhn, "> $_[0]" |
|
1472
|
306 |
30 |
defined $_[0] ? : |
|
1473
|
202 |
134 |
defined $_[1] ? : |
|
1485
|
108 |
228 |
if ($pattern eq " ") |
|
1493
|
34 |
302 |
if (($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx) { } |
|
1524
|
21 |
315 |
'' =~ / \A $pattern \z /msx ? : |
|
1527
|
21 |
315 |
if (defined $_[2] and $_[2] >= 1) { } |
|
1553
|
303 |
33 |
if (CORE::length $string > 0) { } |
|
|
6 |
48 |
elsif (defined $_[2] and $_[2] >= 1) { } |
|
1557
|
6 |
0 |
if (scalar @split < $_[2]) |
|
1563
|
309 |
27 |
if (not defined $_[2] or $_[2] == 0) |
|
1572
|
203 |
133 |
if (wantarray) { } |
|
1589
|
2 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1590
|
0 |
2 |
if (@_ == 0) { } |
|
1599
|
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) { } |
|
1603
|
0 |
0 |
if (defined wantarray) { } |
|
1611
|
0 |
0 |
if (defined wantarray) { } |
|
1627
|
0 |
0 |
$filetest[-1] eq '-t' ? : |
|
|
11209 |
0 |
@_ ? : |
|
1628
|
0 |
11209 |
if @_ and not wantarray |
|
1631
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1642
|
9166 |
2043 |
if ($result = eval $filetest . ' $_') { } |
|
1645
|
0 |
2043 |
wantarray ? : |
|
1648
|
7 |
0 |
if ($result = eval $filetest . ' _') { } |
|
1651
|
0 |
0 |
wantarray ? : |
|
1654
|
0 |
9166 |
wantarray ? : |
|
1660
|
3 |
0 |
@_ ? : |
|
1661
|
0 |
3 |
if ($_ eq "_") |
|
1666
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1680
|
3 |
4 |
unless (defined $_[0]) |
|
1685
|
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].") { } |
|
1700
|
9 |
0 |
@_ ? : |
|
1703
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1719
|
10222 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1720
|
10222 |
0 |
@_ ? : |
|
1724
|
0 |
0 |
@_ ? : |
|
1725
|
0 |
0 |
if (unlink $_) { } |
|
|
0 |
0 |
elsif (unlink "$_.") { } |
|
1744
|
0 |
103 |
if ($OSNAME =~ /MSWin32/) { } |
|
|
0 |
103 |
elsif ($OSNAME =~ /solaris/) { } |
|
|
0 |
103 |
elsif ($OSNAME =~ /hpux/) { } |
|
|
0 |
103 |
elsif ($OSNAME =~ /aix/) { } |
|
1745
|
0 |
0 |
if (my($codepage) = `chcp` =~ /[^0123456789](932|936|949|950|951|20932|54936)\Z/) { } |
|
1766
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
1790
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
1811
|
0 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
0 |
defined $ENV{'LC_ALL'} ? : |
|
1836
|
0 |
103 |
defined $ENV{'LANG'} ? : |
|
|
0 |
103 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
103 |
defined $ENV{'LC_ALL'} ? : |
|
1869
|
117325 |
19414 |
@_ ? : |
|
1942
|
99 |
275505 |
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) |
|
1966
|
2 |
680338 |
if (/\G ^ ( (?: __END__ | __DATA__ ) $R .* ) \z/cgmsx) { } |
|
|
1 |
680337 |
elsif (/\G ^ ( = [A-Za-z_][A-Za-z_0-9]* [\x00-\xFF]*? $R =cut \b [^\n]* $R ) /cgmsx) { } |
|
|
8284 |
672053 |
elsif (/\G (?= $R ) /cgmsx) { } |
|
|
256597 |
415456 |
elsif (/\G ( [\t ]+ ) /cgmsx) { } |
|
|
5121 |
410335 |
elsif (/\G ( ; ) /cgmsx) { } |
|
|
315 |
410020 |
elsif (/\G ( [(\{\[] ) /cgmsx) { } |
|
|
2 |
410018 |
elsif (/\G (
v [0-9]+ (?: \.[0-9]+ ){1,} \b |
[0-9]+ (?: \.[0-9]+ ){2,} \b
) /cgmsx) { } |
|
|
1 |
410017 |
elsif (/\G v ( [0-9]+ ) \b (?! \s* => ) /cgmsx) { } |
|
|
840 |
409177 |
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 |
409177 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= (?: \( \s* )* (?: ' | " | ` | \$ | (?: (?: m | q | qq | qr | qw | qx | s | tr | y ) \b )) ) /cgmsx) { } |
|
|
2828 |
406349 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= [A-Za-z_][A-Za-z0-9_]* ) /cgmsx) { } |
|
|
8409 |
397940 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) /cgmsx) { } |
|
|
1 |
397939 |
elsif (/\G ( \.\.\. ) /cgmsx) { } |
|
|
1 |
397938 |
elsif (/\G ( -> \s* [A-Za-z_][A-Za-z_0-9]* ) /cgmsx) { } |
|
|
121435 |
276503 |
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) { } |
|
|
2428 |
274075 |
elsif (/\G ( (?: and | cmp | eq | ge | gt | isa | le | lt | ne | not | or | x | x= | xor ) \b ) /cgmsx) { } |
|
|
20 |
274055 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
68 |
273987 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
55 |
273932 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
3 |
273929 |
elsif (/\G \@\{\^CAPTURE\} /cgmsx) { } |
|
|
3 |
273926 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
12 |
273914 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
22 |
273892 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
12 |
273880 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
14 |
273866 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
11 |
273855 |
elsif (/\G ( CORE:: (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
30 |
273825 |
elsif (/\G (?: mb:: | $old_package )? ( (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
10 |
273815 |
elsif (/\G ((?: \$[#] | [\$\@%&*] | defer | sub ) \s* ) ( \{ ) /cgmsx) { } |
|
|
3 |
273812 |
elsif (/\G ( (?: mb:: | CORE:: )? do ) \b /cgmsx) { } |
|
|
3 |
273809 |
elsif (/\G ( (?: mb:: | CORE:: )? eval ) \b /cgmsx) { } |
|
|
3 |
273806 |
elsif (/\G ( [\$] [#] (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
4964 |
268842 |
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) { } |
|
|
119 |
268723 |
elsif (/\G ( [\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [_] ) ) /cgmsx) { } |
|
|
11 |
268712 |
elsif (/\G ( [\%\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [!+\-] ) ) /cgmsx) { } |
|
|
12 |
268700 |
elsif (/\G ( [&*] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
17 |
268683 |
elsif (/\G ( [#] [^\n]* ) /cgmsx) { } |
|
|
5828 |
262855 |
elsif (/\G ( ' ) /cgmsx) { } |
|
|
126173 |
136682 |
elsif (/\G ( ["`] ) /cgmsx) { } |
|
|
118038 |
18644 |
elsif (m[\G ( [/] ) ]cgmsx) { } |
|
|
1 |
18643 |
elsif (/\G ( [?] ) /cgmsx) { } |
|
|
1 |
18642 |
elsif (/\G ( <<>> ) /cgmsx) { } |
|
|
5 |
18637 |
elsif (/\G (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
160 |
18477 |
elsif (/\G ( qw | q ) \b /cgmsx) { } |
|
|
69 |
18408 |
elsif (/\G ( qq ) \b /cgmsx) { } |
|
|
67 |
18341 |
elsif (/\G ( qx ) \b /cgmsx) { } |
|
|
1655 |
16686 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
|
1712 |
14974 |
elsif (/\G ( s ) \b /cgmsx) { } |
|
|
2153 |
12821 |
elsif (/\G (?: tr | y ) \b /cgmsx) { } |
|
|
11 |
12810 |
elsif (/\G ( <<~ ) /cgmsx) { } |
|
|
12 |
12798 |
elsif (/\G ( << ) /cgmsx) { } |
|
|
18 |
12780 |
elsif (/\G ( sub \s+ [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* \s* ) /cgmsx) { } |
|
|
2 |
12778 |
elsif (/\G ( while \s* \( \s* ) ( <<>> ) ( \s* \) ) /cgmsx) { } |
|
|
8 |
12770 |
elsif (/\G ( while \s* \( \s* ) (<) ((?:(?!\s)$x)*?) (>) ( \s* \) ) /cgmsx) { } |
|
|
0 |
12770 |
elsif (/\G ( while \s* ) ( <<>> ) /cgmsx) { } |
|
|
0 |
12770 |
elsif (/\G ( while \s* ) (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
25 |
12745 |
elsif (/\G ( (?: if | elsif | unless | while | until | given | when | (?: CORE:: )? catch ) \s* ) ( \( ) /cgmsx) { } |
|
|
4 |
12741 |
elsif (/\G mb:: ( catch \s* ) ( \( ) /cgmsx) { } |
|
|
1 |
12740 |
elsif (/\G ( else ) \b /cgmsx) { } |
|
|
8 |
12732 |
elsif (/\G ( if | unless | while | until ) \b /cgmsx) { } |
|
|
0 |
12732 |
elsif (/\G ( (?: foreach | for ) \s+ my \s* [\$] [A-Za-z_][A-Za-z_0-9]* ) ( \( ) /cgmsx) { } |
|
|
0 |
12732 |
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 |
12728 |
elsif (/\G ( (?: foreach | for ) \s* ) ( \( ) /cgmsx) { } |
|
|
679 |
12049 |
elsif (/\G (?: CORE:: | mb:: | $old_package )? ( split ) \b /cgmsx) { } |
|
|
15 |
12034 |
elsif (/\G ( (?: lc | lcfirst | uc | ucfirst ) ) \b /cgmsx) { } |
|
|
3 |
12031 |
elsif (/\G ( (?: CORE:: | mb:: )? require ) /cgmsx) { } |
|
|
42 |
11989 |
elsif (/\G ( mb::use | mb::no ) \b /cgmsx) { } |
|
|
1 |
11988 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
2 |
11986 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )* \s* \$ ) /cgmsx) { } |
|
|
2 |
11984 |
elsif (/\G ( mb::getc ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
1 |
11983 |
elsif (/\G ( mb::getc ) /cgmsx) { } |
|
|
23 |
11960 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
chop |
chr |
getc |
lc |
lcfirst |
length |
ord |
uc |
ucfirst
) ) \b /cgmsx) { } |
|
|
26 |
11934 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
index |
reverse |
rindex |
substr
) ) \b /cgmsx) { } |
|
|
2 |
11932 |
elsif (/\G ( mb:: (?: index_byte | rindex_byte ) ) \b /cgmsx) { } |
|
|
2884 |
9048 |
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 |
9046 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
18 |
9028 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )* \b (?: ' | " | ` | m | q | qq | qr | qw | qx | s | tr | y | \$ ) \b ) /cgmsx) { } |
|
|
10 |
9018 |
elsif (/\G ( lstat | stat ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
4 |
9014 |
elsif (/\G ( opendir ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \s* , ) /cgmsx) { } |
|
|
32 |
8982 |
elsif (/\G ( chdir | lstat | stat | unlink ) \b /cgmsx) { } |
|
|
4 |
8978 |
elsif (/\G ( opendir ) \b /cgmsx) { } |
|
|
0 |
8978 |
elsif (/\G (
Carp::carp |
Carp::cluck |
Carp::confess |
Carp::croak |
carp |
cluck |
confess |
croak |
die |
print |
printf |
say |
warn
) (?= (?: \s+ | [#] .* )* << ) /cgx) { } |
|
|
12 |
8966 |
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 |
8966 |
elsif (/\G (
(?: printf | print | say )
(?: \s+ | [#] .* )*
) (\{)
/cgx) { } |
|
|
12 |
8954 |
elsif (/\G ( return ) /cgmsx) { } |
|
|
287 |
8667 |
elsif (/\G ( [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) { } |
|
|
396 |
8271 |
elsif (/\G ([\)\}\]]) /cgmsx) { } |
|
|
8271 |
0 |
elsif (/\G ([\x00-\x7F]) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
1979
|
14 |
9 |
if ($quote_type eq 'qq') { } |
|
|
9 |
0 |
elsif ($quote_type eq 'q') { } |
|
2124
|
0 |
8409 |
if (my $ambiguous_char = parse_ambiguous_char()) { } |
|
2355
|
28 |
118010 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2360
|
23 |
118015 |
if ($modifier_i) { } |
|
2375
|
0 |
1 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2380
|
0 |
1 |
if ($modifier_i) { } |
|
2412
|
2 |
158 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
2 |
156 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
34 |
122 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
6 |
116 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
48 |
68 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
68 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2421
|
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) { } |
|
2435
|
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) { } |
|
2444
|
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) { } |
|
2458
|
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) { } |
|
2467
|
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) { } |
|
2482
|
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) { } |
|
2492
|
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) { } |
|
2505
|
2 |
1653 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2510
|
37 |
1618 |
if ($modifier_i) { } |
|
2527
|
1 |
1711 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
286 |
1425 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
240 |
1185 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
353 |
832 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
528 |
304 |
elsif (/\G ( [:\@] ) /cgmsx) { } |
|
|
22 |
282 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
282 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2530
|
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) { } |
|
2539
|
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) { } |
|
2556
|
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) { } |
|
2559
|
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) { } |
|
2568
|
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) { } |
|
2590
|
9 |
1703 |
if (my $e = $modifier_cegr =~ tr/e//d) { } |
|
|
300 |
1403 |
elsif ($replacement[0] =~ /\A ' /msx) { } |
|
|
2 |
1401 |
elsif ($replacement[0] =~ /\A [#] /msx) { } |
|
2611
|
1 |
1711 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2616
|
18 |
1694 |
if ($modifier_i) { } |
|
2631
|
4 |
2149 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
4 |
2145 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
912 |
1233 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
92 |
1141 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
131 |
1010 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
1010 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2634
|
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) { } |
|
2643
|
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) { } |
|
2658
|
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) { } |
|
2661
|
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) { } |
|
2670
|
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) { } |
|
2687
|
0 |
2153 |
if ($modifier_r) { } |
|
|
28 |
2125 |
elsif ($modifier_not_r =~ /s/) { } |
|
2737
|
16 |
2109 |
if ($modifier_not_r =~ /c/) { } |
|
2759
|
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) { } |
|
2771
|
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) { } |
|
2898
|
296 |
1068 |
if (/\G ( \s+ ) /cgmsx) { } |
|
|
389 |
679 |
elsif (/\G ( \( ) /cgmsx) { } |
|
|
16 |
663 |
elsif (/\G ( \# .* \n ) /cgmx) { } |
|
2916
|
24 |
655 |
if (m[\G ( [/] ) ]cgmsx) { } |
|
|
611 |
44 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
2933
|
18 |
6 |
unless ($modifier_not_cegir =~ /m/msx) |
|
2938
|
1 |
23 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2943
|
6 |
18 |
if ($modifier_i) { } |
|
2956
|
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) { } |
|
2966
|
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) { } |
|
2978
|
607 |
4 |
unless ($modifier_not_cegir =~ /m/msx) |
|
2983
|
1 |
610 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2988
|
16 |
595 |
if ($modifier_i) { } |
|
3019
|
42 |
0 |
if (/\G ( [A-Za-z_][A-Za-z_0-9]* (?: ::[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) |
|
3025
|
26 |
16 |
if (/\G ( [0-9]+ (?: \.[0-9]+)* ) /cgmsx) |
|
3033
|
12 |
30 |
if ($list eq '') { } |
|
|
8 |
22 |
elsif (scalar eval "()=$list" == 0) { } |
|
3347
|
22 |
1665 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
460 |
1205 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
3356
|
438 |
22 |
if (--$nest_bracket <= 0) |
|
3375
|
42 |
30 |
if (/\G (?= $endswith ) /cgmsx) { } |
|
3391
|
9 |
456 |
if (/\G ( $R $endswith ) /cgmsx) { } |
|
|
456 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3419
|
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) { } |
|
3590
|
0 |
192 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
42 |
150 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
150 |
elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { } |
|
3596
|
42 |
0 |
if (--$nest_bracket <= 0) |
|
3616
|
5948 |
8528 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
8528 |
elsif (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
3634
|
13 |
8665 |
if (/\G (\\\\) /cgmsx) { } |
|
|
8665 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3664
|
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) { } |
|
3678
|
85 |
0 |
if (--$nest_bracket <= 0) { } |
|
3758
|
67 |
18 |
if (wantarray) { } |
|
3776
|
0 |
688963 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
127934 |
561029 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\L \\u) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\U \\l) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\L) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\U) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\l) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\u) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\Q) /cgmsx) { } |
|
|
0 |
561029 |
elsif (/\G (\\E) /cgmsx) { } |
|
3783
|
0 |
127934 |
if CORE::length $1 >= 2 |
|
3856
|
1645 |
126289 |
if (wantarray) { } |
|
3872
|
0 |
561261 |
if (/\G ( \\o\{ (.*?) \} ) /cgmsx) { } |
|
|
1 |
561260 |
elsif (/\G ( \\x\{ (.*?) \} ) /cgmsx) { } |
|
|
226 |
561034 |
elsif (/\G ( (\\) ($x) ) /cgmsx) { } |
|
|
2 |
561032 |
elsif (/\G ( \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
2 |
561030 |
elsif (/\G ( \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
23 |
561007 |
elsif (/\G ( \$ ([1-9][0-9]*) ) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G ( \@\{\^CAPTURE\} ) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G (\$\{\^CAPTURE\}) \s* (\[) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G ( \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G ( \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
561007 |
elsif (/\G ( \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
561007 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3990
|
561261 |
0 |
if (wantarray) { } |
|
4004
|
71 |
6286 |
if ($i + 1 < $#hyphened and $hyphened[$i + 1] eq '-' and 1) { } |
|
4008
|
4 |
67 |
$hyphened[$i + 0] eq '\\-' ? : |
|
4009
|
4 |
67 |
$hyphened[$i + 2] eq '\\-' ? : |
|
4010
|
0 |
71 |
if (do {
not $hyphened[$i + 0] =~ /\A [\x00-\x7F] \z/msx
}) { } |
|
|
0 |
71 |
elsif (not $hyphened[$i + 2] =~ /\A [\x00-\x7F] \z/msx) { } |
|
|
0 |
71 |
elsif ($hyphened[$i + 0] gt $hyphened[$i + 2]) { } |
|
4026
|
19 |
6267 |
if ($hyphened[$i] eq '\\-') { } |
|
4048
|
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) { } |
|
4059
|
2080 |
0 |
if (--$nest_bracket <= 0) |
|
4084
|
0 |
4752 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
2226 |
2526 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
9 |
2517 |
elsif (/\G (\\ -) /cgmsx) { } |
|
4108
|
4 |
4593 |
if (do {
/\G \\ ( [0-3][0-7][0-7] | [0-7][0-7] | [0-7] ) /cgmsx
}) { } |
|
|
4 |
4589 |
elsif (/\G \\o ( [0-3][0-7][0-7] | [0-7][0-7] | [0-7] ) /cgmsx) { } |
|
|
4 |
4585 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
3 |
4582 |
elsif (/\G \\x ( [0-9A-Fa-f][0-9A-Fa-f] | [0-9A-Fa-f] ) /cgmsx) { } |
|
|
3 |
4579 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
9 |
4570 |
elsif (/\G ( \\c [\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_?] ) /cgmsx) { } |
|
|
16 |
4554 |
elsif (/\G ( \\ ([\\abefnrtElLuUQ]) ) /cgmsx) { } |
|
|
4554 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
4219
|
2994 |
5440 |
if (do {
CORE::length $a == 1
}) { } |
|
|
5440 |
0 |
elsif (CORE::length $a == 2) { } |
|
4221
|
434 |
2560 |
if (do {
CORE::length $b == 1
}) { } |
|
|
2560 |
0 |
elsif (CORE::length $b == 2) { } |
|
4224
|
274 |
0 |
$a[1] <= $b[1] ? : |
|
|
160 |
274 |
$a[1] <= 128 && 160 <= $b[1] ? : |
|
4233
|
1920 |
640 |
129 < $b[1] ? : |
|
|
1280 |
0 |
$a[1] <= 223 ? : |
|
|
0 |
1280 |
$a[1] < 160 ? : |
|
|
1280 |
1280 |
$a[1] <= 128 ? : |
|
4242
|
5440 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4244
|
5040 |
400 |
$a[1] < 252 ? : |
|
4248
|
5040 |
400 |
129 < $b[1] ? : |
|
4267
|
132 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4269
|
36 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4272
|
36 |
0 |
$a[1] <= $b[1] ? : |
|
4278
|
48 |
48 |
161 < $b[1] ? : |
|
4285
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4287
|
84 |
36 |
$a[1] < 254 ? : |
|
4291
|
84 |
36 |
161 < $b[1] ? : |
|
4310
|
132 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4312
|
36 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4315
|
36 |
0 |
$a[1] <= $b[1] ? : |
|
4321
|
48 |
48 |
129 < $b[1] ? : |
|
4328
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4330
|
84 |
36 |
$a[1] < 254 ? : |
|
4334
|
84 |
36 |
129 < $b[1] ? : |
|
4353
|
2652 |
15600 |
if (do {
CORE::length $a == 1
}) { } |
|
|
8528 |
7072 |
elsif (CORE::length $a == 2) { } |
|
|
7072 |
0 |
elsif (CORE::length $a == 4) { } |
|
4355
|
156 |
2496 |
if (do {
CORE::length $b == 1
}) { } |
|
|
832 |
1664 |
elsif (CORE::length $b == 2) { } |
|
|
1664 |
0 |
elsif (CORE::length $b == 4) { } |
|
4358
|
156 |
0 |
$a[1] <= $b[1] ? : |
|
4364
|
416 |
416 |
129 < $b[1] ? : |
|
4371
|
832 |
832 |
129 < $b[3] ? : |
|
|
832 |
832 |
48 < $b[2] ? : |
|
|
832 |
832 |
129 < $b[1] ? : |
|
4381
|
1872 |
6656 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6656 |
0 |
elsif (CORE::length $b == 4) { } |
|
4383
|
1352 |
520 |
$a[1] < 254 ? : |
|
4387
|
1352 |
520 |
129 < $b[1] ? : |
|
4395
|
3328 |
3328 |
129 < $b[3] ? : |
|
|
3328 |
3328 |
48 < $b[2] ? : |
|
|
3328 |
3328 |
129 < $b[1] ? : |
|
|
3328 |
3328 |
$a[1] < 254 ? : |
|
4405
|
7072 |
0 |
if (do {
CORE::length $b == 4
}) |
|
4407
|
5200 |
1872 |
$a[1] < 254 ? : |
|
|
4368 |
2704 |
$a[2] < 57 ? : |
|
|
3952 |
3120 |
$a[3] < 254 ? : |
|
4413
|
3952 |
3120 |
129 < $b[3] ? : |
|
|
4368 |
2704 |
48 < $b[2] ? : |
|
|
5200 |
1872 |
129 < $b[1] ? : |
|
4434
|
9732 |
80376 |
if (do {
CORE::length $a == 1
}) { } |
|
|
12692 |
67684 |
elsif (CORE::length $a == 2) { } |
|
|
27364 |
40320 |
elsif (CORE::length $a == 3) { } |
|
|
40320 |
0 |
elsif (CORE::length $a == 4) { } |
|
4436
|
420 |
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) { } |
|
4439
|
420 |
0 |
$a[1] <= $b[1] ? : |
|
4445
|
408 |
408 |
194 < $b[1] ? : |
|
4452
|
2096 |
1280 |
128 < $b[2] ? : |
|
|
2712 |
664 |
224 < $b[1] ? : |
|
4461
|
2560 |
2560 |
128 < $b[3] ? : |
|
|
3296 |
1824 |
128 < $b[2] ? : |
|
|
3776 |
1344 |
240 < $b[1] ? : |
|
4472
|
868 |
11824 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6448 |
5376 |
elsif (CORE::length $b == 3) { } |
|
|
5376 |
0 |
elsif (CORE::length $b == 4) { } |
|
4474
|
600 |
268 |
$a[1] < 223 ? : |
|
4478
|
600 |
268 |
194 < $b[1] ? : |
|
4486
|
3888 |
2560 |
128 < $b[2] ? : |
|
|
5272 |
1176 |
224 < $b[1] ? : |
|
|
3224 |
3224 |
$a[1] < 223 ? : |
|
4495
|
2688 |
2688 |
128 < $b[3] ? : |
|
|
3552 |
1824 |
128 < $b[2] ? : |
|
|
3904 |
1472 |
240 < $b[1] ? : |
|
|
2688 |
2688 |
$a[1] < 223 ? : |
|
4506
|
19428 |
7936 |
if (do {
CORE::length $b == 3
}) { } |
|
|
7936 |
0 |
elsif (CORE::length $b == 4) { } |
|
4508
|
18712 |
716 |
$a[1] < 239 ? : |
|
|
11736 |
7692 |
$a[2] < 191 ? : |
|
4513
|
10788 |
8640 |
128 < $b[2] ? : |
|
|
18712 |
716 |
224 < $b[1] ? : |
|
4522
|
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 ? : |
|
4533
|
40320 |
0 |
if (do {
CORE::length $b == 4
}) |
|
4535
|
37520 |
2800 |
$a[1] < 244 ? : |
|
|
23448 |
16872 |
$a[2] < 191 ? : |
|
|
21408 |
18912 |
$a[3] < 191 ? : |
|
4541
|
21408 |
18912 |
128 < $b[3] ? : |
|
|
23448 |
16872 |
128 < $b[2] ? : |
|
|
37520 |
2800 |
240 < $b[1] ? : |
|
4565
|
0 |
353317 |
if (do {
$codepoint_class =~ /\G\\o\{([01234567]+)\}/cgmsx
}) { } |
|
|
0 |
353317 |
elsif ($codepoint_class =~ /\G\\x\{([0123456789ABCDEFabcdef]+)\}/cgmsx) { } |
|
|
100 |
353217 |
elsif ($codepoint_class =~ /\G(\[:.+?:\])/cgmsx) { } |
|
|
562 |
352655 |
elsif ($codepoint_class =~ /\G((?>\\$x))/cgmsx) { } |
|
|
352655 |
0 |
elsif ($codepoint_class =~ /\G($x)/cgmsx) { } |
|
4591
|
117298 |
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) { } |
|
4594
|
8434 |
108864 |
if (do {
$script_encoding =~ /\A (?: sjis ) \z/msx
}) { } |
|
|
252 |
108612 |
elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { } |
|
|
252 |
108360 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { } |
|
|
18252 |
90108 |
elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { } |
|
|
90108 |
0 |
elsif ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
4665
|
12 |
0 |
if (CORE::length $2 == 1) { } |
|
4675
|
417 |
344 |
if (CORE::length $1 == 1) { } |
|
4695
|
398 |
0 |
@sbcs && !@xbcs ? : |
|
|
117843 |
398 |
!@sbcs && @xbcs ? : |
|
|
28 |
118241 |
@sbcs && @xbcs ? : |
|
4709
|
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) { } |
|
4718
|
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) { } |
|
4790
|
0 |
0 |
if ($operator eq 's') { } |
|
4800
|
99 |
145 |
if (CORE::length $1 == 1) { } |
|
4832
|
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) { } |
|
4837
|
564 |
0 |
if (--$nest_bracket <= 0) { } |
|
4913
|
120529 |
121815 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\L \\u /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\U \\l /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\L /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\U /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\l /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\u /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\Q /cgmsx) { } |
|
|
0 |
121815 |
elsif (/\G \\E /cgmsx) { } |
|
4985
|
118837 |
3547 |
if (/\G \[ /cgmsx) { } |
|
|
20 |
3527 |
elsif (/\G \. /cgmsx) { } |
|
|
7 |
3520 |
elsif (/\G \\B /cgmsx) { } |
|
|
18 |
3502 |
elsif (/\G \\D /cgmsx) { } |
|
|
10 |
3492 |
elsif (/\G \\H /cgmsx) { } |
|
|
8 |
3484 |
elsif (/\G \\N /cgmsx) { } |
|
|
12 |
3472 |
elsif (/\G \\R /cgmsx) { } |
|
|
14 |
3458 |
elsif (/\G \\S /cgmsx) { } |
|
|
12 |
3446 |
elsif (/\G \\V /cgmsx) { } |
|
|
71 |
3375 |
elsif (/\G \\W /cgmsx) { } |
|
|
7 |
3368 |
elsif (/\G \\b /cgmsx) { } |
|
|
17 |
3351 |
elsif (/\G \\d /cgmsx) { } |
|
|
10 |
3341 |
elsif (/\G \\h /cgmsx) { } |
|
|
18 |
3323 |
elsif (/\G \\s /cgmsx) { } |
|
|
14 |
3309 |
elsif (/\G \\v /cgmsx) { } |
|
|
70 |
3239 |
elsif (/\G \\w /cgmsx) { } |
|
|
0 |
3239 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3239 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3239 |
elsif (/\G (\\ 0[1-7]*) /cgmsx) { } |
|
|
0 |
3239 |
elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { } |
|
|
24 |
3215 |
elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { } |
|
|
5 |
3210 |
elsif (/\G (\\) ($x) /cgmsx) { } |
|
|
0 |
3210 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
0 |
3210 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
24 |
3186 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
0 |
3186 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
0 |
3186 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
3186 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
3186 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
3186 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
3186 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
4988
|
118837 |
413815 |
if (/\G \] /cgmsx) { } |
|
|
510 |
413305 |
elsif (/\G (\\) /cgmsx) { } |
|
|
98 |
413207 |
elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { } |
|
|
114 |
413093 |
elsif (/\G (\[:[a-z]*:\]) /cgmsx) { } |
|
|
413093 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5067
|
0 |
24 |
if ($operator eq 's') { } |
|
5077
|
5 |
0 |
if (CORE::length $2 == 1) { } |
|
5154
|
2625 |
561 |
if (CORE::length $1 == 1) { } |
|
5181
|
0 |
122341 |
if (/\G [adlpu] /cgmsx) { } |
|
|
100 |
122241 |
elsif (/\G ([i]) /cgmsx) { } |
|
|
35 |
122206 |
elsif (/\G ([cegr]) /cgmsx) { } |
|
|
165 |
122041 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
5206
|
0 |
2241 |
if (/\G ([r]) /cgmsx) { } |
|
|
88 |
2153 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
5229
|
9 |
3240 |
if ($searchlist =~ /\G (\\-) /cgmsx) { } |
|
|
27 |
3213 |
elsif ($searchlist =~ /\G (-) /cgmsx) { } |
|
|
1036 |
2177 |
elsif ($searchlist =~ /\G ([$escapee_in_qq_like]) /cgmsx) { } |
|
|
2177 |
0 |
elsif ($searchlist =~ /\G ($x) /cgmsx) { } |
|
5245
|
1146 |
1031 |
if (CORE::length $1 == 1) { } |
|
5266
|
1110 |
0 |
@sbcs && !@xbcs ? : |
|
|
21 |
1110 |
!@sbcs && @xbcs ? : |
|
|
994 |
1131 |
@sbcs && @xbcs ? : |
|
5275
|
3260 |
0 |
if (CORE::length $_[0] >= 2) { } |
|
5287
|
0 |
569672 |
if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
1992 |
567680 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { } |
|
5309
|
0 |
975993 |
if ($codepoint eq '`') { } |
|
|
1032 |
974961 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
18843 |
956118 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { } |
|
5327
|
0 |
4572 |
if ($codepoint =~ /\A (\Q$endswith\E) \z/msx) { } |
|
|
0 |
4572 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
1988 |
2584 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { } |
|
5345
|
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) { } |