line |
true |
false |
branch |
28
|
0 |
177 |
if ($^X =~ / jperl /imosx) |
63
|
177 |
0 |
if (eval {
do {
local $@;
CORE::require strict
}
}) |
259
|
177 |
0 |
if (-e "$filename.e") |
260
|
0 |
177 |
if (exists $ENV{'SJIS_DEBUG'}) { } |
|
0 |
177 |
elsif (-z "$filename.e") { } |
300
|
0 |
177 |
if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter) |
306
|
0 |
177 |
unless (-e "$filename.e") |
309
|
0 |
0 |
if (eval ' use Fcntl qw(O_WRONLY O_APPEND O_CREAT); 1 ' and sysopen $fh, "$filename.e", &O_WRONLY | &O_APPEND | &O_CREAT) { } |
312
|
0 |
0 |
unless Char::Elatin8::_open_a($fh, "$filename.e") |
315
|
0 |
0 |
if (do {
exists $ENV{'SJIS_NONBLOCK'}
}) { } |
349
|
0 |
0 |
unless seek $fh, 0, 0 |
357
|
0 |
0 |
unless close $fh |
361
|
0 |
177 |
unless Char::Elatin8::_open_r($fh, "$filename.e") |
363
|
0 |
177 |
if (do {
exists $ENV{'SJIS_NONBLOCK'}
}) { } |
378
|
0 |
177 |
if ($^W) |
415
|
0 |
177 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { } |
444
|
0 |
0 |
if ($word =~ / [ ] /mosx) { } |
475
|
0 |
0 |
unless Char::Elatin8::_open_r($fh, $script) |
478
|
0 |
0 |
unless close $fh |
480
|
0 |
0 |
if (/^ use Char::Elatin8(?:\s+[0-9\.]*)?\s*; $/mosx) { } |
486
|
0 |
0 |
if (s/\A(#!.+?\n)//mos) |
493
|
0 |
0 |
if (s/\A(\@rem\s*=\s*'.*?'\s*;\s*\n)//mos) |
507
|
0 |
0 |
if (s/(.*^#\s*line\s+\d+(?:\s+"(?:$q_char)+?")?\s*\n)//mos) |
528
|
0 |
0 |
if (s/^ \s* use \s+ Char::Latin8 \s* ([^;]*) ; \s* \n? $//mosx) |
532
|
0 |
0 |
if ($list =~ s/\A ([0-9]+\.[0-9]+) \.0 \s* //mosx) { } |
|
0 |
0 |
elsif ($list =~ s/\A ([0-9]+(?:\.[0-9]*)) \s* //mosx) { } |
534
|
0 |
0 |
if ($version ne $Char::Latin8::VERSION) |
537
|
0 |
0 |
if (scalar keys %file >= 2) |
556
|
0 |
0 |
if ($version > $Char::Latin8::VERSION) |
562
|
0 |
0 |
unless ($list =~ /\A \s* \z/mosx) |
566
|
0 |
0 |
if /\A ord \z/mosx |
567
|
0 |
0 |
if /\A ord \z/mosx |
568
|
0 |
0 |
if /\A reverse \z/mosx |
569
|
0 |
0 |
if /\A getc \z/mosx |
620
|
0 |
0 |
if (/\G ( \n ) /cgox) { } |
|
0 |
0 |
elsif (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G ( (?: if | elsif | unless | while | until | given | when ) \s* \( ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( \( \s* (?: local \b | my \b | our \b | state \b )? \s* \$ $qq_scalar ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( \$` | \$\{`\} | \$ \s* PREMATCH \b | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$& | \$\{&\} | \$ \s* MATCH \b | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$' | \$\{'\} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$ \s* POSTMATCH \b | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$ $qq_scalar | $qq_substr ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( [,;] ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( \{ \s* (?: tr | index | rindex | reverse ) \s* \} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$ 0 ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$ \{ \s* 0 \s* \} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \$ \$ ) (?![\w\{]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ ([1-9][0-9]*) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ \{ \s* ([1-9][0-9]*) \s* \} /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ .+? \] ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ .+? \} ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ \s* \{ ( \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} /cgmosx) { } |
|
0 |
0 |
elsif (/\G \$ \s* \{ \s* ( $qq_brace ) \s* \} /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) \s* (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /cgmosx) { } |
|
0 |
0 |
elsif (m{\G ( \$[\$\@\#\\\'\"/\?\(\)\[\]\<\>] ) }cgmosx) { } |
|
0 |
0 |
elsif (/\G \b (while \s* \( \s* <[\$]?[A-Za-z_][A-Za-z_0-9]*> \s* \)) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b while \s* \( \s* < ((?:[^>\0\a\e\f\n\r\t])+?) > \s* \) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b while \s* \( \s* glob \s* \) /cgox) { } |
|
0 |
0 |
elsif (/\G \b while \s* \( \s* glob \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b ( if | unless | while | until | for | when ) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (CORE:: | ->[ ]* (?: atan2 | [a-z]{2,})) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::substr \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b chop \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::index \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b Char::Latin8::index \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b index \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::rindex \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b Char::Latin8::rindex \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b rindex \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b lc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b lcfirst (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b uc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b ucfirst (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b fc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ \s* (\") ((?:$qq_char)+?) (\") /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\#) ((?:$qq_char)+?) (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\() ((?:$qq_paren)+?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\{) ((?:$qq_brace)+?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\[) ((?:$qq_bracket)+?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\<) ((?:$qq_angle)+?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ qq \s* (\S) ((?:$qq_char)+?) (\1) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ \s* (\') ((?:\\\'|\\\\|$q_char)+?) (\') /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\#) ((?:\\\#|\\\\|$q_char)+?) (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ q \s* (\S) ((?:\\\1|\\\\|$q_char)+?) (\1) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s* (\$ \w+(?: ::\w+)* (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s* \( ((?:$qq_paren)*?) \) /cgox) { } |
|
0 |
0 |
elsif (/\G -s (?= \s+ [a-z]+) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \s+ (\w+) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::length (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::chr (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b chr (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::ord (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b ord (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b glob (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b lc \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b lcfirst \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b uc \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b ucfirst \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b fc \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G -s \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::length \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::chr \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b chr \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b bytes::ord \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b ord \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b glob \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b reverse \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b getc \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b (split) \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b ( tr | y ) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qq) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qr) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qw) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qx) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (q) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (m) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (s) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b require (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b require (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [^#]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b require (\s+ (?:$ignore_modules)) \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ strict .*? ;) ([ \t]* [#\n]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ strict .*? ;) ([ \t]* [^#]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ strict) \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use \s+ (([1-9][0-9_]*)(?:\.([0-9_]+))*) \s* ; /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use \s+ (v([0-9][0-9_]*)(?:\.([0-9_]+))*) \s* ; /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [^#]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use (\s+ (?:$ignore_modules)) \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b no (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [#\n]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b no (\s+ (?:$ignore_modules) .*? ;) ([ \t]* [^#]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b no (\s+ (?:$ignore_modules)) \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b use \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G \b no \b /cgmosx) { } |
|
0 |
0 |
elsif (/\G (?
|
|
0 |
0 |
elsif (/\G (\") /cgox) { } |
|
0 |
0 |
elsif (/\G (\`) /cgox) { } |
|
0 |
0 |
elsif ($Char::Latin8::slash eq 'm//' and m[\G (/) ]cgox) { } |
|
0 |
0 |
elsif ($Char::Latin8::slash eq 'm//' and /\G (\?) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << \s* ) (?= [0-9\$\@\&] ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << '([a-zA-Z_0-9]*)' ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << \\([a-zA-Z_0-9]+) ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << "([a-zA-Z_0-9]*)" ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << ([a-zA-Z_0-9]+) ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( << `([a-zA-Z_0-9]*)` ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( <<= | <=> | <= | < ) (?= \s* [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/cgox) { } |
|
0 |
0 |
elsif (/\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /cgox) { } |
|
0 |
0 |
elsif (/\G < ((?:[^>\0\a\e\f\n\r\t])+?) > /cgox) { } |
|
0 |
0 |
elsif (/\G ^ ( __DATA__ \n .*) \z /cgmosx) { } |
|
0 |
0 |
elsif (/\G ^ ( __END__ \n .*) \z /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \cD .*) \z /cgmosx) { } |
|
0 |
0 |
elsif (/\G ( \cZ .*) \z /cgmosx) { } |
|
0 |
0 |
elsif (/\G (
-- | \+\+ |
[\)\}\]]
) /cgox) { } |
|
0 |
0 |
elsif (/\G (
\.\.\.
) /cgox) { } |
|
0 |
0 |
elsif (m"\G (
!~~ | !~ | != | ! |
%= | % |
&&= | && | &= | & |
-= | -> | - |
:\s*= |
: |
<<= | <=> | <= | < |
== | => | =~ | = |
>>= | >> | >= | > |
\*\*= | \*\* | \*= | \* |
\+= | \+ |
\.\. | \.= | \. |
//= | // |
/= | / |
\? |
\\ |
\^= | \^ |
\b x= |
\|\|= | \|\| | \|= | \| |
~~ | ~ |
\b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b |
\b(?: print )\b |
[,;\(\{\[]
) "cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
622
|
0 |
0 |
if (scalar @heredoc_delimiter >= 1) |
677
|
0 |
0 |
if (/\G ( \s* = $qq_paren \) ) ( \s* (?: =~ | !~ ) \s* ) (?= (?: tr | y ) \b ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( \s* = $qq_paren \) ) ( \s* (?: =~ | !~ ) \s* ) (?= s \b ) /cgox) { } |
726
|
0 |
0 |
if (/\G ( \s* (?: =~ | !~ ) \s* ) (?= (?: tr | y ) \b ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( \s* (?: =~ | !~ ) \s* ) (?= s \b ) /cgox) { } |
931
|
0 |
0 |
if (/\G (?= [,;\)\}\]] ) /cgox) { } |
|
0 |
0 |
elsif (/\G ( [\$\@\&\*] $qq_scalar ) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\#) [ ] (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\s*) (\() [ ] (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\s*) (\{) [ ] (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\s*) (\[) [ ] (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\s*) (\<) [ ] (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G \b qq (\s*) (\S) [ ] (\2) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\#) [ ] (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\s*) (\() [ ] (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\s*) (\{) [ ] (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\s*) (\[) [ ] (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\s*) (\<) [ ] (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G \b q (\s*) (\S) [ ] (\2) /cgox) { } |
|
0 |
0 |
elsif (/\G ' [ ] ' /cgox) { } |
|
0 |
0 |
elsif (/\G " [ ] " /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qq) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (qr) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (q) \b /cgox) { } |
|
0 |
0 |
elsif (/\G \b (m) \b /cgox) { } |
|
0 |
0 |
elsif (/\G (\') /cgox) { } |
|
0 |
0 |
elsif (/\G (\") /cgox) { } |
|
0 |
0 |
elsif (m[\G (/) ]cgox) { } |
954
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) /cgox) { } |
957
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) /cgox) { } |
971
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlubB]*) /cgox) { } |
974
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
989
|
0 |
0 |
if (/\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /cgox) { } |
992
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$q_char)*?) (\1) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /cgox) { } |
1006
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlubB]*) /cgox) { } |
1009
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
1026
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\') /cgox) { } |
|
0 |
0 |
elsif (/\G \' /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1038
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\") /cgox) { } |
|
0 |
0 |
elsif (/\G \" /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1050
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (m[\G (\\/) ]cgox) { } |
|
0 |
0 |
elsif (m[\G / ([cgimosxpadlubB]*) ]cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1071
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ((?:$qq_char)*?) (\#) ([cdsrbB]*) /cgox) { } |
1078
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /cgox) { } |
1082
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /cgox) { } |
1094
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /cgox) { } |
1106
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /cgox) { } |
1118
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cdsrbB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cdsrbB]*) /cgox) { } |
1142
|
0 |
0 |
if (/\G (\#) /cgox) { } |
1145
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\#) /cgox) { } |
|
0 |
0 |
elsif (/\G (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1156
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) /cgox) { } |
1163
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() /cgox) { } |
|
0 |
0 |
elsif (/\G (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1167
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1180
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) /cgox) { } |
|
0 |
0 |
elsif (/\G (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1184
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1197
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) /cgox) { } |
|
0 |
0 |
elsif (/\G (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1201
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1214
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\>) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) /cgox) { } |
|
0 |
0 |
elsif (/\G (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1218
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1231
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\Q$delimiter\E) /cgox) { } |
|
0 |
0 |
elsif (/\G (\Q$delimiter\E) /cgox) { } |
|
0 |
0 |
elsif (/\G ($qq_char) /cgox) { } |
1246
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlubB]*) /cgox) { } |
1252
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
1268
|
0 |
0 |
if (/\G (\#) (.*?) (\#) /cgmosx) { } |
1274
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ([^(]*?) (\)) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$q_paren)*?) (\)) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\{) ([^{]*?) (\}) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$q_brace)*?) (\}) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\[) ([^[]*?) (\]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$q_bracket)*?) (\]) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\<) ([^<]*?) (\>) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$q_angle)*?) (\>) /cgmosx) { } |
|
0 |
0 |
elsif (/\G ([\x21-\x3F]) (.*?) (\1) /cgmosx) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$q_char)*?) (\1) /cgmosx) { } |
1298
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) /cgox) { } |
1304
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) /cgox) { } |
1325
|
0 |
0 |
if (/\G (\#) /cgox) { } |
1328
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\#) /cgox) { } |
|
0 |
0 |
elsif (/\G (\#) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1339
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) /cgox) { } |
1346
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\() /cgox) { } |
|
0 |
0 |
elsif (/\G (\() /cgox) { } |
|
0 |
0 |
elsif (/\G (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1351
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1364
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\{) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) /cgox) { } |
|
0 |
0 |
elsif (/\G (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1369
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1382
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\[) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) /cgox) { } |
|
0 |
0 |
elsif (/\G (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1387
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1400
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\>) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\<) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) /cgox) { } |
|
0 |
0 |
elsif (/\G (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1405
|
0 |
0 |
if (--$Char::Latin8::nest == 0) { } |
1418
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\Q$delimiter\E) /cgox) { } |
|
0 |
0 |
elsif (/\G (\Q$delimiter\E) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1433
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlubB]*) /cgox) { } |
1439
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\?) ((?:$qq_char)*?) (\?) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
1464
|
0 |
0 |
if (/\G (\#) ((?:$qq_char)*?) (\#) ((?:$qq_char)*?) (\#) ([cegimosxpradlubB]*) /cgox) { } |
1470
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ((?:$qq_char)*?) (\') ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\$) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
1474
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
1491
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
1508
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
1523
|
0 |
0 |
if (/\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\() ((?:$qq_paren)*?) (\)) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\{) ((?:$qq_brace)*?) (\}) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\[) ((?:$qq_bracket)*?) (\]) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\<) ((?:$qq_angle)*?) (\>) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\') ((?:$qq_char)*?) (\') ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\$) ((?:$qq_char)*?) (\$) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\:) ((?:$qq_char)*?) (\:) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\@) ((?:$qq_char)*?) (\@) ([cegimosxpradlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G (\S) ((?:$qq_char)*?) (\1) ([cegimosxpradlubB]*) /cgox) { } |
1570
|
0 |
0 |
if ($2 >= 6 or $2 == 5 and $3 ge '012') { } |
1578
|
0 |
0 |
if ($2 >= 6 or $2 == 5 and $3 >= 12) { } |
1606
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\') /cgox) { } |
|
0 |
0 |
elsif (/\G \' /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1618
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\") /cgox) { } |
|
0 |
0 |
elsif (/\G \" /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1630
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\`) /cgox) { } |
|
0 |
0 |
elsif (/\G \` /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1642
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (m[\G (\\/) ]cgox) { } |
|
0 |
0 |
elsif (m[\G / ([cgimosxpadlubB]*) ]cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1654
|
0 |
0 |
if (/\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif (/\G (\\\?) /cgox) { } |
|
0 |
0 |
elsif (/\G \? ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif (/\G ($q_char) /cgox) { } |
1672
|
0 |
0 |
if ($here_script eq '') |
1676
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
1702
|
0 |
0 |
if ($here_script eq '') |
1706
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
1723
|
0 |
0 |
if ($here_script eq '') |
1727
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
1744
|
0 |
0 |
if ($here_script eq '') |
1748
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
1765
|
0 |
0 |
if ($here_script eq '') |
1769
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
1909
|
0 |
0 |
unless (grep /\A \{ \z/msx, @char and grep /\A \} \z/msx, @char) |
1910
|
0 |
0 |
unless ($string =~ /<
|
1917
|
0 |
0 |
if (do {
$string =~ /\G ( \$` | \$\{`\} | \$ \s* PREMATCH \b | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) /cgmosx
}) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$& | \$\{&\} | \$ \s* MATCH \b | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$' | \$\{'\} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$ \s* POSTMATCH \b | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \{ \s* (?: tr | index | rindex | reverse ) \s* \} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$ 0 ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$ \{ \s* 0 \s* \} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( \$ \$ ) (?![\w\{]) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ ([1-9][0-9]*) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ \{ \s* ([1-9][0-9]*) \s* \} /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ .+? \] ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ .+? \} ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ \s* \{ ( \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \$ \s* \{ \s* ( $qq_brace ) \s* \} /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G ( (?: [\$\@\%\&\*] | \$\# | -> | \b sub \b) \s* (?: split | chop | index | rindex | lc | uc | fc | chr | ord | reverse | getc | tr | y | q | qq | qx | qw | m | s | qr | glob | lstat | opendir | stat | unlink | chdir ) ) \b /cgmosx) { } |
|
0 |
0 |
elsif ($string =~ m{\G ( \$[\$\@\#\\\'\"/\?\(\)\[\]\<\>] ) }cgmosx) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (CORE:: | ->[ ]* (?: atan2 | [a-z]{2,})) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::substr \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b chop \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::index \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b Char::Latin8::index \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b index \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::rindex \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b Char::Latin8::rindex \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b rindex \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b lc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b lcfirst (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b uc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b ucfirst (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b fc (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ \s* (\") ((?:$qq_char)+?) (\") /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\#) ((?:$qq_char)+?) (\#) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\() ((?:$qq_paren)+?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\{) ((?:$qq_brace)+?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\[) ((?:$qq_bracket)+?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\<) ((?:$qq_angle)+?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ qq \s* (\S) ((?:$qq_char)+?) (\1) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ \s* (\') ((?:\\\'|\\\\|$q_char)+?) (\') /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\#) ((?:\\\#|\\\\|$q_char)+?) (\#) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\() ((?:\\\)|\\\\|$q_paren)+?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\{) ((?:\\\}|\\\\|$q_brace)+?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\[) ((?:\\\]|\\\\|$q_bracket)+?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\<) ((?:\\\>|\\\\|$q_angle)+?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ q \s* (\S) ((?:\\\1|\\\\|$q_char)+?) (\1) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s* (\$ \w+(?: ::\w+)* (?: (?: ->)? (?: [\$\@\%\&\*]\* | \$\#\* | \( (?:$qq_paren)*? \) | [\@\%\*]? \{ (?:$qq_brace)+? \} | [\@\%]? \[ (?:$qq_bracket)+? \] ) )*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s* \( ((?:$qq_paren)*?) \) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s (?= \s+ [a-z]+) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \s+ (\w+) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::length (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::chr (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b chr (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::ord (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b ord (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b glob (?= \s+[A-Za-z_]|\s*['"`\$\@\&\*\(]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b lc \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b lcfirst \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b uc \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b ucfirst \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b fc \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G -s \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::length \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::chr \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b chr \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b bytes::ord \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b ord \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b glob \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b reverse \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b getc \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (split) \b (?! \s* => ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (qq) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (qx) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (q) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (?
|
|
0 |
0 |
elsif ($string =~ /\G (\") ((?:$qq_char)*?) (\") /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\`) ((?:$qq_char)*?) (\`) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( <<= | <=> | <= | < ) (?= \s* [A-Za-z_0-9'"`\$\@\&\*\(\+\-] )/cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (<[\$]?[A-Za-z_][A-Za-z_0-9]*>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G < ((?:$q_char)+?) > /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << \s* ) (?= [0-9\$\@\&] ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << '([a-zA-Z_0-9]*)' ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << \\([a-zA-Z_0-9]+) ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << "([a-zA-Z_0-9]*)" ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << ([a-zA-Z_0-9]+) ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( << `([a-zA-Z_0-9]*)` ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (
-- | \+\+ |
[\)\}\]]
) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (
\.\.\.
) /cgox) { } |
|
0 |
0 |
elsif ($string =~ m"\G (
!~~ | !~ | != | ! |
%= | % |
&&= | && | &= | & |
-= | -> | - |
:\s*= |
: |
<<= | <=> | <= | < |
== | => | =~ | = |
>>= | >> | >= | > |
\*\*= | \*\* | \*= | \* |
\+= | \+ |
\.\. | \.= | \. |
//= | // |
/= | / |
\? |
\\ |
\^= | \^ |
\b x= |
\|\|= | \|\| | \|= | \| |
~~ | ~ |
\b(?: and | cmp | eq | ge | gt | le | lt | ne | not | or | xor | x )\b |
\b(?: print )\b |
[,;\(\{\[]
) "cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ($q_char) /cgox) { } |
2091
|
0 |
0 |
if ($string =~ /\G (?= [,;\)\}\]] ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ( [\$\@\&\*] $qq_scalar ) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\#) [ ] (\#) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\s*) (\() [ ] (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\s*) (\{) [ ] (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\s*) (\[) [ ] (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\s*) (\<) [ ] (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b qq (\s*) (\S) [ ] (\2) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\#) [ ] (\#) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\s*) (\() [ ] (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\s*) (\{) [ ] (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\s*) (\[) [ ] (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\s*) (\<) [ ] (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b q (\s*) (\S) [ ] (\2) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ' [ ] ' /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G " [ ] " /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (qq) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (qr) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (q) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \b (m) \b /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\') /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\") /cgox) { } |
|
0 |
0 |
elsif ($string =~ m[\G (/) ]cgox) { } |
2114
|
0 |
0 |
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /cgox) { } |
2117
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /cgox) { } |
2131
|
0 |
0 |
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([imosxpadlubB]*) /cgox) { } |
2134
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) ([imosxpadlubB]*) /cgox) { } |
2149
|
0 |
0 |
if ($string =~ /\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /cgox) { } |
2152
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$q_char)*?) (\1) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /cgox) { } |
2166
|
0 |
0 |
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlubB]*) /cgox) { } |
2169
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ([*\-:?\\^|]) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) ([cgimosxpadlubB]*) /cgox) { } |
2186
|
0 |
0 |
if ($string =~ /\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\\\') /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \' /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ($q_char) /cgox) { } |
2198
|
0 |
0 |
if ($string =~ /\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\\\") /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G \" /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ($q_char) /cgox) { } |
2210
|
0 |
0 |
if ($string =~ /\G (\\\\) /cgox) { } |
|
0 |
0 |
elsif ($string =~ m[\G (\\/) ]cgox) { } |
|
0 |
0 |
elsif ($string =~ m[\G / ([cgimosxpadlubB]*) ]cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G ($q_char) /cgox) { } |
2222
|
0 |
0 |
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /cgox) { } |
2228
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /cgox) { } |
2242
|
0 |
0 |
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) /cgox) { } |
2248
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:$qq_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:$qq_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:$qq_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:$qq_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\') ((?:$qq_char)*?) (\') /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:$qq_char)*?) (\1) /cgox) { } |
2263
|
0 |
0 |
if ($string =~ /\G (\#) ((?:\\\#|\\\\|$q_char)*?) (\#) /cgox) { } |
2269
|
0 |
0 |
if ($string =~ /\G (\s+|\#.*) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\() ((?:\\\\|\\\)|\\\(|$q_paren)*?) (\)) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\{) ((?:\\\\|\\\}|\\\{|$q_brace)*?) (\}) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\[) ((?:\\\\|\\\]|\\\[|$q_bracket)*?) (\]) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\<) ((?:\\\\|\\\>|\\\<|$q_angle)*?) (\>) /cgox) { } |
|
0 |
0 |
elsif ($string =~ /\G (\S) ((?:\\\\|\\\1| $q_char)*?) (\1) /cgox) { } |
2311
|
0 |
0 |
if ($here_script eq '') |
2315
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
2332
|
0 |
0 |
if ($here_script eq '') |
2336
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
2353
|
0 |
0 |
if ($here_script eq '') |
2357
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
2374
|
0 |
0 |
if ($here_script eq '') |
2378
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
2395
|
0 |
0 |
if ($here_script eq '') |
2399
|
0 |
0 |
if ($here_script =~ s/\A (.*?) \n $delimiter \n //msx) { } |
2470
|
0 |
0 |
if ($char eq '.') { } |
2471
|
0 |
0 |
if ($modifier =~ /s/) { } |
2508
|
0 |
0 |
if ($modifier =~ tr/Bb//d) { } |
2509
|
0 |
0 |
if ($variable eq '') { } |
2517
|
0 |
0 |
if ($variable eq '') { } |
2539
|
0 |
0 |
if (not $charclass =~ /'/mosx) { } |
|
0 |
0 |
elsif (not $charclass =~ m[/]mosx) { } |
|
0 |
0 |
elsif (not $charclass =~ /\#/mosx) { } |
|
0 |
0 |
elsif (not $charclass =~ /[\<\>]/mosx) { } |
|
0 |
0 |
elsif (not $charclass =~ /[\(\)]/mosx) { } |
|
0 |
0 |
elsif (not $charclass =~ /[\{\}]/mosx) { } |
2559
|
0 |
0 |
unless ($charclass =~ /\Q$char\E/msx) |
2606
|
0 |
0 |
if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ ( N\{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
2630
|
0 |
0 |
if (do {
$char[$i] =~ /\A ([<>]) \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\L') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\F') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* 0 \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$\$ \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ \s* PREMATCH | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ \s* MATCH | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$ \s* POSTMATCH | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* ( .+ ) \s* \} \z/mosx) { } |
2642
|
0 |
0 |
if ($right_e < $left_e) |
2684
|
0 |
0 |
if ($right_e < $left_e) { } |
2694
|
0 |
0 |
if (++$i > $#char) |
2697
|
0 |
0 |
if ($char[$i] eq '\\E') |
2765
|
0 |
0 |
if ($left_e > $right_e) |
2781
|
0 |
0 |
if (not $octet{$end_delimiter}) { } |
|
0 |
0 |
elsif (not $octet{')'}) { } |
|
0 |
0 |
elsif (not $octet{'}'}) { } |
|
0 |
0 |
elsif (not $octet{']'}) { } |
|
0 |
0 |
elsif (not $octet{'>'}) { } |
2798
|
0 |
0 |
unless ($octet{$char}) |
2809
|
0 |
0 |
if ($octet =~ /\A (['\\]) \z/mosx) |
2847
|
0 |
0 |
if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ ( N\{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
2871
|
0 |
0 |
if (do {
$char[$i] =~ /\A ([<>]) \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\L') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\F') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* 0 \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$\$ \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ \s* PREMATCH | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ \s* MATCH | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$ \s* POSTMATCH | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* ( .+ ) \s* \} \z/mosx) { } |
2876
|
0 |
0 |
if ($right_e < $left_e) |
2905
|
0 |
0 |
if ($right_e < $left_e) { } |
2915
|
0 |
0 |
if (++$i > $#char) |
2918
|
0 |
0 |
if ($char[$i] eq '\\E') |
2986
|
0 |
0 |
if ($left_e > $right_e) |
3000
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
3003
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
3014
|
0 |
0 |
if ($string eq '') { } |
|
0 |
0 |
elsif ($modifier =~ tr/Bb//d) { } |
3024
|
0 |
0 |
if ($delimiter =~ / [\@:] /mosx) |
3027
|
0 |
0 |
if (not $octet{')'}) { } |
|
0 |
0 |
elsif (not $octet{'}'}) { } |
|
0 |
0 |
elsif (not $octet{']'}) { } |
|
0 |
0 |
elsif (not $octet{'>'}) { } |
3045
|
0 |
0 |
unless ($octet{$char}) |
3054
|
0 |
0 |
if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { } |
3062
|
0 |
0 |
$modifier =~ /i/mosx ? : |
3092
|
0 |
0 |
if ($delimiter =~ / [\@:] /mosx) |
3094
|
0 |
0 |
if (not $octet{')'}) { } |
|
0 |
0 |
elsif (not $octet{'}'}) { } |
|
0 |
0 |
elsif (not $octet{']'}) { } |
|
0 |
0 |
elsif (not $octet{'>'}) { } |
3112
|
0 |
0 |
unless ($octet{$char}) |
3126
|
0 |
0 |
if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (N) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (p) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (P) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { } |
3165
|
0 |
0 |
if (do {
$char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[') { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A [<>] \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\L') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\F') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* 0 \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$\$ \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ \s* PREMATCH | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ \s* MATCH | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$ \s* POSTMATCH | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ ( \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* ( .+ ) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
3170
|
0 |
0 |
if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx) { } |
3188
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3193
|
0 |
0 |
if (++$i > $#char) |
3196
|
0 |
0 |
if ($char[$i] eq ']') |
3200
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
3220
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3225
|
0 |
0 |
if (++$i > $#char) |
3228
|
0 |
0 |
if ($char[$i] eq ']') |
3232
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
3252
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
3262
|
0 |
0 |
if ($right_e < $left_e) |
3291
|
0 |
0 |
if ($right_e < $left_e) { } |
3301
|
0 |
0 |
if (++$i > $#char) |
3304
|
0 |
0 |
if ($char[$i] eq '\\E') |
3314
|
0 |
0 |
if ($ignorecase) |
3319
|
0 |
0 |
if ($ignorecase) |
3332
|
0 |
0 |
if ($ignorecase) |
3338
|
0 |
0 |
if ($ignorecase) |
3346
|
0 |
0 |
if ($ignorecase) |
3354
|
0 |
0 |
if ($ignorecase) |
3362
|
0 |
0 |
if ($ignorecase) |
3369
|
0 |
0 |
if ($ignorecase) { } |
3379
|
0 |
0 |
if ($ignorecase) { } |
3389
|
0 |
0 |
if ($ignorecase) { } |
3399
|
0 |
0 |
if ($ignorecase) |
3407
|
0 |
0 |
if ($ignorecase) |
3415
|
0 |
0 |
if ($ignorecase) |
3422
|
0 |
0 |
if ($char[$i - 1] =~ /\A (?:\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { } |
|
0 |
0 |
elsif ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { } |
3426
|
0 |
0 |
if ($char[$i] eq '{') { } |
3441
|
0 |
0 |
if ($left_e > $right_e) |
3442
|
0 |
0 |
if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { } |
3449
|
0 |
0 |
if ($ope =~ /\A m? \z/mosx and $delimiter eq '?') { } |
3464
|
0 |
0 |
if ($stuff =~ /\A [\$\@] /mosx) |
3471
|
0 |
0 |
if $char eq $delimiter |
3472
|
0 |
0 |
if $char eq $end_delimiter |
3473
|
0 |
0 |
unless ($octet{$char}) |
3488
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
3491
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
3502
|
0 |
0 |
if ($string eq '') { } |
|
0 |
0 |
elsif ($modifier =~ tr/Bb//d) { } |
3525
|
0 |
0 |
$modifier =~ /i/mosx ? : |
3538
|
0 |
0 |
if (do {
$char[$i] eq '['
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
3544
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3548
|
0 |
0 |
if (++$i > $#char) |
3551
|
0 |
0 |
if ($char[$i] eq ']') |
3566
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3570
|
0 |
0 |
if (++$i > $#char) |
3573
|
0 |
0 |
if ($char[$i] eq ']') |
3597
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
3607
|
0 |
0 |
if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { } |
3637
|
0 |
0 |
if (do {
$char[$i] eq '\\\\'
}) { } |
|
0 |
0 |
elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { } |
3663
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
3666
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
3677
|
0 |
0 |
if ($string eq '') { } |
|
0 |
0 |
elsif ($modifier =~ tr/Bb//d) { } |
3687
|
0 |
0 |
if ($delimiter =~ / [\@:] /mosx) |
3690
|
0 |
0 |
if (not $octet{')'}) { } |
|
0 |
0 |
elsif (not $octet{'}'}) { } |
|
0 |
0 |
elsif (not $octet{']'}) { } |
|
0 |
0 |
elsif (not $octet{'>'}) { } |
3708
|
0 |
0 |
unless ($octet{$char}) |
3721
|
0 |
0 |
$modifier =~ /i/mosx ? : |
3755
|
0 |
0 |
if ($delimiter =~ / [\@:] /mosx) |
3757
|
0 |
0 |
if (not $octet{')'}) { } |
|
0 |
0 |
elsif (not $octet{'}'}) { } |
|
0 |
0 |
elsif (not $octet{']'}) { } |
|
0 |
0 |
elsif (not $octet{'>'}) { } |
3775
|
0 |
0 |
unless ($octet{$char}) |
3792
|
0 |
0 |
if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (N) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (p) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (P) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { } |
3831
|
0 |
0 |
if (do {
$char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[') { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A [<>] \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\L') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\F') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ \s* 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\g \s* \{ \s* - \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\g \s* \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\g \s* ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ \s* ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* 0 \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$\$ \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ \s* PREMATCH | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ \s* MATCH | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$ \s* POSTMATCH | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ ( \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* ( .+ ) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
3836
|
0 |
0 |
if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx) { } |
3850
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3854
|
0 |
0 |
if (++$i > $#char) |
3857
|
0 |
0 |
if ($char[$i] eq ']') |
3861
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
3877
|
0 |
0 |
if ($char[$i + 1] eq ']') |
3881
|
0 |
0 |
if (++$i > $#char) |
3884
|
0 |
0 |
if ($char[$i] eq ']') |
3888
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
3908
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
3918
|
0 |
0 |
if ($right_e < $left_e) |
3947
|
0 |
0 |
if ($right_e < $left_e) { } |
3957
|
0 |
0 |
if (++$i > $#char) |
3960
|
0 |
0 |
if ($char[$i] eq '\\E') |
4000
|
0 |
0 |
if ($ignorecase) |
4005
|
0 |
0 |
if ($ignorecase) |
4018
|
0 |
0 |
if ($ignorecase) |
4024
|
0 |
0 |
if ($ignorecase) |
4032
|
0 |
0 |
if ($ignorecase) |
4040
|
0 |
0 |
if ($ignorecase) |
4048
|
0 |
0 |
if ($ignorecase) |
4055
|
0 |
0 |
if ($ignorecase) { } |
4065
|
0 |
0 |
if ($ignorecase) { } |
4075
|
0 |
0 |
if ($ignorecase) { } |
4085
|
0 |
0 |
if ($ignorecase) |
4093
|
0 |
0 |
if ($ignorecase) |
4101
|
0 |
0 |
if ($ignorecase) |
4108
|
0 |
0 |
if ($char[$i - 1] =~ /\A (?:\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { } |
4119
|
0 |
0 |
if ($left_e > $right_e) |
4133
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
4136
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
4147
|
0 |
0 |
if ($string eq '') { } |
|
0 |
0 |
elsif ($modifier =~ tr/Bb//d) { } |
4170
|
0 |
0 |
$modifier =~ /i/mosx ? : |
4183
|
0 |
0 |
if (do {
$char[$i] eq '['
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
4189
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4193
|
0 |
0 |
if (++$i > $#char) |
4196
|
0 |
0 |
if ($char[$i] eq ']') |
4211
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4215
|
0 |
0 |
if (++$i > $#char) |
4218
|
0 |
0 |
if ($char[$i] eq ']') |
4242
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
4252
|
0 |
0 |
if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { } |
4282
|
0 |
0 |
if (do {
$char[$i] eq '\\\\'
}) { } |
|
0 |
0 |
elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { } |
4311
|
0 |
0 |
if (do {
$char[$i] =~ /\A \\\\ \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] =~ m(\A [\$\@/\\] \z)mosx) { } |
4335
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
4338
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
4346
|
0 |
0 |
if ($variable eq '') |
4372
|
0 |
0 |
if ($variable =~ s/\A \( \s* ( (?: local \b | my \b | our \b | state \b )? .+ ) \) \z/$1/mosx) |
4383
|
0 |
0 |
if ($e_modifier >= 1) { } |
4388
|
0 |
0 |
if ($delimiter2 eq q[']) { } |
4399
|
0 |
0 |
if ($r_modifier) { } |
4400
|
0 |
0 |
if (do {
$modifier =~ /g/mosx
}) { } |
4405
|
0 |
0 |
$delimiter1 eq q['] ? : |
4424
|
0 |
0 |
$delimiter1 eq q['] ? : |
4441
|
0 |
0 |
if ($bind_operator =~ / !~ /mosx) |
4448
|
0 |
0 |
if (do {
$modifier =~ /g/mosx
}) { } |
4453
|
0 |
0 |
$delimiter1 eq q['] ? : |
|
0 |
0 |
$bind_operator =~ / !~ /mosx ? : |
4475
|
0 |
0 |
$bind_operator =~ / =~ /mosx ? : |
|
0 |
0 |
$delimiter1 eq q['] ? : |
4500
|
0 |
0 |
if ($my ne '') |
4519
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
4522
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
4533
|
0 |
0 |
if ($modifier =~ tr/Bb//d) |
4537
|
0 |
0 |
$modifier =~ /i/mosx ? : |
4571
|
0 |
0 |
if ($char[$i] eq '\\L' and $char[$i + 1] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U' and $char[$i + 1] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\o \{ ([0-7]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\x \{ ([0-9A-Fa-f]+) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (N) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (p) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ (P) ( \{ ([^0-9\}][^\}]*) \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \\ ( [pPX] ) \z/mosx) { } |
4610
|
0 |
0 |
if (do {
$char[$i] =~ /\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[') { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($char[$i] eq '^' and not $modifier =~ /m/mosx) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ([<>]) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] eq '\\u') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\l') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\U') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\L') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\F') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\Q') { } |
|
0 |
0 |
elsif ($char[$i] eq '\\E') { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ 0 \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* 0 \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$\$ \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ([1-9][0-9]*) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \{ \s* ([1-9][0-9]*) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \[ (?:$qq_bracket)*? \] ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) ( \{ (?:$qq_brace)*? \} ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ ( \$ [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* ) \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$` | \$\{`\} | \$ \s* PREMATCH | \$ \s* \{ \s* PREMATCH \s* \} | \$ \s* \{\^PREMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$& | \$\{&\} | \$ \s* MATCH | \$ \s* \{ \s* MATCH \s* \} | \$ \s* \{\^MATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A ( \$ \s* POSTMATCH | \$ \s* \{ \s* POSTMATCH \s* \} | \$ \s* \{\^POSTMATCH\} ) \z/cgmosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ ( \s* [A-Za-z_][A-Za-z0-9_]*(?: ::[A-Za-z_][A-Za-z0-9_]*)* \s* ) \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A \$ \s* \{ \s* ( .+ ) \s* \} \z/mosx) { } |
|
0 |
0 |
elsif ($char[$i] =~ /\A [\$\@].+ /mosx) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
4615
|
0 |
0 |
if ($i + 3 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 3]) == 3 and eval(sprintf '"%s%s%s%s"', @char[$i .. $i + 3]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 2 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, @char[$i + 1 .. $i + 2]) == 2 and eval(sprintf '"%s%s%s"', @char[$i .. $i + 2]) =~ /\A $q_char \z/mosx) { } |
|
0 |
0 |
elsif ($i + 1 <= $#char and grep(/\A (?: \\ [0-7]{2,3} | \\x [0-9A-Fa-f]{1,2}) \z/mosx, $char[$i + 1]) == 1 and eval(sprintf '"%s%s"', @char[$i .. $i + 1]) =~ /\A $q_char \z/mosx) { } |
4629
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4633
|
0 |
0 |
if (++$i > $#char) |
4636
|
0 |
0 |
if ($char[$i] eq ']') |
4640
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
4656
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4660
|
0 |
0 |
if (++$i > $#char) |
4663
|
0 |
0 |
if ($char[$i] eq ']') |
4667
|
0 |
0 |
if (grep(/\A [\$\@]/mosx, @char[$left + 1 .. $right - 1]) >= 1) { } |
4704
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
4714
|
0 |
0 |
if ($right_e < $left_e) |
4743
|
0 |
0 |
if ($right_e < $left_e) { } |
4753
|
0 |
0 |
if (++$i > $#char) |
4756
|
0 |
0 |
if ($char[$i] eq '\\E') |
4766
|
0 |
0 |
if ($ignorecase) |
4771
|
0 |
0 |
if ($ignorecase) |
4784
|
0 |
0 |
if ($ignorecase) |
4790
|
0 |
0 |
if ($ignorecase) |
4798
|
0 |
0 |
if ($ignorecase) |
4806
|
0 |
0 |
if ($ignorecase) |
4814
|
0 |
0 |
if ($ignorecase) |
4821
|
0 |
0 |
if ($ignorecase) { } |
4831
|
0 |
0 |
if ($ignorecase) { } |
4841
|
0 |
0 |
if ($ignorecase) { } |
4851
|
0 |
0 |
if ($ignorecase) |
4859
|
0 |
0 |
if ($ignorecase) |
4867
|
0 |
0 |
if ($ignorecase) |
4874
|
0 |
0 |
if ($char[$i - 1] =~ /\A (?:\\[0-7]{2,3}|\\x[0-9-A-Fa-f]{1,2}) \z/mosx) { } |
4884
|
0 |
0 |
if ($left_e > $right_e) |
4898
|
0 |
0 |
if ($modifier =~ /([adlu])/mosx) |
4901
|
0 |
0 |
if ($filename ne 'Char/Latin8.pm') |
4912
|
0 |
0 |
if ($modifier =~ tr/Bb//d) |
4916
|
0 |
0 |
$modifier =~ /i/mosx ? : |
4928
|
0 |
0 |
if (do {
$char[$i] eq '['
}) { } |
|
0 |
0 |
elsif ($char[$i] eq '[^') { } |
|
0 |
0 |
elsif (my $char = character_class($char[$i], $modifier)) { } |
|
0 |
0 |
elsif ($char[$i] eq '^' and not $modifier =~ /m/mosx) { } |
|
0 |
0 |
elsif ($ignorecase and $char[$i] =~ /\A [\x00-\xFF] \z/mosx and &Char::Elatin8::uc($char[$i]) ne &Char::Elatin8::fc($char[$i])) { } |
|
0 |
0 |
elsif ($i >= 1 and $char[$i] =~ /\A [\?\+\*\{] \z/mosx) { } |
4934
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4938
|
0 |
0 |
if (++$i > $#char) |
4941
|
0 |
0 |
if ($char[$i] eq ']') |
4956
|
0 |
0 |
if ($char[$i + 1] eq ']') |
4960
|
0 |
0 |
if (++$i > $#char) |
4963
|
0 |
0 |
if ($char[$i] eq ']') |
4987
|
0 |
0 |
if (CORE::length &Char::Elatin8::fc($char[$i]) == 1) { } |
4997
|
0 |
0 |
if ($char[$i - 1] =~ /\A [\x00-\xFF] \z/mosx) { } |