| line |
true |
false |
branch |
|
66
|
0 |
15 |
ref $_[0] ? : |
|
72
|
0 |
15 |
@_ == 1 ? : |
|
|
0 |
15 |
$meta->{'HAS_BUILDARGS'} ? : |
|
77
|
12 |
3 |
if (exists $args->{'deck'}) |
|
79
|
0 |
12 |
unless &blessed($args->{'deck'}) and $args->{'deck'}->isa("Acme::Mitey::Cards::Deck") |
|
85
|
12 |
3 |
if ref $self->{'deck'} |
|
89
|
1 |
14 |
if (exists $args->{'reverse'}) |
|
90
|
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";
}
} |
|
93
|
1 |
0 |
if (defined $args->{'reverse'}) |
|
95
|
0 |
1 |
unless ref \$args->{'reverse'} eq "SCALAR" |
|
105
|
0 |
15 |
unless exists $args->{'suit'} |
|
113
|
14 |
1 |
if &Scalar::Util::blessed($to_coerce) |
|
121
|
1 |
0 |
if (defined $to_coerce) |
|
122
|
0 |
1 |
unless ref \$to_coerce eq "SCALAR" |
|
128
|
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)
} ? : |
|
138
|
0 |
15 |
unless &blessed($coerced_value) and $coerced_value->isa("Acme::Mitey::Cards::Suit") |
|
147
|
0 |
15 |
unless exists $args->{'face'} |
|
148
|
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'}
} |
|
153
|
15 |
0 |
if defined $args->{'face'} and not ref $args->{'face'} |
|
160
|
0 |
14 |
unless $meta->{'BUILD'} |
|
|
0 |
14 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
165
|
0 |
14 |
if @unknown |
|
208
|
0 |
0 |
if exists $DOES{$role} |
|
209
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Card::Face" |