| line |
true |
false |
branch |
|
14
|
36 |
4 |
scalar @_ == 1 ? : |
|
40
|
64 |
165 |
defined $args{$accessor} ? : |
|
43
|
3 |
226 |
$args{"build_$accessor"} ? : |
|
45
|
1 |
226 |
unless (defined $value) |
|
63
|
38 |
1 |
if (defined $value) |
|
64
|
1 |
37 |
if (ref $value) |
|
74
|
45 |
47 |
if (defined $value) |
|
75
|
1 |
44 |
if ((ref $value || '') ne "HASH") |
|
85
|
42 |
263 |
if (defined $value) |
|
86
|
4 |
38 |
if ((ref $value || '') ne "HASH") |
|
96
|
41 |
23 |
if (defined $value) |
|
97
|
2 |
39 |
if ((ref $value || '') ne "HASH") |
|
107
|
38 |
23 |
if (defined $value) |
|
108
|
1 |
37 |
if (ref $value) |
|
118
|
38 |
15 |
if (defined $value) |
|
119
|
1 |
37 |
if ((ref $value || '') ne "HASH") |
|
129
|
3 |
5 |
if ((ref $hash || '') ne "HASH") |
|
130
|
2 |
1 |
defined $hash ? : |
|
149
|
2 |
15 |
if ((ref $hash || '') ne "HASH") |
|
150
|
1 |
1 |
defined $hash ? : |
|
158
|
8 |
14 |
if ($ref eq 'HASH') { } |
|
|
4 |
10 |
elsif ($ref eq 'ARRAY') { } |
|
183
|
2 |
6 |
if ((ref $array || '') ne "ARRAY") |
|
184
|
1 |
1 |
defined $array ? : |
|
191
|
5 |
7 |
if ($ref eq 'HASH') { } |
|
|
1 |
6 |
elsif ($ref eq 'ARRAY') { } |
|
209
|
4 |
23 |
if ((ref $new || '') ne "HASH") |
|
210
|
3 |
1 |
defined $new ? : |
|
223
|
4 |
1 |
if ((ref $methods || '') ne "ARRAY") |
|
224
|
3 |
1 |
defined $methods ? : |
|
236
|
4 |
58 |
if ((ref $method || '') ne "HASH") |
|
237
|
3 |
1 |
defined $method ? : |
|
241
|
2 |
56 |
if (not defined $method->{'name'} or ref $method->{'name'}) |
|
242
|
1 |
1 |
defined $method->{'name'} ? : |
|
248
|
21 |
35 |
if ($method->{'clearer'}) |
|
252
|
1 |
55 |
if ($method->{'predicate'}) |
|
256
|
1 |
55 |
if ($method->{'get'}) |
|
260
|
12 |
44 |
if ($method->{'set'}) |
|
263
|
10 |
2 |
if $method->{'autotype'} |
|
264
|
11 |
1 |
if ($method->{'type'}) |
|
268
|
10 |
2 |
$method->{'merge'} ? : |
|
292
|
10 |
2 |
if $method->{'nested'} |
|
299
|
1 |
55 |
if ($method->{'ref'}) |
|
303
|
1 |
55 |
if ($method->{'reftype'}) |
|
307
|
24 |
32 |
if (exists $method->{'default'}) |
|
310
|
55 |
1 |
unless ($method->{'code'}) |
|
337
|
1 |
3 |
if (defined $self->{'array'}) |
|
|
2 |
5 |
if (defined $self->{'bed'}) |
|
|
2 |
2 |
if (defined $self->{'duvet'}) |
|
|
1 |
3 |
if (defined $self->{'info'}) |
|
|
1 |
12 |
if (defined $self->{'info'}) |
|
|
4 |
17 |
if (defined $self->{'mat'}) |
|
|
1 |
2 |
if (defined $self->{'name'}) |
|
|
1 |
3 |
if (defined $self->{'name'}) |
|
|
1 |
5 |
if (defined $self->{'room'}) |
|
|
2 |
6 |
if (defined $self->{'rooms'}) |
|
338
|
1 |
22 |
if ($@) |
|
346
|
1 |
64 |
unless defined $struct |
|
347
|
29 |
42 |
ref $struct ? : |
|
357
|
8 |
51 |
if (not defined $value or ref $value) |
|
358
|
6 |
27 |
defined $value ? : |
|
369
|
1 |
14 |
unless defined $value |
|
371
|
2 |
6 |
$type_map->{$ref} ? : |
|
|
7 |
10 |
if $ref |
|
372
|
1 |
12 |
if $value =~ /\d+\.\d+/ |
|
373
|
1 |
8 |
if $value =~ /\d+/ |
|
374
|
5 |
5 |
if $value =~ /\w+/ |