| line |
true |
false |
branch |
|
36
|
0 |
15 |
ref $_[0] ? : |
|
42
|
0 |
15 |
@_ == 1 ? : |
|
|
0 |
15 |
$meta->{'HAS_BUILDARGS'} ? : |
|
46
|
12 |
3 |
if (exists $args->{'deck'}) |
|
48
|
0 |
12 |
unless do {
$args->{'deck'}->isa("Acme::Mitey::Cards::Deck") if &Scalar::Util::blessed($args->{'deck'})
} |
|
51
|
12 |
0 |
if &Scalar::Util::blessed($args->{'deck'}) |
|
59
|
12 |
3 |
if exists $self->{'deck'} |
|
62
|
1 |
14 |
if (exists $args->{'reverse'}) |
|
63
|
0 |
1 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $args->{'reverse'}) {
ref \(my $val = $args->{'reverse'}) eq "SCALAR" unless ref \$args->{'reverse'} eq "SCALAR";
}
} |
|
66
|
1 |
0 |
if (defined $args->{'reverse'}) |
|
68
|
0 |
1 |
unless ref \$args->{'reverse'} eq "SCALAR" |
|
77
|
0 |
15 |
unless exists $args->{'suit'} |
|
85
|
14 |
1 |
if &Scalar::Util::blessed($to_coerce) |
|
93
|
1 |
0 |
if (defined $to_coerce) |
|
94
|
0 |
1 |
unless ref \$to_coerce eq "SCALAR" |
|
100
|
1 |
0 |
do {
package Acme::Mitey::Cards::Mite;
if (defined $to_coerce) {
ref \(my $val = $to_coerce) eq 'SCALAR' unless ref \$to_coerce eq 'SCALAR';
}
} ? : |
|
|
14 |
1 |
do {
$to_coerce->isa('Acme::Mitey::Cards::Suit') if &Scalar::Util::blessed($to_coerce)
} ? : |
|
111
|
0 |
15 |
unless do {
$coerced_value->isa("Acme::Mitey::Cards::Suit") if &Scalar::Util::blessed($coerced_value)
} |
|
113
|
15 |
0 |
if &Scalar::Util::blessed($coerced_value) |
|
123
|
0 |
15 |
unless exists $args->{'face'} |
|
124
|
1 |
14 |
unless do {
package Acme::Mitey::Cards::Mite;
$args->{'face'} =~ /\A(?:(?:Jack|King|Queen))\z/ if defined $args->{'face'} and not ref $args->{'face'}
} |
|
129
|
15 |
0 |
if defined $args->{'face'} and not ref $args->{'face'} |
|
138
|
0 |
14 |
if @unknown |
|
142
|
0 |
14 |
unless $meta->{'BUILD'} |
|
|
0 |
14 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
150
|
0 |
0 |
if exists $DOES{$role} |
|
151
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Card::Face" |