| line |
true |
false |
branch |
|
66
|
0 |
1 |
ref $_[0] ? : |
|
72
|
0 |
1 |
@_ == 1 ? : |
|
|
0 |
1 |
$meta->{'HAS_BUILDARGS'} ? : |
|
77
|
0 |
1 |
if (exists $args->{'cards'}) |
|
84
|
0 |
0 |
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
} |
|
89
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
91
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
108
|
0 |
1 |
exists $args->{'reverse'} ? : |
|
111
|
0 |
1 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $value) {
ref \(my $val = $value) eq "SCALAR" unless ref \$value eq "SCALAR";
}
} and length $value > 0 |
|
114
|
1 |
0 |
if (defined $value) |
|
115
|
0 |
1 |
unless ref \$value eq "SCALAR" |
|
129
|
0 |
1 |
if (exists $args->{'original_cards'}) |
|
136
|
0 |
0 |
unless 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
} |
|
141
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
143
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
157
|
0 |
1 |
unless $meta->{'BUILD'} |
|
|
0 |
1 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
163
|
0 |
1 |
if @unknown |
|
175
|
0 |
1 |
unless @_ == 1 |
|
179
|
0 |
1 |
exists $_[0]{'original_cards'} ? : |
|
181
|
0 |
1 |
unless do {
package Acme::Mitey::Cards::Mite;
if (ref $default_value eq "ARRAY") {
my $ok = 1;
foreach my $i (@{$default_value;}) {
$ok = 0, last unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
};
} ;
$ok;
}
} |
|
184
|
1 |
0 |
if (ref $default_value eq "ARRAY") |
|
189
|
0 |
54 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
191
|
54 |
0 |
if &Scalar::Util::blessed($i) |
|
227
|
0 |
0 |
if exists $DOES{$role} |
|
228
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Deck" |