| line |
true |
false |
branch |
|
21
|
6 |
9 |
if ($elt =~ /^-([A-Za-z::]+)$/) { } |
|
29
|
0 |
9 |
if @requests > 1 |
|
34
|
6 |
3 |
if ($request) |
|
36
|
0 |
6 |
unless eval "use YAML::$request qw(Load LoadFile); 1" |
|
41
|
3 |
6 |
unless ($request_ok) |
|
44
|
0 |
3 |
if $request |
|
113
|
0 |
24 |
unless defined $yaml |
|
114
|
24 |
0 |
if $yaml =~ /^(?:---(?:\s+~?)?\s+)+$/m |
|
153
|
0 |
16 |
unless (defined $result) |
|
154
|
0 |
0 |
unless open my $fh, '<', $file |
|
161
|
12 |
12 |
unless $msg |
|
183
|
16 |
12 |
unless $msg |
|
186
|
8 |
128 |
if -d $file |
|
189
|
24 |
96 |
unless (defined $result) |
|
190
|
0 |
24 |
unless open my $fh, '<', $file |
|
196
|
8 |
120 |
if ($@ or not _is_yaml($result, $yaml)) |