| line |
true |
false |
branch |
|
36
|
0 |
42 |
ref $_[0] ? : |
|
42
|
0 |
42 |
@_ == 1 ? : |
|
|
0 |
42 |
$meta->{'HAS_BUILDARGS'} ? : |
|
46
|
40 |
2 |
if (exists $args->{'deck'}) |
|
48
|
0 |
40 |
unless do {
$args->{'deck'}->isa("Acme::Mitey::Cards::Deck") if &Scalar::Util::blessed($args->{'deck'})
} |
|
51
|
40 |
0 |
if &Scalar::Util::blessed($args->{'deck'}) |
|
59
|
40 |
2 |
if exists $self->{'deck'} |
|
62
|
2 |
40 |
if (exists $args->{'reverse'}) |
|
63
|
0 |
2 |
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
|
2 |
0 |
if (defined $args->{'reverse'}) |
|
68
|
0 |
2 |
unless ref \$args->{'reverse'} eq "SCALAR" |
|
77
|
0 |
42 |
unless exists $args->{'suit'} |
|
85
|
42 |
0 |
if &Scalar::Util::blessed($to_coerce) |
|
93
|
0 |
0 |
if (defined $to_coerce) |
|
94
|
0 |
0 |
unless ref \$to_coerce eq "SCALAR" |
|
100
|
0 |
0 |
do {
package Acme::Mitey::Cards::Mite;
if (defined $to_coerce) {
ref \(my $val = $to_coerce) eq 'SCALAR' unless ref \$to_coerce eq 'SCALAR';
}
} ? : |
|
|
42 |
0 |
do {
$to_coerce->isa('Acme::Mitey::Cards::Suit') if &Scalar::Util::blessed($to_coerce)
} ? : |
|
111
|
0 |
42 |
unless do {
$coerced_value->isa("Acme::Mitey::Cards::Suit") if &Scalar::Util::blessed($coerced_value)
} |
|
113
|
42 |
0 |
if &Scalar::Util::blessed($coerced_value) |
|
124
|
0 |
42 |
unless exists $args->{'number'} |
|
149
|
0 |
0 |
if defined $to_coerce and not ref $to_coerce |
|
153
|
0 |
0 |
do {
package Acme::Mitey::Cards::Mite;
$to_coerce =~ /\A(?:[Aa])\z/ if defined $to_coerce and not ref $to_coerce
} ? : |
|
|
42 |
0 |
do {
package Acme::Mitey::Cards::Mite;
do {
my $tmp = $to_coerce;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $to_coerce >= 1 && $to_coerce <= 10 ? : |
|
156
|
0 |
42 |
unless do {
package Acme::Mitey::Cards::Mite;
do {
my $tmp = $coerced_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} and $coerced_value >= 1 and $coerced_value <= 10 |
|
162
|
42 |
0 |
if defined $tmp and not ref $tmp |
|
180
|
0 |
42 |
if @unknown |
|
184
|
0 |
42 |
unless $meta->{'BUILD'} |
|
|
0 |
42 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
192
|
0 |
0 |
if exists $DOES{$role} |
|
193
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Card::Numeric" |