| line |
true |
false |
branch |
|
65
|
0 |
8 |
*{$_;}{'CODE'} ? : |
|
69
|
0 |
8 |
*{$_;}{'CODE'} ? : |
|
79
|
0 |
6 |
ref $_[0] ? : |
|
85
|
0 |
6 |
@_ == 1 ? : |
|
|
0 |
6 |
$meta->{'HAS_BUILDARGS'} ? : |
|
90
|
5 |
1 |
if (exists $args->{'cards'}) |
|
97
|
0 |
5 |
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
} |
|
102
|
0 |
19 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
104
|
19 |
0 |
if &Scalar::Util::blessed($i) |
|
118
|
0 |
6 |
unless $meta->{'BUILD'} |
|
|
0 |
6 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
123
|
0 |
6 |
if @unknown |
|
133
|
0 |
0 |
unless $meta->{'BUILD'} |
|
141
|
10 |
0 |
defined ${^GLOBAL_PHASE} ? : |
|
145
|
0 |
10 |
unless $meta->{'DEMOLISH'} |
|
152
|
0 |
0 |
if $e |
|
163
|
0 |
41 |
unless @_ == 1 |
|
166
|
38 |
3 |
exists $_[0]{'cards'} ? : |
|
168
|
0 |
3 |
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;
}
} |
|
171
|
3 |
0 |
if (ref $default_value eq "ARRAY") |
|
176
|
0 |
54 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
178
|
54 |
0 |
if &Scalar::Util::blessed($i) |
|
199
|
0 |
0 |
if exists $DOES{$role} |
|
200
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Set" |