| line |
true |
false |
branch |
|
14
|
35 |
2 |
scalar @_ == 1 ? : |
|
40
|
61 |
151 |
defined $args{$accessor} ? : |
|
43
|
0 |
212 |
$accessors{$accessor}{'builder'} ? : |
|
45
|
0 |
210 |
unless (not $accessors{$accessor}{'required'} or defined $value) |
|
63
|
35 |
0 |
if (defined $value) |
|
64
|
0 |
35 |
if (ref $value) |
|
74
|
40 |
43 |
if (defined $value) |
|
75
|
0 |
40 |
if ((ref $value || '') ne 'HASH') |
|
85
|
40 |
209 |
if (defined $value) |
|
86
|
4 |
36 |
if ((ref $value || '') ne 'HASH') |
|
96
|
35 |
21 |
if (defined $value) |
|
97
|
0 |
35 |
if ((ref $value || '') ne 'HASH') |
|
107
|
35 |
21 |
if (defined $value) |
|
108
|
0 |
35 |
if (ref $value) |
|
118
|
35 |
10 |
if (defined $value) |
|
119
|
0 |
35 |
if ((ref $value || '') ne 'HASH') |
|
129
|
2 |
5 |
if ((ref $hash || '') ne 'HASH') |
|
130
|
2 |
0 |
defined $hash ? : |
|
149
|
0 |
14 |
if ((ref $hash || '') ne 'HASH') |
|
150
|
0 |
0 |
defined $hash ? : |
|
158
|
8 |
12 |
if ($ref eq 'HASH') { } |
|
|
4 |
8 |
elsif ($ref eq 'ARRAY') { } |
|
183
|
0 |
4 |
if ((ref $array || '') ne 'ARRAY') |
|
184
|
0 |
0 |
defined $array ? : |
|
191
|
4 |
6 |
if ($ref eq 'HASH') { } |
|
|
0 |
6 |
elsif ($ref eq 'ARRAY') { } |
|
209
|
2 |
21 |
if ((ref $new || '') ne 'HASH') |
|
210
|
2 |
0 |
defined $new ? : |
|
223
|
2 |
0 |
if (not defined $methods or (ref $methods || '') ne 'ARRAY') |
|
224
|
2 |
0 |
defined $methods ? : |
|
237
|
2 |
52 |
if ((ref $method || '') ne 'HASH') |
|
238
|
2 |
0 |
defined $method ? : |
|
242
|
0 |
52 |
if (not defined $method->{'name'} or ref $method->{'name'}) |
|
243
|
0 |
0 |
defined $method->{'name'} ? : |
|
249
|
1 |
51 |
if ($method->{'clearer'}) |
|
253
|
1 |
51 |
if ($method->{'predicate'}) |
|
257
|
1 |
51 |
if ($method->{'get'}) |
|
261
|
12 |
40 |
if ($method->{'set'}) |
|
264
|
10 |
2 |
if $method->{'autotype'} |
|
265
|
8 |
4 |
if ($method->{'type'}) |
|
269
|
10 |
2 |
$method->{'merge'} ? : |
|
293
|
10 |
2 |
if $method->{'nested'} |
|
300
|
1 |
51 |
if ($method->{'ref'}) |
|
304
|
1 |
51 |
if ($method->{'reftype'}) |
|
308
|
22 |
30 |
if (exists $method->{'default'}) |
|
311
|
52 |
0 |
unless ($method->{'code'}) |
|
338
|
0 |
0 |
if (defined $self->{'array'}) |
|
|
1 |
0 |
if (defined $self->{'bed'}) |
|
|
1 |
0 |
if (defined $self->{'duvet'}) |
|
|
0 |
0 |
if (defined $self->{'info'}) |
|
|
0 |
0 |
if (defined $self->{'info'}) |
|
|
0 |
0 |
if (defined $self->{'mat'}) |
|
|
0 |
0 |
if (defined $self->{'name'}) |
|
|
0 |
0 |
if (defined $self->{'name'}) |
|
|
0 |
0 |
if (defined $self->{'room'}) |
|
|
1 |
0 |
if (defined $self->{'rooms'}) |
|
344
|
27 |
26 |
ref $struct ? : |
|
345
|
0 |
53 |
unless defined $struct |
|
355
|
5 |
34 |
if (not defined $value or ref $value) |
|
366
|
6 |
50 |
unless defined $value |
|
368
|
6 |
5 |
if $ref |
|
369
|
0 |
6 |
if $value =~ /\d+\.\d+/ |
|
370
|
1 |
3 |
if $value =~ /\d+/ |
|
371
|
0 |
3 |
if $value =~ /\s+/ |