| line |
true |
false |
branch |
|
64
|
6 |
4 |
if ($type == 1) { } |
|
|
0 |
4 |
elsif ($type == 4) { } |
|
|
0 |
4 |
elsif ($type == 5) { } |
|
|
0 |
4 |
elsif ($type == 2) { } |
|
|
4 |
0 |
elsif ($type == 3) { } |
|
92
|
0 |
0 |
if (@_) |
|
105
|
13 |
0 |
if ($line =~ /^\s*(\S+) # Key
(?:\s+ # Optionally followed by a space
(?:(.*\S))?\s*)? # and then some value
$/x) { } |
|
117
|
13 |
0 |
if (defined $command) { } |
|
120
|
0 |
0 |
if (@matches) { } |
|
127
|
0 |
0 |
if (defined $self->default) { } |
|
143
|
0 |
1 |
unless (defined $fconfig) |
|
148
|
0 |
1 |
unless (open CONFIG, '>', $fconfig) |
|
157
|
6 |
4 |
if ($type eq 'CLI::Var') |
|
173
|
0 |
1 |
unless (defined $fconfig) |
|
178
|
0 |
1 |
unless (open CONFIG, $fconfig) |
|
221
|
0 |
13 |
if $key =~ /\?/ or $key =~ /\*/ |
|
236
|
13 |
53 |
if ($exactmatch and /^$key$/i) { } |
|
|
0 |
53 |
elsif (/^$key/i) { } |
|
248
|
0 |
0 |
if (@$matches == 1) { } |
|
258
|
9 |
0 |
if (defined $type) { } |
|
261
|
2 |
7 |
if ($type == 1) { } |
|
|
4 |
3 |
elsif ($type == 2) { } |
|
|
0 |
3 |
elsif ($type == 4) { } |
|
|
1 |
2 |
elsif ($type == 3) { } |
|
|
0 |
2 |
elsif ($type == 5) { } |
|
|
2 |
0 |
elsif ($type == 6) { } |
|
278
|
9 |
0 |
if ($string =~ /^\s*($pattern)(?:\s+(.*))?$/) { } |
|
282
|
2 |
7 |
if ($type == 6) { } |
|
|
0 |
7 |
elsif ($type == 5) { } |
|
299
|
0 |
0 |
if ($type == 1) { } |
|
|
0 |
0 |
elsif ($type == 2) { } |
|
|
0 |
0 |
elsif ($type == 3) { } |
|
|
0 |
0 |
elsif ($type == 4) { } |
|
|
0 |
0 |
elsif ($type == 5) { } |
|
|
0 |
0 |
elsif ($type == 6) { } |
|
|
0 |
0 |
elsif ($type == 7) { } |
|
321
|
0 |
0 |
if ($type == 5) { } |
|
|
0 |
0 |
elsif ($type == 6) { } |