| line |
!l |
l&&!r |
l&&r |
condition |
|
84
|
0 |
0 |
0 |
do {
package Acme::Mitey::Cards::Mite;
ref $args->{'cards'} eq "ARRAY"
} and do {
my $ok = 1;
foreach my $i (@{$$args{"cards"};}) {
$ok = 0, last unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
};
} ;
$ok
} |
|
111
|
0 |
0 |
1 |
do {
package Acme::Mitey::Cards::Mite;
if (defined $value) {
ref \(my $val = $value) eq "SCALAR" unless ref \$value eq "SCALAR";
}
} and length $value > 0 |
|
136
|
0 |
0 |
0 |
do {
package Acme::Mitey::Cards::Mite;
ref $args->{'original_cards'} eq "ARRAY"
} and do {
my $ok = 1;
foreach my $i (@{$$args{"original_cards"};}) {
$ok = 0, last unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
};
} ;
$ok
} |
|
157
|
0 |
1 |
0 |
not $no_build and @{[] unless $meta->{'BUILD'};} |