line |
!l |
l&&!r |
l&&r |
condition |
79
|
0 |
0 |
40 |
&blessed($args->{'deck'}) and $args->{'deck'}->isa("Acme::Mitey::Cards::Deck") |
85
|
0 |
40 |
0 |
require Scalar::Util and &Scalar::Util::weaken($self->{'deck'}) |
138
|
0 |
0 |
42 |
&blessed($coerced_value) and $coerced_value->isa("Acme::Mitey::Cards::Suit") |
173
|
0 |
0 |
0 |
defined $to_coerce and not ref $to_coerce |
177
|
0 |
0 |
42 |
do {
package Acme::Mitey::Cards::Mite;
do {
my $tmp = $to_coerce;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $to_coerce >= 1 && $to_coerce <= 10 |
180
|
0 |
0 |
42 |
do {
package Acme::Mitey::Cards::Mite;
do {
my $tmp = $coerced_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} and $coerced_value >= 1 |
|
0 |
0 |
42 |
do {
package Acme::Mitey::Cards::Mite;
do {
my $tmp = $coerced_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} and $coerced_value >= 1 and $coerced_value <= 10 |
186
|
0 |
0 |
42 |
defined $tmp and not ref $tmp |
201
|
0 |
42 |
0 |
not $no_build and @{[] unless $meta->{'BUILD'};} |