| line |
true |
false |
branch |
|
80
|
1 |
12 |
if $properties and ref $properties ne 'HASH' |
|
84
|
4 |
8 |
if $self->can('methods') |
|
87
|
1 |
8 |
unless $self->can($property) |
|
140
|
23 |
18 |
if ($_options and $$_options{'undef_ok'}) { } |
|
141
|
1 |
22 |
unless $methods |
|
144
|
1 |
17 |
unless $methods |
|
148
|
23 |
16 |
if (ref $methods eq 'ARRAY') { } |
|
|
13 |
3 |
elsif (ref $methods eq 'HASH') { } |
|
150
|
5 |
37 |
if not defined $_ or $_ eq '' or $_ =~ /\W/ or $_ =~ /^\d/ |
|
159
|
1 |
12 |
unless %$methods |
|
162
|
4 |
19 |
if not defined $key or $key eq '' or $key =~ /\W/ or $key =~ /^\d/ |
|
167
|
4 |
10 |
if defined $value and ref $value and ref $value ne 'CODE' |
|
252
|
2 |
22 |
unless $methods |
|
254
|
13 |
2 |
if (ref $methods eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $methods eq 'HASH') { } |
|
275
|
2 |
21 |
if defined $prototype and (ref $prototype and not ref $prototype eq 'CODE') |
|
279
|
17 |
25 |
if (ref $prototype eq 'CODE') |
|
284
|
9 |
33 |
if defined &{$package . "::$name";} and not $$options{'override_existing'} |
|
288
|
17 |
16 |
if ($subref) { } |
|
289
|
6 |
11 |
if ($$options{'object'}) { } |
|
297
|
0 |
16 |
if ($$options{'object'}) { } |
|
303
|
0 |
0 |
unless @_ |
|
305
|
0 |
0 |
if @_ |
|
313
|
34 |
26 |
unless @_ |
|
315
|
1 |
25 |
if @_ |
|
337
|
3 |
2 |
unless $self->can('methods') and ref $self->methods and ref $self->methods eq 'HASH' |
|
341
|
7 |
3 |
if defined $self->$property |
|
342
|
1 |
2 |
if defined $value |