| line |
true |
false |
branch |
|
28
|
0 |
6 |
ref $_[0] ? : |
|
34
|
0 |
6 |
@_ == 1 ? : |
|
|
0 |
6 |
$meta->{'HAS_BUILDARGS'} ? : |
|
38
|
5 |
1 |
if (exists $args->{'cards'}) |
|
45
|
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
} |
|
50
|
0 |
19 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
52
|
19 |
0 |
if &Scalar::Util::blessed($i) |
|
68
|
0 |
6 |
if @unknown |
|
72
|
0 |
6 |
unless $meta->{'BUILD'} |
|
|
0 |
6 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
80
|
0 |
0 |
unless $meta->{'BUILD'} |
|
87
|
10 |
0 |
defined ${^GLOBAL_PHASE} ? : |
|
91
|
0 |
10 |
unless $meta->{'DEMOLISH'} |
|
98
|
0 |
0 |
if $e |
|
111
|
0 |
8 |
*{$_;}{'CODE'} ? : |
|
115
|
0 |
8 |
*{$_;}{'CODE'} ? : |
|
126
|
0 |
0 |
if exists $DOES{$role} |
|
127
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Set" |
|
142
|
38 |
3 |
exists $_[0]{'cards'} ? : |
|
|
0 |
41 |
@_ > 1 ? : |
|
144
|
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;
}
} |
|
147
|
3 |
0 |
if (ref $default_value eq "ARRAY") |
|
152
|
0 |
54 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
154
|
54 |
0 |
if &Scalar::Util::blessed($i) |