| line |
true |
false |
branch |
|
139
|
4 |
28 |
if ($defaults) |
|
140
|
1 |
3 |
unless ref $defaults eq 'HASH' |
|
146
|
28 |
3 |
if (ref $profiles_or_file) { } |
|
321
|
95 |
42 |
unless (ref $self) |
|
328
|
102 |
35 |
if (ref $name) { } |
|
333
|
0 |
33 |
unless $profile |
|
335
|
0 |
135 |
unless ref $profile eq 'HASH' |
|
338
|
14 |
121 |
if ($self->{'defaults'}) |
|
348
|
2 |
120 |
if $self->{'defaults'}{'msgs'} |
|
890
|
32 |
3 |
unless $file |
|
892
|
1 |
2 |
unless -f $file |
|
893
|
0 |
2 |
unless -r _ |
|
896
|
0 |
2 |
if $self->{'profiles'} and $self->{'profiles_mtime'} <= $mtime |
|
900
|
1 |
1 |
unless ref $self->{'profiles'} eq 'HASH' |
|
911
|
0 |
135 |
unless ref $profile eq 'HASH' |
|
947
|
3 |
615 |
unless grep(($key eq $_), @valid_profile_keys) |
|
951
|
2 |
133 |
if (@invalid) |
|
968
|
1 |
68 |
if (ref $val eq 'HASH' and not grep((ref $val->{'constraint_method'} eq $_), 'CODE', 'Regexp')) { } |
|
|
2 |
66 |
elsif (not grep((ref $val eq $_), 'HASH', 'CODE', 'Regexp')) { } |
|
993
|
69 |
61 |
if $profile->{'constraints'} |
|
995
|
44 |
86 |
if $profile->{'constraint_regexp_map'} |
|
999
|
2 |
54 |
unless grep(($key eq $_), @valid_constraint_hash_keys) |
|
1003
|
2 |
128 |
if (@invalid) |
|
1020
|
15 |
113 |
if (ref $profile->{'msgs'} eq 'HASH') |
|
1022
|
1 |
16 |
unless grep(($key eq $_), @valid_msgs_hash_keys) |
|
1025
|
1 |
127 |
if (@invalid) |