| line |
true |
false |
branch |
|
36
|
0 |
3 |
ref $_[0] ? : |
|
42
|
0 |
3 |
@_ == 1 ? : |
|
|
0 |
3 |
$meta->{'HAS_BUILDARGS'} ? : |
|
46
|
2 |
1 |
if (exists $args->{'cards'}) |
|
53
|
0 |
2 |
unless 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
} |
|
58
|
0 |
16 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
60
|
16 |
0 |
if &Scalar::Util::blessed($i) |
|
74
|
3 |
0 |
if (exists $args->{'owner'}) |
|
75
|
0 |
3 |
unless do {
package Acme::Mitey::Cards::Mite;
unless (do {
if (defined $args->{'owner'}) {
ref \(my $val = $args->{'owner'}) eq "SCALAR" unless ref \$args->{'owner'} eq "SCALAR";
}
}) {
&Scalar::Util::blessed($args->{'owner'});
}
} |
|
82
|
3 |
0 |
if (defined $args->{'owner'}) |
|
84
|
0 |
3 |
unless ref \$args->{'owner'} eq "SCALAR" |
|
89
|
0 |
3 |
unless (do {
if (defined $args->{'owner'}) {
ref \(my $val = $args->{'owner'}) eq "SCALAR" unless ref \$args->{'owner'} eq "SCALAR";
}
}) |
|
106
|
0 |
3 |
if @unknown |
|
110
|
0 |
3 |
unless $meta->{'BUILD'} |
|
|
0 |
3 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
118
|
0 |
0 |
if exists $DOES{$role} |
|
119
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Hand" |
|
134
|
0 |
0 |
unless do {
package Acme::Mitey::Cards::Mite;
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) {
&Scalar::Util::blessed($_[1]);
}
} |
|
141
|
0 |
0 |
if (defined $_[1]) |
|
142
|
0 |
0 |
unless ref \$_[1] eq "SCALAR" |
|
147
|
0 |
0 |
unless (do {
if (defined $_[1]) {
ref \(my $val = $_[1]) eq "SCALAR" unless ref \$_[1] eq "SCALAR";
}
}) |
|
161
|
0 |
3 |
@_ > 1 ? : |