| line |
true |
false |
branch |
|
1245
|
1 |
1 |
$_[2] ? : |
|
1257
|
1 |
1 |
if @_ == 2 |
|
1264
|
2 |
3 |
if @_ == 2 |
|
1275
|
1 |
1 |
@ms ? : |
|
1276
|
1 |
1 |
@ms ? : |
|
1277
|
1 |
1 |
wantarray ? : |
|
1279
|
3 |
1 |
$_[0] =~ s/$_[1]/$_[2]/ ? : |
|
1280
|
0 |
4 |
if (Want::want('LIST')) { } |
|
|
2 |
2 |
elsif (Want::want('BOOL')) { } |
|
|
1 |
1 |
elsif (Want::want('SCALAR')) { } |
|
1310
|
4 |
1 |
$_[0] < $_[1] ? : |
|
1311
|
1 |
4 |
wantarray ? : |
|
1314
|
1 |
1 |
wantarray ? : |
|
1318
|
1 |
1 |
wantarray ? : |
|
1345
|
2 |
0 |
if $_[0] |
|
1351
|
0 |
1 |
unless $_[0] |
|
1373
|
0 |
25 |
unless defined $size |
|
1374
|
25 |
0 |
defined $size ? : |
|
1375
|
4 |
21 |
defined $char ? : |
|
1377
|
0 |
25 |
if (CORE::length $char > 1) |
|
1385
|
5 |
20 |
if $size <= $len |
|
1400
|
6 |
3 |
unless defined $trim_charset |
|
1409
|
6 |
3 |
unless defined $trim_charset |
|
1435
|
5 |
1 |
if &Scalar::Util::looks_like_number($_[0]) |
|
1436
|
5 |
1 |
if &Scalar::Util::looks_like_number($_[0]) |
|
1437
|
6 |
0 |
if &Scalar::Util::looks_like_number($_[0]) |
|
1439
|
3 |
1 |
if &Scalar::Util::looks_like_number($_[0]) |
|
1462
|
0 |
0 |
wantarray ? : |
|
1471
|
1 |
2 |
wantarray ? : |
|
1475
|
1 |
1 |
wantarray ? : |
|
1532
|
2 |
2 |
wantarray ? : |
|
1545
|
0 |
2 |
if grep {CORE::ref $_;} CORE::values %{$_[0];} |
|
1547
|
1 |
1 |
wantarray ? : |
|
1573
|
3 |
6 |
if (CORE::ref $filter eq 'Regexp') { } |
|
|
2 |
4 |
elsif (not CORE::ref $filter) { } |
|
1581
|
2 |
7 |
wantarray ? : |
|
1589
|
1 |
2 |
wantarray ? : |
|
1594
|
3 |
1 |
wantarray ? : |
|
1600
|
2 |
4 |
wantarray ? : |
|
1633
|
9 |
1 |
if $_ > $max |
|
1643
|
0 |
10 |
if $_ < $min |
|
1656
|
1 |
2 |
wantarray ? : |
|
1662
|
1 |
3 |
wantarray ? : |
|
1668
|
0 |
0 |
wantarray ? : |
|
1674
|
0 |
1 |
wantarray ? : |
|
1710
|
8 |
0 |
defined $_ ? : |
|
1711
|
0 |
1 |
wantarray ? : |
|
1730
|
1 |
2 |
if (@_ == 1) { } |
|
|
1 |
1 |
elsif (CORE::ref $filter eq 'Regexp') { } |
|
|
0 |
1 |
elsif (not CORE::ref $filter) { } |
|
1789
|
3 |
2 |
wantarray ? : |
|
1797
|
2 |
2 |
wantarray ? : |
|
1804
|
3 |
4 |
defined $_[1] ? : |
|
1806
|
0 |
7 |
if $first < 0 |
|
1809
|
5 |
2 |
wantarray ? : |
|
1813
|
1 |
2 |
if (@_ == 1) { } |
|
1819
|
1 |
1 |
CORE::ref $arg eq 'Regexp' ? : |
|
1822
|
2 |
10 |
if &$filter($array->[$i]) |
|
1830
|
1 |
2 |
if (@_ == 1) { } |
|
1836
|
1 |
1 |
CORE::ref $arg eq 'Regexp' ? : |
|
1839
|
2 |
0 |
if &$filter($array->[$i]) |