| line |
true |
false |
branch |
|
65
|
0 |
4 |
*{$_;}{'CODE'} ? : |
|
69
|
0 |
4 |
*{$_;}{'CODE'} ? : |
|
79
|
0 |
12 |
ref $_[0] ? : |
|
85
|
0 |
12 |
@_ == 1 ? : |
|
|
0 |
12 |
$meta->{'HAS_BUILDARGS'} ? : |
|
90
|
0 |
12 |
unless exists $args->{'name'} |
|
96
|
12 |
0 |
if (defined $args->{'name'}) |
|
98
|
0 |
12 |
unless ref \$args->{'name'} eq "SCALAR" |
|
102
|
0 |
12 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $args->{'name'}) {
ref \(my $val = $args->{'name'}) eq "SCALAR" unless ref \$args->{'name'} eq "SCALAR";
}
} and do {
package Acme::Mitey::Cards::Mite;
length $args->{'name'} > 0
} |
|
114
|
0 |
12 |
if (exists $args->{'abbreviation'}) |
|
115
|
0 |
0 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $args->{'abbreviation'}) {
ref \(my $val = $args->{'abbreviation'}) eq "SCALAR" unless ref \$args->{'abbreviation'} eq "SCALAR";
}
} |
|
118
|
0 |
0 |
if (defined $args->{'abbreviation'}) |
|
120
|
0 |
0 |
unless ref \$args->{'abbreviation'} eq "SCALAR" |
|
132
|
0 |
12 |
unless exists $args->{'colour'} |
|
133
|
0 |
12 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $args->{'colour'}) {
ref \(my $val = $args->{'colour'}) eq "SCALAR" unless ref \$args->{'colour'} eq "SCALAR";
}
} |
|
136
|
12 |
0 |
if (defined $args->{'colour'}) |
|
138
|
0 |
12 |
unless ref \$args->{'colour'} eq "SCALAR" |
|
146
|
0 |
12 |
unless $meta->{'BUILD'} |
|
|
0 |
12 |
if not $no_build and @{[] unless $meta->{'BUILD'};} |
|
152
|
0 |
12 |
if @unknown |
|
162
|
0 |
0 |
unless $meta->{'BUILD'} |
|
170
|
0 |
0 |
defined ${^GLOBAL_PHASE} ? : |
|
174
|
0 |
0 |
unless $meta->{'DEMOLISH'} |
|
181
|
0 |
0 |
if $e |
|
192
|
0 |
164 |
unless @_ == 1 |
|
195
|
152 |
12 |
exists $_[0]{'abbreviation'} ? : |
|
197
|
0 |
12 |
unless do {
package Acme::Mitey::Cards::Mite;
if (defined $default_value) {
ref \(my $val = $default_value) eq "SCALAR" unless ref \$default_value eq "SCALAR";
}
} |
|
200
|
12 |
0 |
if (defined $default_value) |
|
201
|
0 |
12 |
unless ref \$default_value eq "SCALAR" |
|
248
|
0 |
0 |
if exists $DOES{$role} |
|
249
|
0 |
0 |
if $role eq "Acme::Mitey::Cards::Suit" |