| line |
true |
false |
branch |
|
36
|
0 |
1 |
ref $_[0] ? : |
|
42
|
0 |
1 |
@_ == 1 ? : |
|
|
0 |
1 |
$meta->{'HAS_BUILDARGS'} ? : |
|
46
|
0 |
1 |
if (exists $args->{'cards'}) |
|
53
|
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
} |
|
58
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
60
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
76
|
0 |
1 |
exists $args->{'reverse'} ? : |
|
79
|
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 |
|
82
|
1 |
0 |
if (defined $value) |
|
83
|
0 |
1 |
unless ref \$value eq "SCALAR" |
|
96
|
0 |
1 |
if (exists $args->{'original_cards'}) |
|
103
|
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
} |
|
108
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
110
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
127
|
0 |
1 |
if @unknown |
|
131
|
0 |
1 |
unless $meta->{'BUILD'} |
|
|
0 |
1 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
139
|
0 |
0 |
if exists $DOES{$role} |
|
140
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Deck" |
|
157
|
0 |
1 |
exists $_[0]{'original_cards'} ? : |
|
|
0 |
1 |
@_ > 1 ? : |
|
159
|
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;
}
} |
|
162
|
1 |
0 |
if (ref $default_value eq "ARRAY") |
|
167
|
0 |
54 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
169
|
54 |
0 |
if &Scalar::Util::blessed($i) |