| line |
true |
false |
branch |
|
25
|
157 |
8 |
if $INC[-1] eq "." |
|
27
|
0 |
165 |
if ($] < "5.006" and not defined &warnings::import) |
|
89
|
0 |
141 |
if (defined $_[0] and $_[0] =~ /\A [0-9] /msx) |
|
90
|
6 |
0 |
if ($_[0] ne $mb::VERSION) |
|
101
|
3 |
45 |
if ($arg eq '*mb' or $arg eq '%mb') { } |
|
|
33 |
12 |
elsif ($arg =~ /\A (?: big5 | big5hkscs | eucjp | euctw | gb18030 | gbk | hp15 | informixv6als | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
116
|
33 |
96 |
if (defined $encoding) { } |
|
163
|
111 |
18 |
if (not $want_runtime || $ENV{'PERL_MB_OCTET'} and $] >= "5.008") |
|
164
|
111 |
0 |
if (eval {
do {
require Filter::Util::Call;
1
}
}) |
|
167
|
6 |
111 |
if $done |
|
174
|
111 |
0 |
if ($status == 0) |
|
177
|
91 |
20 |
if ($buffer =~ /\b mb::set_script_encoding \s* \(/msx) { } |
|
197
|
0 |
24 |
if (scalar @ARGV == 0) |
|
227
|
14 |
10 |
if (($encoding) = $ARGV[0] =~ /\A -e ( .+ ) \z/msx) { } |
|
|
10 |
0 |
elsif ($ARGV[0] =~ /\A -e \z/msx) { } |
|
228
|
0 |
14 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | euctw | gb18030 | gbk | hp15 | informixv6als | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
238
|
6 |
4 |
if ($encoding =~ /\A (?: big5 | big5hkscs | eucjp | euctw | gb18030 | gbk | hp15 | informixv6als | rfc2279 | sjis | uhc | utf8 | wtf8 ) \z/msx) { } |
|
255
|
0 |
6 |
unless my $rfh = &_open_r($script) |
|
264
|
0 |
6 |
if ($OSNAME =~ /MSWin32/) |
|
269
|
0 |
0 |
if (/\A (?:$x)*? [ ] /msx) { } |
|
|
0 |
0 |
elsif (/\A (?:$x)*? [*?] /msx) { } |
|
270
|
0 |
0 |
if (my(@glob) = &dosglob(qq["$_"])) { } |
|
280
|
0 |
0 |
if (my(@glob) = &dosglob($_)) { } |
|
302
|
2 |
4 |
if ($source =~ /^__(?:END|DATA)__\b/m) { } |
|
306
|
0 |
1 |
if (not -e $script_oo or mtime($script_oo) <= mtime($script) or mtime($script_oo) <= mtime(__FILE__)) |
|
314
|
1 |
0 |
if (mkdir "$script.lock", 493) { } |
|
315
|
0 |
1 |
unless my $wfh = &_open_w($script_oo) |
|
329
|
0 |
2 |
if ($OSNAME =~ /MSWin32/) { } |
|
330
|
0 |
0 |
if ($0 =~ m( ([^\/\\]+)\.pm \z)imsx) { } |
|
341
|
2 |
0 |
if ($0 =~ m[ ([^\/]+)\.pm \z]imsx) { } |
|
357
|
0 |
2 |
if (/ /) { } |
|
379
|
1 |
3 |
if ($@) |
|
429
|
40 |
6 |
@_ ? : |
|
430
|
48 |
6 |
if (my(@x) = /\G$x/g) |
|
441
|
23 |
4 |
@_ ? : |
|
460
|
5 |
0 |
if (-f $prefix_file) |
|
464
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
469
|
0 |
5 |
unless my $fh = &_open_r($prefix_file) |
|
475
|
5 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
476
|
0 |
5 |
unless my $fh = &_open_w($prefix_file_oo) |
|
503
|
8 |
0 |
@_ ? : |
|
507
|
8 |
0 |
if (not $OSNAME =~ /MSWin32/) { } |
|
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 |
|
522
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \< /msx |
|
523
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \> /msx |
|
524
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \^ /msx |
|
525
|
0 |
0 |
if $pattern =~ /\G$mb::_anchor \| /msx |
|
529
|
0 |
0 |
if (my($dir) = $pattern =~ /\A ($x*) \\ /msx) { } |
|
540
|
0 |
24 |
unless &mb::uc($a) cmp &mb::uc($b) |
|
546
|
15016 |
20 |
@_ ? : |
|
559
|
149 |
1 |
@_ ? : |
|
560
|
0 |
150 |
if @_ and not wantarray |
|
562
|
0 |
34 |
wantarray ? : |
|
|
34 |
116 |
unless defined $getc |
|
563
|
42 |
74 |
if ($script_encoding =~ /\A (?: sjis ) \z/msx) { } |
|
|
7 |
67 |
elsif ($script_encoding =~ /\A (?: informixv6als ) \z/msx) { } |
|
|
10 |
57 |
elsif ($script_encoding =~ /\A (?: hp15 ) \z/msx) { } |
|
|
6 |
51 |
elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { } |
|
|
8 |
43 |
elsif ($script_encoding =~ /\A (?: euctw ) \z/msx) { } |
|
|
24 |
19 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { } |
|
|
7 |
12 |
elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { } |
|
|
12 |
0 |
elsif ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
564
|
22 |
20 |
if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx) |
|
565
|
21 |
1 |
if defined $c |
|
569
|
2 |
5 |
if ($getc =~ /\A [\x81-\x9F\xE0-\xFC] \z/msx) { } |
|
|
3 |
2 |
elsif ($getc =~ /\A [\xFD] \z/msx) { } |
|
570
|
1 |
1 |
if defined $c |
|
574
|
2 |
1 |
if defined $c |
|
575
|
1 |
2 |
if defined $c |
|
579
|
7 |
3 |
if ($getc =~ /\A [\x80-\xA0\xE0-\xFE] \z/msx) |
|
580
|
4 |
3 |
if defined $c |
|
584
|
4 |
2 |
if ($getc =~ /\A [\xA1-\xFE] \z/msx) |
|
585
|
3 |
1 |
if defined $c |
|
589
|
4 |
4 |
if ($getc =~ /\A [\x8E] \z/msx) { } |
|
|
2 |
2 |
elsif ($getc =~ /\A [\xA1-\xFE] \z/msx) { } |
|
591
|
3 |
1 |
if defined $c |
|
592
|
2 |
2 |
if defined $c |
|
593
|
1 |
3 |
if defined $c |
|
596
|
1 |
1 |
if defined $c |
|
600
|
16 |
8 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
601
|
12 |
4 |
if defined $c |
|
605
|
5 |
2 |
if ($getc =~ /\A [\x81-\xFE] \z/msx) |
|
606
|
4 |
1 |
if defined $c |
|
607
|
3 |
2 |
if ($getc =~ /\A [\x81-\xFE] [\x30-\x39] \z/msx) |
|
608
|
2 |
1 |
if defined $c |
|
609
|
1 |
2 |
if defined $c |
|
614
|
3 |
9 |
if ($getc =~ /\A [\x00-\x7F\x80-\xC1\xF5-\xFF] \z/msx) { } |
|
|
2 |
7 |
elsif ($getc =~ /\A [\xC2-\xDF] \z/msx) { } |
|
|
3 |
4 |
elsif ($getc =~ /\A [\xE0-\xEF] \z/msx) { } |
|
|
4 |
0 |
elsif ($getc =~ /\A [\xF0-\xF4] \z/msx) { } |
|
617
|
1 |
1 |
if defined $c |
|
621
|
2 |
1 |
if defined $c |
|
622
|
1 |
2 |
if defined $c |
|
626
|
3 |
1 |
if defined $c |
|
627
|
2 |
2 |
if defined $c |
|
628
|
1 |
3 |
if defined $c |
|
631
|
1 |
115 |
wantarray ? : |
|
638
|
4 |
61 |
if (@_ == 3) { } |
|
644
|
20 |
45 |
if ($index == -1) { } |
|
659
|
53 |
310 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
660
|
49 |
4 |
if ($pos >= $position) |
|
664
|
314 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
677
|
10 |
1 |
@_ ? : |
|
679
|
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"}->{$_} |
|
686
|
1 |
1 |
@_ ? : |
|
687
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
698
|
106 |
4 |
@_ ? : |
|
705
|
2 |
2 |
@_ ? : |
|
707
|
4 |
0 |
if (/\A($x)/) |
|
718
|
49 |
2 |
@_ ? : |
|
732
|
0 |
51 |
unless (defined $over_ascii) |
|
733
|
0 |
0 |
/\A [\x00-\x7F]* \z/msx ? : |
|
735
|
32 |
19 |
/\A (?: $over_ascii | [\x00-\x7F] )* \z/msx ? : |
|
741
|
5 |
0 |
@_ ? : |
|
744
|
0 |
5 |
if (/^[0-9]/) { } |
|
745
|
0 |
0 |
if ($] < $_) { } |
|
759
|
0 |
5 |
if ($file =~ s[::][/]g or not $file =~ m([\./\\])) |
|
762
|
1 |
4 |
if (exists $INC{$file}) |
|
764
|
1 |
0 |
if $INC{$file} |
|
768
|
4 |
0 |
if (-f $prefix_file) |
|
772
|
0 |
0 |
if (not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__)) |
|
777
|
0 |
4 |
unless my $fh = &_open_r($prefix_file) |
|
783
|
4 |
0 |
if (mkdir "$prefix_file.lock", 493) { } |
|
784
|
0 |
4 |
unless my $fh = &_open_w($prefix_file_oo) |
|
805
|
0 |
4 |
if ($@) { } |
|
|
0 |
4 |
elsif (not $result) { } |
|
827
|
2 |
19 |
if (wantarray) { } |
|
837
|
15 |
4 |
@_ ? : |
|
851
|
4 |
15 |
if (@_ == 3) { } |
|
857
|
4 |
15 |
if ($rindex == -1) { } |
|
873
|
41 |
243 |
if (CORE::substr($str, $pos, CORE::length $substr) eq $substr) |
|
876
|
284 |
0 |
if (CORE::substr($str, $pos) =~ /\A($x)/msx) { } |
|
974
|
143 |
134 |
if ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
|
134 |
0 |
elsif ($] >= 5.038) { } |
|
|
0 |
0 |
elsif ($] >= 5.03) { } |
|
|
0 |
0 |
elsif ($] >= 5.010001) { } |
|
1070
|
165 |
0 |
$] >= 5.014 ? : |
|
|
2 |
125 |
if ($_[1] < -1 * scalar(@x) or 1 * scalar(@x) < $_[1]) |
|
|
63 |
19 |
$_[1] > 0 ? : |
|
|
19 |
82 |
$_[1] < 0 ? : |
|
|
93 |
0 |
$_[2] > 0 ? : |
|
|
8 |
93 |
$_[2] < 0 ? : |
|
|
4 |
0 |
$_[1] > 0 ? : |
|
|
4 |
4 |
$_[1] < 0 ? : |
|
|
16 |
109 |
if (@_ == 4) { } |
|
|
101 |
8 |
elsif (@_ == 3) { } |
|
1127
|
2488 |
42 |
defined $_[3] ? : |
|
1133
|
3328 |
60 |
unless (exists $tr{$search[$i]}) |
|
1136
|
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 '') { } |
|
1161
|
126 |
2404 |
if (exists $modifier{'c'}) { } |
|
1164
|
54 |
72 |
if (exists $modifier{'s'}) { } |
|
1169
|
252 |
176 |
if (exists $tr{$x}) { } |
|
1176
|
124 |
52 |
if (exists $modifier{'d'}) { } |
|
|
52 |
0 |
elsif (defined $replacement[-1]) { } |
|
1182
|
9 |
43 |
if (defined $last_transliterated and $replacement[-1] eq $last_transliterated) { } |
|
1200
|
210 |
104 |
if (exists $tr{$x}) { } |
|
1206
|
34 |
70 |
if (exists $modifier{'d'}) { } |
|
|
70 |
0 |
elsif (defined $replacement[-1]) { } |
|
1223
|
85 |
2319 |
if (exists $modifier{'s'}) { } |
|
1226
|
425 |
168 |
if (exists $tr{$x}) { } |
|
1229
|
89 |
336 |
if ($tr{$x} eq '') { } |
|
|
177 |
159 |
elsif (defined $last_transliterated and $tr{$x} eq $last_transliterated) { } |
|
1252
|
2621 |
128 |
if (exists $tr{$x}) { } |
|
1264
|
2362 |
168 |
if (exists $modifier{'r'}) { } |
|
1278
|
53 |
1 |
@_ ? : |
|
1280
|
486 |
536 |
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"}->{$_} |
|
1287
|
1 |
1 |
@_ ? : |
|
1288
|
2 |
0 |
if (/\A($x)(.*)\z/s) { } |
|
1303
|
29 |
61 |
if ($mb::last_s_passed) { } |
|
1304
|
29 |
0 |
if (defined $_[0]) { } |
|
1311
|
0 |
0 |
if ($] >= 5.006) { } |
|
1327
|
61 |
0 |
if (defined $_[0]) { } |
|
1332
|
0 |
0 |
if ($] >= 5.006) { } |
|
1353
|
5 |
5 |
if ($mb::last_s_passed) { } |
|
1354
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1362
|
5 |
0 |
if (scalar @_ >= 1) { } |
|
1377
|
9 |
9 |
if ($mb::last_s_passed) { } |
|
1378
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1386
|
9 |
0 |
if (scalar @_ >= 1) { } |
|
1398
|
61 |
0 |
if (defined $&) { } |
|
1399
|
8 |
53 |
if ($mb::last_s_passed) { } |
|
1400
|
8 |
0 |
if (defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1) { } |
|
1408
|
53 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1424
|
15 |
0 |
if (defined $&) { } |
|
1425
|
8 |
7 |
if ($mb::last_s_passed) { } |
|
1429
|
7 |
0 |
if (defined $1 and CORE::substr($&, -CORE::length($1)) eq $1) { } |
|
1477
|
33 |
391 |
if (defined $classmate) { } |
|
1488
|
559 |
134 |
unless ($element =~ /\A[$bare_s]\z/) |
|
1524
|
60 |
452 |
if (defined $classmate) { } |
|
1606
|
63125 |
63465 |
if ($classmate =~ s/\A \^ //msx) { } |
|
1617
|
10 |
12 |
if (my(@codepoint) = $_[0] =~ /\G($x)/cgmsx) { } |
|
1618
|
5 |
5 |
if (CORE::length $codepoint[$#codepoint] == 1) { } |
|
1638
|
0 |
0 |
unless open $fhn, ">> $_[0]" |
|
1647
|
0 |
15 |
unless open $fhn, "< $_[0]" |
|
1656
|
0 |
10 |
unless open $fhn, "> $_[0]" |
|
1673
|
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) { } |
|
1674
|
30 |
8 |
defined $_[1] ? : |
|
1675
|
12 |
6 |
if (defined $_[2] and $_[2] > 0 and scalar @x > $_[2]) |
|
1678
|
26 |
12 |
if (wantarray) { } |
|
1682
|
0 |
12 |
if ($] < "5.012") |
|
1683
|
0 |
0 |
if $^W |
|
1706
|
306 |
30 |
defined $_[0] ? : |
|
1707
|
202 |
134 |
defined $_[1] ? : |
|
1719
|
108 |
228 |
if ($pattern eq " ") |
|
1727
|
34 |
302 |
if (($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx) { } |
|
1758
|
21 |
315 |
'' =~ / \A $pattern \z /msx ? : |
|
1761
|
21 |
315 |
if (defined $_[2] and $_[2] >= 1) { } |
|
1787
|
303 |
33 |
if (CORE::length $string > 0) { } |
|
|
6 |
48 |
elsif (defined $_[2] and $_[2] >= 1) { } |
|
1791
|
6 |
0 |
if (scalar @split < $_[2]) |
|
1797
|
309 |
27 |
if (not defined $_[2] or $_[2] == 0) |
|
1806
|
203 |
133 |
if (wantarray) { } |
|
1823
|
2 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1824
|
0 |
2 |
if (@_ == 0) { } |
|
1833
|
0 |
0 |
if (@_ == 0) { } |
|
|
0 |
0 |
elsif ($script_encoding =~ /\A (?: sjis | informixv6als ) \z/msx and $_[0] =~ /\A $x* [\x81-\x9F\xE0-\xFC][\x5C] \z/msx) { } |
|
|
0 |
0 |
elsif ($script_encoding =~ /\A (?: hp15 ) \z/msx and $_[0] =~ /\A $x* [\x80-\xA0\xE0-\xFE][\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) { } |
|
1837
|
0 |
0 |
if (defined wantarray) { } |
|
1845
|
0 |
0 |
if (defined wantarray) { } |
|
1853
|
0 |
0 |
if (defined wantarray) { } |
|
1869
|
0 |
0 |
$filetest[-1] eq '-t' ? : |
|
|
11209 |
0 |
@_ ? : |
|
1870
|
0 |
11209 |
if @_ and not wantarray |
|
1873
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1884
|
9166 |
2043 |
if ($result = eval $filetest . ' $_') { } |
|
1887
|
0 |
2043 |
wantarray ? : |
|
1890
|
7 |
0 |
if ($result = eval $filetest . ' _') { } |
|
1893
|
0 |
0 |
wantarray ? : |
|
1896
|
0 |
9166 |
wantarray ? : |
|
1902
|
3 |
0 |
@_ ? : |
|
1903
|
0 |
3 |
if ($_ eq "_") |
|
1908
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1922
|
3 |
4 |
unless (defined $_[0]) |
|
1927
|
7 |
0 |
if (not $OSNAME =~ /MSWin32/ && $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) { } |
|
|
0 |
0 |
elsif (-d $_[1]) { } |
|
|
0 |
0 |
elsif (-d "$_[1].") { } |
|
1942
|
9 |
0 |
@_ ? : |
|
1945
|
0 |
0 |
if ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/) |
|
1961
|
10222 |
0 |
unless ($OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx) |
|
1962
|
10222 |
0 |
@_ ? : |
|
1966
|
0 |
0 |
@_ ? : |
|
1967
|
0 |
0 |
if (unlink $_) { } |
|
|
0 |
0 |
elsif (unlink "$_.") { } |
|
1989
|
0 |
196 |
if ($OSNAME =~ /MSWin32/) { } |
|
|
10 |
186 |
elsif ($OSNAME =~ /solaris/) { } |
|
|
8 |
178 |
elsif ($OSNAME =~ /hpux/) { } |
|
|
8 |
170 |
elsif ($OSNAME =~ /aix/) { } |
|
1990
|
0 |
0 |
if (my($codepage) = `chcp` =~ /[^0123456789](932|936|949|950|951|20932|54936)\Z/) { } |
|
2014
|
9 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
9 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
1 |
9 |
defined $ENV{'LC_ALL'} ? : |
|
2047
|
7 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
7 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
1 |
7 |
defined $ENV{'LC_ALL'} ? : |
|
2072
|
7 |
0 |
defined $ENV{'LANG'} ? : |
|
|
0 |
7 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
1 |
7 |
defined $ENV{'LC_ALL'} ? : |
|
2104
|
17 |
153 |
defined $ENV{'LANG'} ? : |
|
|
0 |
170 |
defined $ENV{'LC_CTYPE'} ? : |
|
|
0 |
170 |
defined $ENV{'LC_ALL'} ? : |
|
2154
|
125689 |
19414 |
@_ ? : |
|
2227
|
129 |
294497 |
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) |
|
2251
|
17 |
726602 |
if (/\G ^ ( (?: __END__ | __DATA__ ) $R .* ) \z/cgmsx) { } |
|
|
1 |
726601 |
elsif (/\G ^ ( = [A-Za-z_][A-Za-z_0-9]* [\x00-\xFF]*? $R =cut \b [^\n]* $R ) /cgmsx) { } |
|
|
8747 |
717854 |
elsif (/\G (?= $R ) /cgmsx) { } |
|
|
274455 |
443399 |
elsif (/\G ( [\t ]+ ) /cgmsx) { } |
|
|
5285 |
438114 |
elsif (/\G ( ; ) /cgmsx) { } |
|
|
652 |
437462 |
elsif (/\G ( [(\{\[] ) /cgmsx) { } |
|
|
2 |
437460 |
elsif (/\G (
v [0-9]+ (?: \.[0-9]+ ){1,} \b |
[0-9]+ (?: \.[0-9]+ ){2,} \b
) /cgmsx) { } |
|
|
1 |
437459 |
elsif (/\G v ( [0-9]+ ) \b (?! \s* => ) /cgmsx) { } |
|
|
971 |
436488 |
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 |
436488 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= (?: \( \s* )* (?: ' | " | ` | \$ | (?: (?: m | q | qq | qr | qw | qx | s | tr | y ) \b )) ) /cgmsx) { } |
|
|
2828 |
433660 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) (?= [A-Za-z_][A-Za-z0-9_]* ) /cgmsx) { } |
|
|
8409 |
425251 |
elsif (/\G ( (?: -[ABCMORSTWXbcdefgkloprstuwxz] \s* )+ \b ) /cgmsx) { } |
|
|
1 |
425250 |
elsif (/\G ( \.\.\. ) /cgmsx) { } |
|
|
1 |
425249 |
elsif (/\G ( -> \s* [A-Za-z_][A-Za-z_0-9]* ) /cgmsx) { } |
|
|
130251 |
294998 |
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 |
292567 |
elsif (/\G ( (?: and | cmp | eq | ge | gt | isa | le | lt | ne | not | or | x | x= | xor ) \b ) /cgmsx) { } |
|
|
20 |
292547 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
68 |
292479 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
55 |
292424 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
3 |
292421 |
elsif (/\G \@\{\^CAPTURE\} /cgmsx) { } |
|
|
3 |
292418 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
12 |
292406 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
22 |
292384 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
12 |
292372 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
14 |
292358 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
11 |
292347 |
elsif (/\G ( CORE:: (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
30 |
292317 |
elsif (/\G (?: mb:: | $old_package )? ( (?: do | eval | try | finally ) \s* ) ( \{ ) /cgmsx) { } |
|
|
281 |
292036 |
elsif (/\G ((?: \$[#] | [\$\@%&*] | defer | sub ) \s* ) ( \{ ) /cgmsx) { } |
|
|
3 |
292033 |
elsif (/\G ( (?: mb:: | CORE:: )? do ) \b /cgmsx) { } |
|
|
3 |
292030 |
elsif (/\G ( (?: mb:: | CORE:: )? eval ) \b /cgmsx) { } |
|
|
3 |
292027 |
elsif (/\G ( [\$] [#] (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
5158 |
286869 |
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) { } |
|
|
198 |
286671 |
elsif (/\G ( [\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [_] ) ) /cgmsx) { } |
|
|
11 |
286660 |
elsif (/\G ( [\%\@\$] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* | [!+\-] ) ) /cgmsx) { } |
|
|
220 |
286440 |
elsif (/\G ( [&*] [\$]* (?: [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) ) /cgmsx) { } |
|
|
47 |
286393 |
elsif (/\G ( [#] [^\n]* ) /cgmsx) { } |
|
|
5865 |
280528 |
elsif (/\G ( ' ) /cgmsx) { } |
|
|
134553 |
145975 |
elsif (/\G ( ["`] ) /cgmsx) { } |
|
|
126385 |
19590 |
elsif (m[\G ( [/] ) ]cgmsx) { } |
|
|
1 |
19589 |
elsif (/\G ( [?] ) /cgmsx) { } |
|
|
1 |
19588 |
elsif (/\G ( <<>> ) /cgmsx) { } |
|
|
5 |
19583 |
elsif (/\G (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
174 |
19409 |
elsif (/\G ( qw | q ) \b /cgmsx) { } |
|
|
69 |
19340 |
elsif (/\G ( qq ) \b /cgmsx) { } |
|
|
67 |
19273 |
elsif (/\G ( qx ) \b /cgmsx) { } |
|
|
1655 |
17618 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
|
1713 |
15905 |
elsif (/\G ( s ) \b /cgmsx) { } |
|
|
2159 |
13746 |
elsif (/\G (?: tr | y ) \b /cgmsx) { } |
|
|
11 |
13735 |
elsif (/\G ( <<~ ) /cgmsx) { } |
|
|
12 |
13723 |
elsif (/\G ( << ) /cgmsx) { } |
|
|
32 |
13691 |
elsif (/\G ( sub \s+ [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* \s* ) /cgmsx) { } |
|
|
2 |
13689 |
elsif (/\G ( while \s* \( \s* ) ( <<>> ) ( \s* \) ) /cgmsx) { } |
|
|
9 |
13680 |
elsif (/\G ( while \s* \( \s* ) (<) ((?:(?!\s)$x)*?) (>) ( \s* \) ) /cgmsx) { } |
|
|
0 |
13680 |
elsif (/\G ( while \s* ) ( <<>> ) /cgmsx) { } |
|
|
0 |
13680 |
elsif (/\G ( while \s* ) (<) ((?:(?!\s)$x)*?) (>) /cgmsx) { } |
|
|
25 |
13655 |
elsif (/\G ( (?: if | elsif | unless | while | until | given | when | (?: CORE:: )? catch ) \s* ) ( \( ) /cgmsx) { } |
|
|
4 |
13651 |
elsif (/\G mb:: ( catch \s* ) ( \( ) /cgmsx) { } |
|
|
1 |
13650 |
elsif (/\G ( else ) \b /cgmsx) { } |
|
|
13 |
13637 |
elsif (/\G ( if | unless | while | until ) \b /cgmsx) { } |
|
|
0 |
13637 |
elsif (/\G ( (?: foreach | for ) \s+ my \s* [\$] [A-Za-z_][A-Za-z_0-9]* ) ( \( ) /cgmsx) { } |
|
|
0 |
13637 |
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 |
13633 |
elsif (/\G ( (?: foreach | for ) \s* ) ( \( ) /cgmsx) { } |
|
|
679 |
12954 |
elsif (/\G (?: CORE:: | mb:: | $old_package )? ( split ) \b /cgmsx) { } |
|
|
15 |
12939 |
elsif (/\G ( (?: lc | lcfirst | uc | ucfirst ) ) \b /cgmsx) { } |
|
|
3 |
12936 |
elsif (/\G ( (?: CORE:: | mb:: )? require ) /cgmsx) { } |
|
|
42 |
12894 |
elsif (/\G ( mb::use | mb::no ) \b /cgmsx) { } |
|
|
1 |
12893 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
2 |
12891 |
elsif (/\G ( mb::getc ) (?= (?: \s* \( )* \s* \$ ) /cgmsx) { } |
|
|
2 |
12889 |
elsif (/\G ( mb::getc ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
1 |
12888 |
elsif (/\G ( mb::getc ) /cgmsx) { } |
|
|
28 |
12860 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
chop |
chr |
getc |
lc |
lcfirst |
length |
ord |
uc |
ucfirst
) ) \b /cgmsx) { } |
|
|
26 |
12834 |
elsif (/\G ( (?: CORE:: | mb:: )? (?:
index |
reverse |
rindex |
substr
) ) \b /cgmsx) { } |
|
|
2 |
12832 |
elsif (/\G ( mb:: (?: index_byte | rindex_byte ) ) \b /cgmsx) { } |
|
|
2885 |
9947 |
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 |
9945 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )+ \s* \) ) /cgmsx) { } |
|
|
18 |
9927 |
elsif (/\G ( lstat | stat ) (?= (?: \s* \( )* \b (?: ' | " | ` | m | q | qq | qr | qw | qx | s | tr | y | \$ ) \b ) /cgmsx) { } |
|
|
10 |
9917 |
elsif (/\G ( lstat | stat ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \b ) /cgmsx) { } |
|
|
4 |
9913 |
elsif (/\G ( opendir ) \b ( (?: \s* \( )* \s* ) (?= [A-Za-z_][A-Za-z0-9_]* \s* , ) /cgmsx) { } |
|
|
32 |
9881 |
elsif (/\G ( chdir | lstat | stat | unlink ) \b /cgmsx) { } |
|
|
4 |
9877 |
elsif (/\G ( opendir ) \b /cgmsx) { } |
|
|
0 |
9877 |
elsif (/\G (
Carp::carp |
Carp::cluck |
Carp::confess |
Carp::croak |
carp |
cluck |
confess |
croak |
die |
print |
printf |
say |
warn
) (?= (?: \s+ | [#] .* )* << ) /cgx) { } |
|
|
28 |
9849 |
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 |
9849 |
elsif (/\G (
(?: printf | print | say )
(?: \s+ | [#] .* )*
) (\{)
/cgx) { } |
|
|
14 |
9835 |
elsif (/\G ( return ) /cgmsx) { } |
|
|
675 |
9160 |
elsif (/\G ( [A-Za-z_][A-Za-z_0-9]*(?:(?:'|::)[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) { } |
|
|
396 |
8764 |
elsif (/\G ([\)\}\]]) /cgmsx) { } |
|
|
8764 |
0 |
elsif (/\G ([\x00-\x7F]) /cgmsx) { } |
|
|
0 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
2264
|
14 |
9 |
if ($quote_type eq 'qq') { } |
|
|
9 |
0 |
elsif ($quote_type eq 'q') { } |
|
2409
|
0 |
8409 |
if (my $ambiguous_char = parse_ambiguous_char()) { } |
|
2640
|
28 |
126357 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2645
|
23 |
126362 |
if ($modifier_i) { } |
|
2660
|
0 |
1 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2665
|
0 |
1 |
if ($modifier_i) { } |
|
2697
|
2 |
172 |
if (/\G ( [#] ) /cgmsx) { } |
|
|
2 |
170 |
elsif (/\G ( ['] ) /cgmsx) { } |
|
|
48 |
122 |
elsif (/\G ( [\(\{\[\<] ) /cgmsx) { } |
|
|
6 |
116 |
elsif (m[\G( [/] ) ]cgmsx) { } |
|
|
48 |
68 |
elsif (/\G ( [\S] ) /cgmsx) { } |
|
|
68 |
0 |
elsif (/\G ( \s+ ) /cgmsx) { } |
|
2706
|
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) { } |
|
2720
|
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) { } |
|
2729
|
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) { } |
|
2743
|
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) { } |
|
2752
|
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) { } |
|
2767
|
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) { } |
|
2777
|
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) { } |
|
2790
|
2 |
1653 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2795
|
37 |
1618 |
if ($modifier_i) { } |
|
2812
|
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) { } |
|
2815
|
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) { } |
|
2824
|
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) { } |
|
2841
|
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) { } |
|
2844
|
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) { } |
|
2853
|
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) { } |
|
2875
|
9 |
1704 |
if (my $e = $modifier_cegr =~ tr/e//d) { } |
|
|
300 |
1404 |
elsif ($replacement[0] =~ /\A ' /msx) { } |
|
|
2 |
1402 |
elsif ($replacement[0] =~ /\A [#] /msx) { } |
|
2896
|
1 |
1712 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
2901
|
18 |
1695 |
if ($modifier_i) { } |
|
2916
|
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) { } |
|
2919
|
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) { } |
|
2928
|
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) { } |
|
2943
|
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) { } |
|
2946
|
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) { } |
|
2955
|
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) { } |
|
2972
|
0 |
2159 |
if ($modifier_r) { } |
|
|
28 |
2131 |
elsif ($modifier_not_r =~ /s/) { } |
|
3022
|
16 |
2115 |
if ($modifier_not_r =~ /c/) { } |
|
3044
|
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) { } |
|
3056
|
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) { } |
|
3183
|
296 |
1068 |
if (/\G ( \s+ ) /cgmsx) { } |
|
|
389 |
679 |
elsif (/\G ( \( ) /cgmsx) { } |
|
|
16 |
663 |
elsif (/\G ( \# .* \n ) /cgmx) { } |
|
3201
|
24 |
655 |
if (m[\G ( [/] ) ]cgmsx) { } |
|
|
611 |
44 |
elsif (/\G ( m | qr ) \b /cgmsx) { } |
|
3218
|
18 |
6 |
unless ($modifier_not_cegir =~ /m/msx) |
|
3223
|
1 |
23 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
3228
|
6 |
18 |
if ($modifier_i) { } |
|
3241
|
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) { } |
|
3251
|
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) { } |
|
3263
|
607 |
4 |
unless ($modifier_not_cegir =~ /m/msx) |
|
3268
|
1 |
610 |
if ($modifier_not_cegir =~ tr/x// >= 2) |
|
3273
|
16 |
595 |
if ($modifier_i) { } |
|
3304
|
42 |
0 |
if (/\G ( [A-Za-z_][A-Za-z_0-9]* (?: ::[A-Za-z_][A-Za-z_0-9]*)* ) /cgmsx) |
|
3310
|
26 |
16 |
if (/\G ( [0-9]+ (?: \.[0-9]+)* ) /cgmsx) |
|
3318
|
12 |
30 |
if ($list eq '') { } |
|
|
8 |
22 |
elsif (scalar eval "()=$list" == 0) { } |
|
3632
|
37 |
5423 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
1083 |
4340 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
3641
|
1046 |
37 |
if (--$nest_bracket <= 0) |
|
3660
|
42 |
30 |
if (/\G (?= $endswith ) /cgmsx) { } |
|
3676
|
9 |
456 |
if (/\G ( $R $endswith ) /cgmsx) { } |
|
|
456 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3704
|
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) { } |
|
3875
|
0 |
276 |
if (/\G (\Q$open_bracket\E) /cgmsx) { } |
|
|
56 |
220 |
elsif (/\G (\Q$close_bracket\E) /cgmsx) { } |
|
|
0 |
220 |
elsif (/\G (\\ \Q$close_bracket\E) /cgmsx) { } |
|
3881
|
56 |
0 |
if (--$nest_bracket <= 0) |
|
3901
|
5985 |
8713 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
8713 |
elsif (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
3919
|
13 |
8920 |
if (/\G (\\\\) /cgmsx) { } |
|
|
8920 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
3949
|
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) { } |
|
3963
|
85 |
0 |
if (--$nest_bracket <= 0) { } |
|
4043
|
67 |
18 |
if (wantarray) { } |
|
4061
|
0 |
705944 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
136315 |
569629 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\L \\u) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\U \\l) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\L) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\U) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\l) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\u) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\Q) /cgmsx) { } |
|
|
0 |
569629 |
elsif (/\G (\\E) /cgmsx) { } |
|
4068
|
0 |
136315 |
if CORE::length $1 >= 2 |
|
4141
|
1646 |
134669 |
if (wantarray) { } |
|
4157
|
0 |
569861 |
if (/\G ( \\o\{ (.*?) \} ) /cgmsx) { } |
|
|
1 |
569860 |
elsif (/\G ( \\x\{ (.*?) \} ) /cgmsx) { } |
|
|
278 |
569582 |
elsif (/\G ( (\\) ($x) ) /cgmsx) { } |
|
|
2 |
569580 |
elsif (/\G ( \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
2 |
569578 |
elsif (/\G ( \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
23 |
569555 |
elsif (/\G ( \$ ([1-9][0-9]*) ) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G ( \@\{\^CAPTURE\} ) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G (\$\{\^CAPTURE\}) \s* (\[) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G ( \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G ( \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
569555 |
elsif (/\G ( \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
569555 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
4275
|
569861 |
0 |
if (wantarray) { } |
|
4289
|
95 |
6322 |
if ($i + 1 < $#hyphened and $hyphened[$i + 1] eq '-' and 1) { } |
|
4293
|
4 |
91 |
$hyphened[$i + 0] eq '\\-' ? : |
|
4294
|
4 |
91 |
$hyphened[$i + 2] eq '\\-' ? : |
|
4295
|
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]) { } |
|
4311
|
19 |
6303 |
if ($hyphened[$i] eq '\\-') { } |
|
4333
|
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) { } |
|
4344
|
2080 |
0 |
if (--$nest_bracket <= 0) |
|
4369
|
0 |
4800 |
if (/\G (\\ \Q$endswith\E) /cgmsx) { } |
|
|
2238 |
2562 |
elsif (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
9 |
2553 |
elsif (/\G (\\ -) /cgmsx) { } |
|
4393
|
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) { } |
|
4504
|
2995 |
5440 |
if (do {
CORE::length $a == 1
}) { } |
|
|
5440 |
0 |
elsif (CORE::length $a == 2) { } |
|
4506
|
435 |
2560 |
if (do {
CORE::length $b == 1
}) { } |
|
|
2560 |
0 |
elsif (CORE::length $b == 2) { } |
|
4509
|
275 |
0 |
$a[1] <= $b[1] ? : |
|
|
160 |
275 |
$a[1] <= 128 && 160 <= $b[1] ? : |
|
4518
|
1920 |
640 |
129 < $b[1] ? : |
|
|
1280 |
0 |
$a[1] <= 223 ? : |
|
|
0 |
1280 |
$a[1] < 160 ? : |
|
|
1280 |
1280 |
$a[1] <= 128 ? : |
|
4527
|
5440 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4529
|
5040 |
400 |
$a[1] < 252 ? : |
|
4533
|
5040 |
400 |
129 < $b[1] ? : |
|
4558
|
1680 |
1081 |
unless defined $to |
|
4562
|
2311 |
450 |
$from > 0 ? : |
|
4563
|
91 |
2670 |
$to < 128 ? : |
|
4564
|
1261 |
1500 |
if ($lo1 <= $hi1) |
|
4565
|
450 |
811 |
$lo1 == $hi1 ? : |
|
4570
|
1140 |
1621 |
$from > 160 ? : |
|
4571
|
301 |
2460 |
$to < 223 ? : |
|
4572
|
1770 |
991 |
if ($lo2 <= $hi2) |
|
4573
|
450 |
1320 |
$lo2 == $hi2 ? : |
|
4580
|
1800 |
961 |
if ($from <= 253 and 253 <= $to) |
|
4583
|
1890 |
871 |
if ($from <= 254 and 254 <= $to) |
|
4586
|
1920 |
841 |
if ($from <= 255 and 255 <= $to) |
|
4610
|
2761 |
840 |
if (do {
CORE::length $a == 1
}) { } |
|
|
750 |
90 |
elsif (CORE::length $a == 2) { } |
|
|
90 |
0 |
elsif (CORE::length $a == 3) { } |
|
4612
|
1081 |
1680 |
if (do {
CORE::length $b == 1
}) { } |
|
|
1200 |
480 |
elsif (CORE::length $b == 2) { } |
|
|
480 |
0 |
elsif (CORE::length $b == 3) { } |
|
4619
|
0 |
1081 |
$body eq '' ? : |
|
4623
|
720 |
480 |
129 < $b[1] ? : |
|
4632
|
240 |
240 |
161 < $b[2] ? : |
|
4644
|
450 |
300 |
if (do {
CORE::length $b == 2
}) { } |
|
|
300 |
0 |
elsif (CORE::length $b == 3) { } |
|
4646
|
420 |
30 |
$a[1] < 252 ? : |
|
4650
|
360 |
90 |
129 < $b[1] ? : |
|
4659
|
150 |
150 |
161 < $b[2] ? : |
|
|
240 |
60 |
$a[1] < 252 ? : |
|
4668
|
90 |
0 |
if (do {
CORE::length $b == 3
}) |
|
4670
|
60 |
30 |
$a[2] < 254 ? : |
|
4674
|
60 |
30 |
161 < $b[2] ? : |
|
4693
|
133 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4695
|
37 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4698
|
37 |
0 |
$a[1] <= $b[1] ? : |
|
4704
|
48 |
48 |
161 < $b[1] ? : |
|
4711
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4713
|
84 |
36 |
$a[1] < 254 ? : |
|
4717
|
84 |
36 |
161 < $b[1] ? : |
|
4749
|
384 |
722 |
if (do {
CORE::length $a == 1
}) { } |
|
|
521 |
201 |
elsif (CORE::length $a == 2) { } |
|
|
201 |
0 |
elsif (CORE::length $a == 4) { } |
|
4751
|
61 |
323 |
if (do {
CORE::length $b == 1
}) { } |
|
|
160 |
163 |
elsif (CORE::length $b == 2) { } |
|
|
163 |
0 |
elsif (CORE::length $b == 4) { } |
|
4754
|
61 |
0 |
$a[1] <= $b[1] ? : |
|
4760
|
80 |
80 |
161 < $b[1] ? : |
|
4769
|
82 |
81 |
161 < $b[3] ? : |
|
|
82 |
81 |
161 < $b[2] ? : |
|
4780
|
200 |
321 |
if (do {
CORE::length $b == 2
}) { } |
|
|
321 |
0 |
elsif (CORE::length $b == 4) { } |
|
4782
|
140 |
60 |
$a[1] < 254 ? : |
|
4786
|
140 |
60 |
161 < $b[1] ? : |
|
4795
|
161 |
160 |
161 < $b[3] ? : |
|
|
161 |
160 |
161 < $b[2] ? : |
|
|
161 |
160 |
$a[1] < 254 ? : |
|
4805
|
201 |
0 |
if (do {
CORE::length $b == 4
}) |
|
4807
|
181 |
20 |
$a[2] < 176 ? : |
|
|
181 |
20 |
$a[3] < 254 ? : |
|
4813
|
141 |
60 |
161 < $b[3] ? : |
|
|
141 |
60 |
161 < $b[2] ? : |
|
4833
|
136 |
120 |
if (do {
CORE::length $a == 1
}) { } |
|
|
120 |
0 |
elsif (CORE::length $a == 2) { } |
|
4835
|
40 |
96 |
if (do {
CORE::length $b == 1
}) { } |
|
|
96 |
0 |
elsif (CORE::length $b == 2) { } |
|
4838
|
40 |
0 |
$a[1] <= $b[1] ? : |
|
4844
|
48 |
48 |
129 < $b[1] ? : |
|
4851
|
120 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4853
|
84 |
36 |
$a[1] < 254 ? : |
|
4857
|
84 |
36 |
129 < $b[1] ? : |
|
4895
|
6842 |
8611 |
$r->[0] > $lo ? : |
|
4896
|
7110 |
8343 |
$r->[1] < $hi ? : |
|
4897
|
5642 |
9811 |
if $x > $y |
|
4898
|
2550 |
7261 |
$x == $y ? : |
|
4904
|
1951 |
1650 |
if (do {
CORE::length $a == 1
}) { } |
|
|
1650 |
0 |
elsif (CORE::length $a == 2) { } |
|
4906
|
451 |
1500 |
if (do {
CORE::length $b == 1
}) { } |
|
|
1500 |
0 |
elsif (CORE::length $b == 2) { } |
|
4909
|
0 |
451 |
$body eq '' ? : |
|
4916
|
1500 |
0 |
if $sbody ne "" |
|
4920
|
1050 |
450 |
if $lbody ne "" |
|
4928
|
1650 |
0 |
if (do {
CORE::length $b == 2
}) |
|
4933
|
1560 |
90 |
if $lo_leads ne "" |
|
4938
|
1470 |
180 |
if $up_leads ne "" |
|
4957
|
2653 |
15600 |
if (do {
CORE::length $a == 1
}) { } |
|
|
8528 |
7072 |
elsif (CORE::length $a == 2) { } |
|
|
7072 |
0 |
elsif (CORE::length $a == 4) { } |
|
4959
|
157 |
2496 |
if (do {
CORE::length $b == 1
}) { } |
|
|
832 |
1664 |
elsif (CORE::length $b == 2) { } |
|
|
1664 |
0 |
elsif (CORE::length $b == 4) { } |
|
4962
|
157 |
0 |
$a[1] <= $b[1] ? : |
|
4968
|
416 |
416 |
129 < $b[1] ? : |
|
4975
|
832 |
832 |
129 < $b[3] ? : |
|
|
832 |
832 |
48 < $b[2] ? : |
|
|
832 |
832 |
129 < $b[1] ? : |
|
4985
|
1872 |
6656 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6656 |
0 |
elsif (CORE::length $b == 4) { } |
|
4987
|
1352 |
520 |
$a[1] < 254 ? : |
|
4991
|
1352 |
520 |
129 < $b[1] ? : |
|
4999
|
3328 |
3328 |
129 < $b[3] ? : |
|
|
3328 |
3328 |
48 < $b[2] ? : |
|
|
3328 |
3328 |
129 < $b[1] ? : |
|
|
3328 |
3328 |
$a[1] < 254 ? : |
|
5009
|
7072 |
0 |
if (do {
CORE::length $b == 4
}) |
|
5011
|
5200 |
1872 |
$a[1] < 254 ? : |
|
|
4368 |
2704 |
$a[2] < 57 ? : |
|
|
3952 |
3120 |
$a[3] < 254 ? : |
|
5017
|
3952 |
3120 |
129 < $b[3] ? : |
|
|
4368 |
2704 |
48 < $b[2] ? : |
|
|
5200 |
1872 |
129 < $b[1] ? : |
|
5038
|
9737 |
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) { } |
|
5040
|
425 |
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) { } |
|
5043
|
425 |
0 |
$a[1] <= $b[1] ? : |
|
5049
|
408 |
408 |
194 < $b[1] ? : |
|
5056
|
2096 |
1280 |
128 < $b[2] ? : |
|
|
2712 |
664 |
224 < $b[1] ? : |
|
5065
|
2560 |
2560 |
128 < $b[3] ? : |
|
|
3296 |
1824 |
128 < $b[2] ? : |
|
|
3776 |
1344 |
240 < $b[1] ? : |
|
5076
|
868 |
11824 |
if (do {
CORE::length $b == 2
}) { } |
|
|
6448 |
5376 |
elsif (CORE::length $b == 3) { } |
|
|
5376 |
0 |
elsif (CORE::length $b == 4) { } |
|
5078
|
600 |
268 |
$a[1] < 223 ? : |
|
5082
|
600 |
268 |
194 < $b[1] ? : |
|
5090
|
3888 |
2560 |
128 < $b[2] ? : |
|
|
5272 |
1176 |
224 < $b[1] ? : |
|
|
3224 |
3224 |
$a[1] < 223 ? : |
|
5099
|
2688 |
2688 |
128 < $b[3] ? : |
|
|
3552 |
1824 |
128 < $b[2] ? : |
|
|
3904 |
1472 |
240 < $b[1] ? : |
|
|
2688 |
2688 |
$a[1] < 223 ? : |
|
5110
|
19442 |
7936 |
if (do {
CORE::length $b == 3
}) { } |
|
|
7936 |
0 |
elsif (CORE::length $b == 4) { } |
|
5112
|
18726 |
716 |
$a[1] < 239 ? : |
|
|
11750 |
7692 |
$a[2] < 191 ? : |
|
5117
|
10802 |
8640 |
128 < $b[2] ? : |
|
|
18726 |
716 |
224 < $b[1] ? : |
|
5126
|
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 ? : |
|
5137
|
40320 |
0 |
if (do {
CORE::length $b == 4
}) |
|
5139
|
37520 |
2800 |
$a[1] < 244 ? : |
|
|
23448 |
16872 |
$a[2] < 191 ? : |
|
|
21408 |
18912 |
$a[3] < 191 ? : |
|
5145
|
21408 |
18912 |
128 < $b[3] ? : |
|
|
23448 |
16872 |
128 < $b[2] ? : |
|
|
37520 |
2800 |
240 < $b[1] ? : |
|
5188
|
45 |
0 |
if (my($m) = $source =~ /\A \( \? \^? (.*?) : /x) |
|
5201
|
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) { } |
|
5210
|
13 |
2 |
if ($i < $#classmate and $classmate[$i + 1] eq '-') { } |
|
5211
|
0 |
13 |
$classmate[$i + 0] =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x ? : |
|
5212
|
0 |
13 |
$classmate[$i + 2] =~ /\A \\x \{ ([0123456789ABCDEFabcdef]+) \} \z/x ? : |
|
5221
|
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) { } |
|
5280
|
2 |
10 |
if ($negative eq '^') { } |
|
|
0 |
10 |
elsif ($] =~ /\A5\.006/) { } |
|
5281
|
0 |
0 |
@sbcs && !@xbcs ? : |
|
|
2 |
0 |
!@sbcs && @xbcs ? : |
|
|
0 |
2 |
@sbcs && @xbcs ? : |
|
5290
|
0 |
0 |
@sbcs && !@xbcs ? : |
|
|
0 |
0 |
!@sbcs && @xbcs ? : |
|
|
0 |
0 |
@sbcs && @xbcs ? : |
|
5299
|
2 |
0 |
@sbcs && !@xbcs ? : |
|
|
8 |
2 |
!@sbcs && @xbcs ? : |
|
|
0 |
10 |
@sbcs && @xbcs ? : |
|
5308
|
1 |
3 |
$modifiers =~ /s/ ? : |
|
5326
|
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) { } |
|
5359
|
2 |
43 |
if ($modifiers ne '') { } |
|
5388
|
0 |
378280 |
if (do {
$codepoint_class =~ /\G\\o\{([01234567]+)\}/cgmsx
}) { } |
|
|
0 |
378280 |
elsif ($codepoint_class =~ /\G\\x\{([0123456789ABCDEFabcdef]+)\}/cgmsx) { } |
|
|
100 |
378180 |
elsif ($codepoint_class =~ /\G(\[:.+?:\])/cgmsx) { } |
|
|
562 |
377618 |
elsif ($codepoint_class =~ /\G((?>\\$x))/cgmsx) { } |
|
|
377618 |
0 |
elsif ($codepoint_class =~ /\G($x)/cgmsx) { } |
|
5414
|
125619 |
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) { } |
|
5417
|
8435 |
117184 |
if (do {
$script_encoding =~ /\A (?: sjis ) \z/msx
}) { } |
|
|
3601 |
113583 |
elsif ($script_encoding =~ /\A (?: informixv6als ) \z/msx) { } |
|
|
253 |
113330 |
elsif ($script_encoding =~ /\A (?: eucjp ) \z/msx) { } |
|
|
1106 |
112224 |
elsif ($script_encoding =~ /\A (?: euctw ) \z/msx) { } |
|
|
3601 |
108623 |
elsif ($script_encoding =~ /\A (?: hp15 ) \z/msx) { } |
|
|
256 |
108367 |
elsif ($script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs ) \z/msx) { } |
|
|
18253 |
90114 |
elsif ($script_encoding =~ /\A (?: gb18030 ) \z/msx) { } |
|
|
90114 |
0 |
elsif ($script_encoding =~ /\A (?: rfc2279 | utf8 | wtf8 ) \z/msx) { } |
|
5497
|
12 |
0 |
if (CORE::length $2 == 1) { } |
|
5507
|
417 |
344 |
if (CORE::length $1 == 1) { } |
|
5527
|
398 |
0 |
@sbcs && !@xbcs ? : |
|
|
126164 |
398 |
!@sbcs && @xbcs ? : |
|
|
28 |
126562 |
@sbcs && @xbcs ? : |
|
5541
|
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) { } |
|
5550
|
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) { } |
|
5622
|
0 |
0 |
if ($operator eq 's') { } |
|
5632
|
99 |
145 |
if (CORE::length $1 == 1) { } |
|
5664
|
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) { } |
|
5669
|
564 |
0 |
if (--$nest_bracket <= 0) { } |
|
5745
|
128877 |
130343 |
if (/\G (\Q$endswith\E) /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\L \\u /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\U \\l /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\L /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\U /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\l /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\u /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\Q /cgmsx) { } |
|
|
0 |
130343 |
elsif (/\G \\E /cgmsx) { } |
|
5817
|
127158 |
3754 |
if (/\G \[ /cgmsx) { } |
|
|
44 |
3710 |
elsif (/\G \. /cgmsx) { } |
|
|
7 |
3703 |
elsif (/\G \\B /cgmsx) { } |
|
|
18 |
3685 |
elsif (/\G \\D /cgmsx) { } |
|
|
10 |
3675 |
elsif (/\G \\H /cgmsx) { } |
|
|
8 |
3667 |
elsif (/\G \\N /cgmsx) { } |
|
|
12 |
3655 |
elsif (/\G \\R /cgmsx) { } |
|
|
14 |
3641 |
elsif (/\G \\S /cgmsx) { } |
|
|
12 |
3629 |
elsif (/\G \\V /cgmsx) { } |
|
|
71 |
3558 |
elsif (/\G \\W /cgmsx) { } |
|
|
7 |
3551 |
elsif (/\G \\b /cgmsx) { } |
|
|
17 |
3534 |
elsif (/\G \\d /cgmsx) { } |
|
|
10 |
3524 |
elsif (/\G \\h /cgmsx) { } |
|
|
18 |
3506 |
elsif (/\G \\s /cgmsx) { } |
|
|
14 |
3492 |
elsif (/\G \\v /cgmsx) { } |
|
|
70 |
3422 |
elsif (/\G \\w /cgmsx) { } |
|
|
0 |
3422 |
elsif (/\G \\o\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3422 |
elsif (/\G \\x\{ (.*?) \} /cgmsx) { } |
|
|
0 |
3422 |
elsif (/\G (\\ 0[1-7]*) /cgmsx) { } |
|
|
0 |
3422 |
elsif (/\G (\\ [1-3][0-7][0-7]) /cgmsx) { } |
|
|
24 |
3398 |
elsif (/\G (\\) ([1-9][0-9]*) /cgmsx) { } |
|
|
8 |
3390 |
elsif (/\G (\\) ($x) /cgmsx) { } |
|
|
0 |
3390 |
elsif (/\G (?: \$` | \$\{`\} | \$PREMATCH | \$\{PREMATCH\} | \$\{\^PREMATCH\} ) /cgmsx) { } |
|
|
0 |
3390 |
elsif (/\G (?: \$& | \$\{&\} | \$MATCH | \$\{MATCH\} | \$\{\^MATCH\} ) /cgmsx) { } |
|
|
24 |
3366 |
elsif (/\G \$ ([1-9][0-9]*) /cgmsx) { } |
|
|
0 |
3366 |
elsif (/\G \$\{\^CAPTURE\} \s* (\[) /cgmsx) { } |
|
|
0 |
3366 |
elsif (/\G (?: \@- | \@LAST_MATCH_START | \@\{LAST_MATCH_START\} | \@\{\^LAST_MATCH_START\} ) /cgmsx) { } |
|
|
0 |
3366 |
elsif (/\G (?: \$- | \$LAST_MATCH_START | \$\{LAST_MATCH_START\} | \$\{\^LAST_MATCH_START\} ) \s* (\[) /cgmsx) { } |
|
|
0 |
3366 |
elsif (/\G (?: \@\+ | \@LAST_MATCH_END | \@\{LAST_MATCH_END\} | \@\{\^LAST_MATCH_END\} ) /cgmsx) { } |
|
|
0 |
3366 |
elsif (/\G (?: \$\+ | \$LAST_MATCH_END | \$\{LAST_MATCH_END\} | \$\{\^LAST_MATCH_END\} ) \s* (\[) /cgmsx) { } |
|
|
3366 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5820
|
127158 |
442929 |
if (/\G \] /cgmsx) { } |
|
|
510 |
442419 |
elsif (/\G (\\) /cgmsx) { } |
|
|
98 |
442321 |
elsif (/\G (\[:\^[a-z]*:\]) /cgmsx) { } |
|
|
114 |
442207 |
elsif (/\G (\[:[a-z]*:\]) /cgmsx) { } |
|
|
442207 |
0 |
elsif (/\G ($x) /cgmsx) { } |
|
5899
|
0 |
24 |
if ($operator eq 's') { } |
|
5909
|
8 |
0 |
if (CORE::length $2 == 1) { } |
|
5986
|
2803 |
563 |
if (CORE::length $1 == 1) { } |
|
6013
|
0 |
130724 |
if (/\G [adlpu] /cgmsx) { } |
|
|
100 |
130624 |
elsif (/\G ([i]) /cgmsx) { } |
|
|
70 |
130554 |
elsif (/\G ([cegr]) /cgmsx) { } |
|
|
165 |
130389 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
6038
|
0 |
2247 |
if (/\G ([r]) /cgmsx) { } |
|
|
88 |
2159 |
elsif (/\G ([a-z]) /cgmsx) { } |
|
6061
|
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) { } |
|
6077
|
1160 |
1031 |
if (CORE::length $1 == 1) { } |
|
6098
|
1116 |
0 |
@sbcs && !@xbcs ? : |
|
|
21 |
1116 |
!@sbcs && @xbcs ? : |
|
|
994 |
1137 |
@sbcs && @xbcs ? : |
|
6107
|
3266 |
0 |
if (CORE::length $_[0] >= 2) { } |
|
6119
|
0 |
578475 |
if ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
2712 |
575763 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ($escapee_in_q__like) \z/msx) { } |
|
6141
|
0 |
1013713 |
if ($codepoint eq '`') { } |
|
|
1032 |
1012681 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) (\Q$endswith\E) \z/msx) { } |
|
|
21723 |
990958 |
elsif ($codepoint =~ /\A ([^\x00-\x7F]) ([$escapee_in_qq_like]) \z/msx) { } |
|
6159
|
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) { } |
|
6177
|
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) { } |