| line |
!l |
l&&!r |
l&&r |
condition |
|
380
|
31 |
0 |
0 |
$boolean and /^(?:true|false)$/iu |
|
|
31 |
0 |
0 |
$null and /^null$/iu |
|
|
31 |
0 |
0 |
$var and /^\@\w+$/u |
|
|
15 |
12 |
4 |
$number and /^[-+]?(?:0b[01]+|0x[\da-f]+|(?=\.?\d)\d*\.?\d*(?:e[-+]?\d+)?)$/iu |
|
411
|
4 |
10 |
2 |
$3 and $3 > @arg |
|
734
|
5 |
0 |
0 |
--$i <= 0 and $cnt < $total |
|
819
|
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 |
|
842
|
396 |
51 |
62 |
defined $comp[$i] and $comp[$i] ne $res1[$i] |
|
941
|
12 |
0 |
0 |
$DBI::err || $t0->[0] - $lasttime > 3600 and not $dbh->ping |
|
1236
|
0 |
2 |
0 |
$1 and $1 eq '?' |
|
1270
|
2 |
0 |
7 |
$_ and &convert |
|
1371
|
0 |
0 |
0 |
$_[1] and $_ = &find($_[1], '.', '', \%Columns) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
354
|
1 |
0 |
0 |
ord $prefix == 46 or ord $suffix == 40 |
|
371
|
6 |
9 |
0 |
$rq{$lq} || $lq |
|
380
|
3 |
0 |
31 |
$noquote or $boolean and /^(?:true|false)$/iu |
|
|
0 |
0 |
31 |
$noquote or $boolean and /^(?:true|false)$/iu or $null and /^null$/iu |
|
|
0 |
0 |
31 |
$noquote or $boolean and /^(?:true|false)$/iu or $null and /^null$/iu or $var and /^\@\w+$/u |
|
671
|
20 |
0 |
24 |
$rq{$1} || $1 |
|
686
|
0 |
8 |
16 |
s[:$perl_re][my $ret = eval $1;
warn $@ if $@;
$ret // ' NULL ';]egou or s/:(${timespec_re}[+-]\d*$timespec_re(?(?<=\w)\b)|l?j\w+(?:#(\w*))|\w+)/&find($1, ':', '', \%Macros);/egou |
|
696
|
13 |
0 |
0 |
$fn || $1 |
|
706
|
0 |
0 |
16 |
s/^ins(?:e(?:r(?:t)?)?)?\b/insert/iu or s/^del(?:e(?:t(?:e)?)?)?\b/delete/iu |
|
764
|
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 |
|
796
|
3 |
13 |
0 |
$null ||= $NULL |
|
898
|
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// |
|
941
|
0 |
0 |
12 |
$DBI::err || $t0->[0] - $lasttime > 3600 |
|
1215
|
3 |
11 |
16 |
s/^&(\.?\w+|-)(\(((?:(?>[^()]+)|(?2))*)\))/&convert_Query($1, $3);/eu or s/^&(\.?\w+|-) *(.*)/&convert_Query($1, $2);/eu |
|
1221
|
6 |
3 |
16 |
s/^\s*$perl_re//u or s[^\s*(!?)(/.+?/(?:i\b)?)\s*][]u |
|
1301
|
0 |
0 |
0 |
$_ eq '' or printf "%-5s %s\n", $_, $hash->{$_} |
|
1307
|
0 |
2 |
0 |
$error or printf "%-7s %s\n", "$_[1]$_[0]$_[2]", $_ |
|
1371
|
0 |
0 |
0 |
$error or print "$_\n" |