| line |
true |
false |
branch |
|
66
|
0 |
42 |
ref $_[0] ? : |
|
72
|
0 |
42 |
@_ == 1 ? : |
|
|
0 |
42 |
$meta->{'HAS_BUILDARGS'} ? : |
|
77
|
40 |
2 |
if (exists $args->{'deck'}) |
|
79
|
0 |
40 |
unless &blessed($args->{'deck'}) and $args->{'deck'}->isa("Acme::Mitey::Cards::Deck") |
|
85
|
40 |
2 |
if ref $self->{'deck'} |
|
89
|
2 |
40 |
if (exists $args->{'reverse'}) |
|
90
|
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";
}
} |
|
93
|
2 |
0 |
if (defined $args->{'reverse'}) |
|
95
|
0 |
2 |
unless ref \$args->{'reverse'} eq "SCALAR" |
|
105
|
0 |
42 |
unless exists $args->{'suit'} |
|
113
|
42 |
0 |
if &Scalar::Util::blessed($to_coerce) |
|
121
|
0 |
0 |
if (defined $to_coerce) |
|
122
|
0 |
0 |
unless ref \$to_coerce eq "SCALAR" |
|
128
|
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)
} ? : |
|
138
|
0 |
42 |
unless &blessed($coerced_value) and $coerced_value->isa("Acme::Mitey::Cards::Suit") |
|
148
|
0 |
42 |
unless exists $args->{'number'} |
|
173
|
0 |
0 |
if defined $to_coerce and not ref $to_coerce |
|
177
|
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 ? : |
|
180
|
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 |
|
186
|
42 |
0 |
if defined $tmp and not ref $tmp |
|
201
|
0 |
42 |
unless $meta->{'BUILD'} |
|
|
0 |
42 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
207
|
0 |
42 |
if @unknown |
|
250
|
0 |
0 |
if exists $DOES{$role} |
|
251
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Card::Numeric" |