| line |
!l |
l&&!r |
l&&r |
condition |
|
391
|
0 |
5 |
0 |
defined $quotes and "\\$quotes" =~ /^$quote_re$/ou |
|
414
|
10 |
0 |
20 |
$split &&= $space ? qr/[$split]/u : qr/\s*[$split]\s*/u |
|
416
|
68 |
0 |
0 |
$boolean and /^(?:true|false)$/iu |
|
|
64 |
3 |
1 |
$null and /^null$/iu |
|
|
67 |
0 |
0 |
$var and /^\@\w+$/u |
|
|
41 |
17 |
9 |
$number and /^[-+]?(?:0b[01]+|0x[\da-f]+|(?=\.?\d)\d*\.?\d*(?:e[-+]?\d+)?)$/iu |
|
447
|
12 |
13 |
2 |
$4 and $4 > @arg |
|
795
|
5 |
0 |
0 |
--$i <= 0 and $cnt < $total |
|
880
|
121 |
0 |
49 |
$2 == 23 and $3 == 59 |
|
|
121 |
0 |
49 |
$2 == 23 and $3 == 59 and ($4 // 59) == 59 |
|
|
0 |
0 |
49 |
$2 == 23 and $3 == 59 and ($4 // 59) == 59 and ($6 // 999) == 999 |
|
903
|
396 |
51 |
62 |
defined $comp[$i] and $comp[$i] ne $res1[$i] |
|
1013
|
13 |
0 |
0 |
$DBI::err || $t0->[0] - $lasttime > 3600 and not $dbh->ping |
|
1309
|
0 |
3 |
0 |
$1 and $1 eq '?' |
|
1343
|
2 |
0 |
8 |
$_ and &convert |
|
1445
|
0 |
0 |
0 |
$_[1] and $_ = &find($_[1], '.', '', \%Columns) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
377
|
1 |
0 |
0 |
ord $prefix == 46 or ord $suffix == 40 |
|
398
|
1 |
3 |
1 |
$join //= $3 |
|
407
|
6 |
24 |
0 |
$rq{$lq} || $lq |
|
416
|
12 |
0 |
68 |
$noquote or $boolean and /^(?:true|false)$/iu |
|
|
0 |
0 |
68 |
$noquote or $boolean and /^(?:true|false)$/iu or $null and /^null$/iu |
|
|
1 |
0 |
67 |
$noquote or $boolean and /^(?:true|false)$/iu or $null and /^null$/iu or $var and /^\@\w+$/u |
|
716
|
1 |
1 |
26 |
s[:$quote_re?$perl_re][my(@ret) = map(($_ // 'NULL'), eval substr($4, 1, -1));
$error = 1, warn($@) if $@;
"e($1, $2, $3, \@ret);]egou or s/(?:\b(\w+)|:)$quote_re\((.+?)\)/($1 ? "$1(" : '') . "e($2, $3, $4, $5) . ($1 ? ')' : '');/egu |
|
732
|
20 |
0 |
56 |
$rq{$1} || $1 |
|
757
|
13 |
0 |
0 |
$fn || $1 |
|
767
|
0 |
0 |
18 |
s/^ins(?:e(?:r(?:t)?)?)?\b/insert/iu or s/^del(?:e(?:t(?:e)?)?)?\b/delete/iu |
|
825
|
3 |
6 |
147 |
/\A\Z/u or s/"/""/gu |
|
|
9 |
0 |
147 |
/\A\Z/u or s/"/""/gu or $semi ? tr/\n;// : ($tab ? tr/\t\n// : tr/\n,//) |
|
|
15 |
0 |
132 |
/\A\Z/u or s/"/""/gu or $semi ? tr/\n;// : ($tab ? tr/\t\n// : tr/\n,//) or /\A=/u |
|
857
|
3 |
14 |
0 |
$null ||= $NULL |
|
959
|
14 |
0 |
38 |
Deparse error: Can't locate object method "unctrl" via package " " (perhaps you forgot to load " "?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058.
or @label ? 0 : tr/\n// |
|
1013
|
0 |
0 |
13 |
$DBI::err || $t0->[0] - $lasttime > 3600 |
|
1288
|
3 |
12 |
18 |
s/^&(\.?\w+|-)(\(((?:(?>[^()]+)|(?2))*)\))/&convert_Query($1, $3);/eu or s/^&(\.?\w+|-) *(.*)/&convert_Query($1, $2);/eu |
|
1294
|
6 |
3 |
18 |
s/^\s*$perl_re//u or s[^\s*(!?)(/.+?/(?:i\b)?)\s*][]u |
|
1374
|
0 |
0 |
0 |
$_ eq '' or printf "%-5s %s\n", $_, $hash->{$_} |
|
1380
|
0 |
3 |
0 |
$error or printf "%-7s %s\n", "$_[1]$_[0]$_[2]", $_ |
|
1445
|
0 |
0 |
0 |
$error or print "$_\n" |