line |
!l |
l&&!r |
l&&r |
condition |
384
|
0 |
5 |
0 |
defined $quotes and "\\$quotes" =~ /^$quote_re$/ou |
408
|
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 |
439
|
4 |
10 |
2 |
$4 and $4 > @arg |
765
|
5 |
0 |
0 |
--$i <= 0 and $cnt < $total |
850
|
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 |
873
|
396 |
51 |
62 |
defined $comp[$i] and $comp[$i] ne $res1[$i] |
972
|
12 |
0 |
0 |
$DBI::err || $t0->[0] - $lasttime > 3600 and not $dbh->ping |
1267
|
0 |
3 |
0 |
$1 and $1 eq '?' |
1301
|
2 |
0 |
7 |
$_ and &convert |
1403
|
0 |
0 |
0 |
$_[1] and $_ = &find($_[1], '.', '', \%Columns) |
line |
l |
!l&&r |
!l&&!r |
condition |
371
|
1 |
0 |
0 |
ord $prefix == 46 or ord $suffix == 40 |
391
|
1 |
3 |
1 |
$join //= $3 |
399
|
6 |
12 |
0 |
$rq{$lq} || $lq |
408
|
12 |
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 |
702
|
20 |
0 |
24 |
$rq{$1} || $1 |
717
|
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 |
727
|
13 |
0 |
0 |
$fn || $1 |
737
|
0 |
0 |
16 |
s/^ins(?:e(?:r(?:t)?)?)?\b/insert/iu or s/^del(?:e(?:t(?:e)?)?)?\b/delete/iu |
795
|
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 |
827
|
3 |
13 |
0 |
$null ||= $NULL |
929
|
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// |
972
|
0 |
0 |
12 |
$DBI::err || $t0->[0] - $lasttime > 3600 |
1246
|
3 |
11 |
17 |
s/^&(\.?\w+|-)(\(((?:(?>[^()]+)|(?2))*)\))/&convert_Query($1, $3);/eu or s/^&(\.?\w+|-) *(.*)/&convert_Query($1, $2);/eu |
1252
|
6 |
3 |
17 |
s/^\s*$perl_re//u or s[^\s*(!?)(/.+?/(?:i\b)?)\s*][]u |
1332
|
0 |
0 |
0 |
$_ eq '' or printf "%-5s %s\n", $_, $hash->{$_} |
1338
|
0 |
3 |
0 |
$error or printf "%-7s %s\n", "$_[1]$_[0]$_[2]", $_ |
1403
|
0 |
0 |
0 |
$error or print "$_\n" |