| line |
!l |
l&&!r |
l&&r |
condition |
|
27
|
159 |
0 |
0 |
$] < "5.006" and not defined &warnings::import |
|
89
|
93 |
48 |
0 |
defined $_[0] and $_[0] =~ /\A [0-9] /msx |
|
163
|
18 |
0 |
111 |
not $want_runtime || $ENV{'PERL_MB_OCTET'} and $] >= "5.008" |
|
560
|
150 |
0 |
0 |
@_ and not wantarray |
|
872
|
19 |
8 |
284 |
$pos < CORE::length $str and $pos <= $position |
|
1136
|
205 |
0 |
3123 |
defined $replacement[$i] and $replacement[$i] ne "" |
|
|
8 |
0 |
89 |
defined $replacement[-1] and $replacement[-1] ne "" |
|
1182
|
43 |
0 |
9 |
defined $last_transliterated and $replacement[-1] eq $last_transliterated |
|
1229
|
131 |
28 |
177 |
defined $last_transliterated and $tr{$x} eq $last_transliterated |
|
1400
|
0 |
0 |
8 |
defined $1 and CORE::substr($&, 0, CORE::length $1) eq $1 |
|
1408
|
0 |
0 |
53 |
defined $1 and CORE::substr($&, -CORE::length($1)) eq $1 |
|
1429
|
0 |
0 |
7 |
defined $1 and CORE::substr($&, -CORE::length($1)) eq $1 |
|
1673
|
0 |
18 |
38 |
defined $_[0] and $_[0] eq '' || $_[0] =~ /\A \( \? \^? [-a-z]* : \) \z/x |
|
1675
|
20 |
2 |
16 |
defined $_[2] and $_[2] > 0 |
|
|
22 |
4 |
12 |
defined $_[2] and $_[2] > 0 and scalar @x > $_[2] |
|
1727
|
4 |
298 |
34 |
($modifier) = $pattern =~ /\A \(\?\^? (.+?) [\)\-\:] /msx and $modifier =~ /x/msx |
|
1761
|
303 |
12 |
21 |
defined $_[2] and $_[2] >= 1 |
|
1767
|
15 |
6 |
42 |
--$limit > 0 and $string =~ s/\A((?:$x)$substring_quantifier)$pattern// |
|
1787
|
21 |
6 |
6 |
defined $_[2] and $_[2] >= 1 |
|
1798
|
0 |
309 |
0 |
scalar @split >= 1 and $split[-1] eq "" |
|
1823
|
2 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
1833
|
0 |
0 |
0 |
$script_encoding =~ /\A (?: sjis | informixv6als ) \z/msx and $_[0] =~ /\A $x* [\x81-\x9F\xE0-\xFC][\x5C] \z/msx |
|
|
0 |
0 |
0 |
$script_encoding =~ /\A (?: hp15 ) \z/msx and $_[0] =~ /\A $x* [\x80-\xA0\xE0-\xFE][\x5C] \z/msx |
|
|
0 |
0 |
0 |
$script_encoding =~ /\A (?: gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and $_[0] =~ /\A $x* [\x81-\xFE][\x5C] \z/msx |
|
1870
|
11209 |
0 |
0 |
@_ and not wantarray |
|
1873
|
11209 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
|
11209 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/ |
|
1908
|
3 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
|
3 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/ |
|
1927
|
7 |
0 |
0 |
$OSNAME =~ /MSWin32/ && $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
1945
|
9 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
|
9 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx and /[\x5C]\z/ |
|
1961
|
10222 |
0 |
0 |
$OSNAME =~ /MSWin32/ and $script_encoding =~ /\A (?: sjis | informixv6als | hp15 | gbk | uhc | big5 | big5hkscs | gb18030 ) \z/msx |
|
4289
|
5692 |
630 |
95 |
$i + 1 < $#hyphened and $hyphened[$i + 1] eq "-" |
|
4509
|
120 |
155 |
160 |
$a[1] <= 128 && 160 <= $b[1] |
|
4580
|
510 |
451 |
1800 |
$from <= 253 and 253 <= $to |
|
4583
|
240 |
631 |
1890 |
$from <= 254 and 254 <= $to |
|
4586
|
0 |
841 |
1920 |
$from <= 255 and 255 <= $to |
|
5210
|
2 |
0 |
13 |
$i < $#classmate and $classmate[$i + 1] eq "-" |
|
5281
|
2 |
0 |
0 |
@sbcs && @xbcs |
|
|
0 |
0 |
2 |
!@sbcs && @xbcs |
|
|
0 |
0 |
0 |
@sbcs && !@xbcs |
|
5290
|
0 |
0 |
0 |
@sbcs && @xbcs |
|
|
0 |
0 |
0 |
!@sbcs && @xbcs |
|
|
0 |
0 |
0 |
@sbcs && !@xbcs |
|
5299
|
8 |
2 |
0 |
@sbcs && @xbcs |
|
|
2 |
0 |
8 |
!@sbcs && @xbcs |
|
|
0 |
0 |
2 |
@sbcs && !@xbcs |
|
5414
|
987 |
436 |
125619 |
$i < $#classmate and $classmate[$i + 1] eq "-" |
|
5527
|
126164 |
398 |
28 |
@sbcs && @xbcs |
|
|
398 |
0 |
126164 |
!@sbcs && @xbcs |
|
|
0 |
0 |
398 |
@sbcs && !@xbcs |
|
6098
|
21 |
1116 |
994 |
@sbcs && @xbcs |
|
|
1116 |
0 |
21 |
!@sbcs && @xbcs |
|
|
0 |
0 |
1116 |
@sbcs && !@xbcs |
| line |
l |
!l |
condition |
|
332
|
0 |
0 |
$module_path ||= "." |
|
343
|
2 |
0 |
$module_path ||= "." |
|
656
|
8 |
65 |
$position ||= 0 |
|
918
|
277 |
0 |
{'sjis', '(?>[\\x81-\\x9F\\xE0-\\xFC][\\x00-\\xFF]|[\\x80-\\xFF])', 'informixv6als', '(?>[\\x81-\\x9F\\xE0-\\xFC][\\x00-\\xFF]|\\xFD[\\xA1-\\xFE][\\x00-\\xFF]|[\\x80-\\xFF])', 'gbk', '(?>[\\x81-\\xFE][\\x00-\\xFF])', 'uhc', '(?>[\\x81-\\xFE][\\x00-\\xFF])', 'big5', '(?>[\\x81-\\xFE][\\x00-\\xFF])', 'big5hkscs', '(?>[\\x81-\\xFE][\\x00-\\xFF])', 'hp15', '(?>[\\x80-\\xA0\\xE0-\\xFE][\\x00-\\xFF]|[\\x80-\\xFF])', 'eucjp', '(?>[\\xA1-\\xFE][\\x00-\\xFF])', 'euctw', '(?>\\x8E[\\xA1-\\xB0][\\xA1-\\xFE][\\x00-\\xFF]|[\\xA1-\\xFE][\\xA1-\\xFE])', 'gb18030', '(?>[\\x81-\\xFE][\\x30-\\x39][\\x81-\\xFE][\\x30-\\x39]|[\\x81-\\xFE][\\x00-\\xFF])', 'rfc2279', '(?>[\\xC2-\\xDF][\\x80-\\xBF]|[\\xE0-\\xEF][\\x80-\\xBF][\\x80-\\xBF]|[\\xF0-\\xF4][\\x80-\\xBF][\\x80-\\xBF][\\x80-\\xBF])', 'utf8', '(?>[\\xE1-\\xEC][\\x80-\\xBF][\\x80-\\xBF]|[\\xC2-\\xDF][\\x80-\\xBF]|[\\xEE-\\xEF][\\x80-\\xBF][\\x80-\\xBF]|[\\xF0-\\xF0][\\x90-\\xBF][\\x80-\\xBF][\\x80-\\xBF]|[\\xE0-\\xE0][\\xA0-\\xBF][\\x80-\\xBF]|[\\xED-\\xED][\\x80-\\x9F][\\x80-\\xBF]|[\\xF1-\\xF3][\\x80-\\xBF][\\x80-\\xBF][\\x80-\\xBF]|[\\xF4-\\xF4][\\x80-\\x8F][\\x80-\\xBF][\\x80-\\xBF])', 'wtf8', '(?>[\\xE1-\\xEF][\\x80-\\xBF][\\x80-\\xBF]|[\\xC2-\\xDF][\\x80-\\xBF]|[\\xE0-\\xE0][\\xA0-\\xBF][\\x80-\\xBF]|[\\xF0-\\xF0][\\x90-\\xBF][\\x80-\\xBF][\\x80-\\xBF]|[\\xF1-\\xF3][\\x80-\\xBF][\\x80-\\xBF][\\x80-\\xBF]|[\\xF4-\\xF4][\\x80-\\x8F][\\x80-\\xBF][\\x80-\\xBF])'}->{$script_encoding} || '[\\x80-\\xFF]' |
|
989
|
134 |
0 |
{'sjis', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFC]+\z).*?|.*?[^\x81-\x9F\xE0-\xFC](?>[\x81-\x9F\xE0-\xFC][\x81-\x9F\xE0-\xFC])*?))/msx, 'hp15', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x80-\xA0\xE0-\xFE]+\z).*?|.*?[^\x80-\xA0\xE0-\xFE](?>[\x80-\xA0\xE0-\xFE][\x80-\xA0\xE0-\xFE])*?))/msx, 'informixv6als', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFD]+\z).*?|.*?[^\x81-\x9F\xE0-\xFD](?>[\x81-\x9F\xE0-\xFC][\x00-\xFF]|\xFD[\xA1-\xFE][\x00-\xFF])*?))/msx, 'eucjp', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\xA1-\xFE\xA1-\xFE]+\z).*?|.*?[^\xA1-\xFE\xA1-\xFE](?>[\xA1-\xFE\xA1-\xFE][\xA1-\xFE\xA1-\xFE])*?))/msx, 'euctw', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x8E\xA1-\xFE]+\z).*?|.*?[^\x8E\xA1-\xFE](?>\x8E[\xA1-\xB0][\xA1-\xFE][\x00-\xFF]|[\xA1-\xFE][\xA1-\xFE])*?))/msx, 'gbk', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'uhc', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5hkscs', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'gb18030', qr/(?(?=.{0,2147483646}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx}->{$script_encoding} || die() |
|
1003
|
0 |
0 |
{'sjis', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFC]+\z).*?|.*?[^\x81-\x9F\xE0-\xFC](?>[\x81-\x9F\xE0-\xFC][\x81-\x9F\xE0-\xFC])*?))/msx, 'hp15', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x80-\xA0\xE0-\xFE]+\z).*?|.*?[^\x80-\xA0\xE0-\xFE](?>[\x80-\xA0\xE0-\xFE][\x80-\xA0\xE0-\xFE])*?))/msx, 'informixv6als', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFD]+\z).*?|.*?[^\x81-\x9F\xE0-\xFD](?>[\x81-\x9F\xE0-\xFC][\x00-\xFF]|\xFD[\xA1-\xFE][\x00-\xFF])*?))/msx, 'eucjp', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\xA1-\xFE\xA1-\xFE]+\z).*?|.*?[^\xA1-\xFE\xA1-\xFE](?>[\xA1-\xFE\xA1-\xFE][\xA1-\xFE\xA1-\xFE])*?))/msx, 'euctw', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x8E\xA1-\xFE]+\z).*?|.*?[^\x8E\xA1-\xFE](?>\x8E[\xA1-\xB0][\xA1-\xFE][\x00-\xFF]|[\xA1-\xFE][\xA1-\xFE])*?))/msx, 'gbk', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'uhc', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5hkscs', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'gb18030', qr/(?(?=.{0,65534}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx}->{$script_encoding} || die() |
|
1017
|
0 |
0 |
{'sjis', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFC]+\z).*?|.*?[^\x81-\x9F\xE0-\xFC](?>[\x81-\x9F\xE0-\xFC][\x81-\x9F\xE0-\xFC])*?))/msx, 'hp15', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x80-\xA0\xE0-\xFE]+\z).*?|.*?[^\x80-\xA0\xE0-\xFE](?>[\x80-\xA0\xE0-\xFE][\x80-\xA0\xE0-\xFE])*?))/msx, 'informixv6als', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\x9F\xE0-\xFD]+\z).*?|.*?[^\x81-\x9F\xE0-\xFD](?>[\x81-\x9F\xE0-\xFC][\x00-\xFF]|\xFD[\xA1-\xFE][\x00-\xFF])*?))/msx, 'eucjp', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\xA1-\xFE\xA1-\xFE]+\z).*?|.*?[^\xA1-\xFE\xA1-\xFE](?>[\xA1-\xFE\xA1-\xFE][\xA1-\xFE\xA1-\xFE])*?))/msx, 'euctw', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x8E\xA1-\xFE]+\z).*?|.*?[^\x8E\xA1-\xFE](?>\x8E[\xA1-\xB0][\xA1-\xFE][\x00-\xFF]|[\xA1-\xFE][\xA1-\xFE])*?))/msx, 'gbk', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'uhc', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'big5hkscs', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx, 'gb18030', qr/(?(?=.{0,32766}\z)(?:$x)*?|(?(?=[^\x81-\xFE\x81-\xFE]+\z).*?|.*?[^\x81-\xFE\x81-\xFE](?>[\x81-\xFE\x81-\xFE][\x81-\xFE\x81-\xFE])*?))/msx}->{$script_encoding} || die() |
|
1064
|
726748 |
0 |
{'sjis', 'Sjis::', 'hp15', 'HP15::', 'informixv6als', 'INFORMIXV6ALS::', 'gbk', 'GBK::', 'uhc', 'UHC::', 'big5', 'Big5::', 'big5hkscs', 'Big5HKSCS::', 'eucjp', 'EUCJP::', 'euctw', 'EUCTW::', 'gb18030', 'GB18030::', 'rfc2279', 'RFC2279::', 'utf8', 'UTF2::', 'wtf8', 'WTF8::'}->{&get_script_encoding()} || die() |
|
2039
|
9 |
1 |
{'ja_JP.PCK', 'sjis', 'ja', 'eucjp', 'japanese', 'eucjp', 'ja_JP.eucJP', 'eucjp', 'zh', 'gbk', 'zh.GBK', 'gbk', 'zh_CN.GBK', 'gbk', 'zh_CN.EUC', 'gbk', 'zh_CN.GB18030', 'gb18030', 'ko', 'uhc', 'ko_KR.EUC', 'uhc', 'zh_TW', 'euctw', 'zh_TW.EUC', 'euctw', 'zh_TW.BIG5', 'big5', 'zh_HK.BIG5HK', 'big5hkscs'}->{$LANG} || 'utf8' |
|
2064
|
7 |
1 |
{'japanese', 'sjis', 'ja_JP.SJIS', 'sjis', 'japanese.euc', 'eucjp', 'ja_JP.eucJP', 'eucjp', 'zh_CN.hp15CN', 'gbk', 'zh_CN.gb18030', 'gb18030', 'ko_KR.eucKR', 'uhc', 'zh_TW.eucTW', 'euctw', 'zh_TW.big5', 'big5', 'zh_HK.big5', 'big5hkscs', 'zh_HK.hkbig5', 'big5hkscs'}->{$LANG} || 'utf8' |
|
2096
|
7 |
1 |
{'Ja_JP', 'sjis', 'Ja_JP.IBM-943', 'sjis', 'ja_JP', 'eucjp', 'ja_JP.IBM-eucJP', 'eucjp', 'zh_CN', 'gbk', 'zh_CN.IBM-eucCN', 'gbk', 'Zh_CN', 'gb18030', 'Zh_CN.GB18030', 'gb18030', 'ko_KR', 'uhc', 'ko_KR.IBM-eucKR', 'uhc', 'zh_TW', 'euctw', 'zh_TW.IBM-eucTW', 'euctw', 'Zh_TW', 'big5', 'Zh_TW.big-5', 'big5', 'Zh_HK', 'big5hkscs', 'Zh_HK.BIG5-HKSCS', 'big5hkscs'}->{$LANG} || 'utf8' |
|
2145
|
15 |
155 |
{'japanese', 'sjis', 'ja_JP.SJIS', 'sjis', 'ja_JP.mscode', 'sjis', 'ja', 'eucjp', 'japan', 'eucjp', 'japanese.euc', 'eucjp', 'Japanese-EUC', 'eucjp', 'ja_JP', 'eucjp', 'ja_JP.ujis', 'eucjp', 'ja_JP.eucJP', 'eucjp', 'ja_JP.EUC-JP', 'eucjp', 'ja_JP.AJEC', 'eucjp', 'ja_JP.EUC', 'eucjp', 'Jp_JP', 'eucjp', 'zh_CN', 'gbk', 'zh_CN.EUC', 'gbk', 'zh_CN.GB2312', 'gbk', 'zh_CN.GBK', 'gbk', 'zh_CN.hp15CN', 'gbk', 'zh_SG', 'gbk', 'zh_SG.GBK', 'gbk', 'zh_CN.gb18030', 'gb18030', 'zh_CN.GB18030', 'gb18030', 'ko_KR.eucKR', 'uhc', 'ko_KR.EUC-KR', 'uhc', 'zh_TW.eucTW', 'euctw', 'zh_TW.EUC-TW', 'euctw', 'zh_TW.Big5', 'big5', 'zh_TW.big5', 'big5', 'zh_HK', 'big5hkscs', 'zh_HK.big5', 'big5hkscs', 'zh_HK.BIG5-HKSCS', 'big5hkscs'}->{$LANG} || 'utf8' |
|
3299
|
42 |
0 |
{'mb::use', 'import', 'mb::no', 'unimport'}->{$1} || die() |
|
3626
|
1046 |
0 |
{'(', ')', '{', '}', '[', ']', '<', '>'}->{$open_bracket} || die() |
|
3871
|
56 |
0 |
{'(', ')', '{', '}', '[', ']', '<', '>'}->{$open_bracket} || die() |
|
3941
|
85 |
0 |
{'(', ')', '{', '}', '[', ']', '<', '>'}->{$open_bracket} || die() |
|
4327
|
2080 |
0 |
{'(', ')', '{', '}', '[', ']', '<', '>'}->{$open_bracket} || die() |
|
4464
|
9 |
0 |
{'\\c@', "\000", '\\cA', "\cA", '\\cB', "\cB", '\\cC', "\cC", '\\cD', "\cD", '\\cE', "\cE", '\\cF', "\cF", '\\cG', "\a", '\\cH', "\cH", '\\cI', "\t", '\\cJ', "\n", '\\cK', "\cK", '\\cL', "\f", '\\cM', "\r", '\\cN', "\cN", '\\cO', "\cO", '\\cP', "\cP", '\\cQ', "\cQ", '\\cR', "\cR", '\\cS', "\cS", '\\cT', "\cT", '\\cU', "\cU", '\\cV', "\cV", '\\cW', "\cW", '\\cX', "\cX", '\\cY', "\cY", '\\cZ', "\cZ", '\\c[', "\e", '\\c\\', "\034", '\\c]', "\035", '\\c^', "\036", '\\c_', "\037", '\\c?', "\177"}->{$1} || die() |
|
5659
|
564 |
0 |
{'(', ')', '{', '}', '[', ']', '<', '>'}->{$open_bracket} || die() |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
101
|
2 |
1 |
45 |
$arg eq "*mb" or $arg eq "%mb" |
|
163
|
3 |
15 |
111 |
$want_runtime || $ENV{'PERL_MB_OCTET'} |
|
306
|
1 |
0 |
1 |
not -e $script_oo or mtime($script_oo) <= mtime($script) |
|
|
1 |
0 |
1 |
not -e $script_oo or mtime($script_oo) <= mtime($script) or mtime($script_oo) <= mtime(__FILE__) |
|
464
|
5 |
0 |
0 |
not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) |
|
|
5 |
0 |
0 |
not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__) |
|
759
|
0 |
0 |
5 |
$file =~ s[::][/]g or not $file =~ m([\./\\]) |
|
772
|
4 |
0 |
0 |
not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) |
|
|
4 |
0 |
0 |
not -e $prefix_file_oo or mtime($prefix_file_oo) <= mtime($prefix_file) or mtime($prefix_file_oo) <= mtime(__FILE__) |
|
869
|
8 |
19 |
0 |
$position ||= CORE::length($str) - 1 |
|
1070
|
1 |
1 |
125 |
$_[1] < -1 * scalar(@x) or 1 * scalar(@x) < $_[1] |
|
1562
|
12 |
180 |
0 |
{'A', 'Aa', 'a', 'Aa', 'B', 'Bb', 'b', 'Bb', 'C', 'Cc', 'c', 'Cc', 'D', 'Dd', 'd', 'Dd', 'E', 'Ee', 'e', 'Ee', 'F', 'Ff', 'f', 'Ff', 'G', 'Gg', 'g', 'Gg', 'H', 'Hh', 'h', 'Hh', 'I', 'Ii', 'i', 'Ii', 'J', 'Jj', 'j', 'Jj', 'K', 'Kk', 'k', 'Kk', 'L', 'Ll', 'l', 'Ll', 'M', 'Mm', 'm', 'Mm', 'N', 'Nn', 'n', 'Nn', 'O', 'Oo', 'o', 'Oo', 'P', 'Pp', 'p', 'Pp', 'Q', 'Qq', 'q', 'Qq', 'R', 'Rr', 'r', 'Rr', 'S', 'Ss', 's', 'Ss', 'T', 'Tt', 't', 'Tt', 'U', 'Uu', 'u', 'Uu', 'V', 'Vv', 'v', 'Vv', 'W', 'Ww', 'w', 'Ww', 'X', 'Xx', 'x', 'Xx', 'Y', 'Yy', 'y', 'Yy', 'Z', 'Zz', 'z', 'Zz'}->{$element} || $element |
|
1596
|
76 |
376 |
0 |
{'A', '[Aa]', 'a', '[Aa]', 'B', '[Bb]', 'b', '[Bb]', 'C', '[Cc]', 'c', '[Cc]', 'D', '[Dd]', 'd', '[Dd]', 'E', '[Ee]', 'e', '[Ee]', 'F', '[Ff]', 'f', '[Ff]', 'G', '[Gg]', 'g', '[Gg]', 'H', '[Hh]', 'h', '[Hh]', 'I', '[Ii]', 'i', '[Ii]', 'J', '[Jj]', 'j', '[Jj]', 'K', '[Kk]', 'k', '[Kk]', 'L', '[Ll]', 'l', '[Ll]', 'M', '[Mm]', 'm', '[Mm]', 'N', '[Nn]', 'n', '[Nn]', 'O', '[Oo]', 'o', '[Oo]', 'P', '[Pp]', 'p', '[Pp]', 'Q', '[Qq]', 'q', '[Qq]', 'R', '[Rr]', 'r', '[Rr]', 'S', '[Ss]', 's', '[Ss]', 'T', '[Tt]', 't', '[Tt]', 'U', '[Uu]', 'u', '[Uu]', 'V', '[Vv]', 'v', '[Vv]', 'W', '[Ww]', 'w', '[Ww]', 'X', '[Xx]', 'x', '[Xx]', 'Y', '[Yy]', 'y', '[Yy]', 'Z', '[Zz]', 'z', '[Zz]'}->{$element} || $element |
|
1673
|
12 |
26 |
18 |
$_[0] eq '' || $_[0] =~ /\A \( \? \^? [-a-z]* : \) \z/x |
|
1797
|
303 |
6 |
27 |
not defined $_[2] or $_[2] == 0 |
|
4478
|
10 |
6 |
0 |
{'\\\\', '\\\\', '\\a', "\a", '\\b', "\cH", '\\e', "\e", '\\f', "\f", '\\n', "\n", '\\r', "\r", '\\t', "\t"}->{$1} || $2 |