| line |
true |
false |
branch |
|
38
|
0 |
4 |
if (ref $context ne 'HASH') |
|
52
|
0 |
1 |
unless (-f $file) |
|
58
|
0 |
1 |
unless (eval {
do {
require Config::Tiny;
'Config::Tiny'->import;
return 1
}
}) |
|
65
|
0 |
0 |
if $self->_err("Error reading $file") |
|
|
0 |
1 |
unless (my $config = 'Config::Tiny'->read($file)) |
|
69
|
1 |
2 |
if ($_ eq '_') { } |
|
81
|
0 |
1 |
if (ref $new ne 'HASH') |
|
100
|
0 |
0 |
if (@_) |
|
102
|
0 |
0 |
if ($$self{'_options'}{'parse_logs'}) |
|
103
|
0 |
0 |
unless eval {
do {
require Log::Any;
return 1
}
} |
|
117
|
0 |
0 |
if (@_) |
|
125
|
4 |
4 |
if ($cmd) { } |
|
132
|
4 |
0 |
$$self{'_context'}{'global'} ? : |
|
|
4 |
0 |
$$self{'_context'}{$cmd} ? : |
|
224
|
0 |
5 |
if (ref $options_ref ne 'HASH') |
|
243
|
0 |
15 |
unless $valid_options{$_} |
|
248
|
1 |
4 |
if ($options{'context_file'}) |
|
249
|
0 |
1 |
unless $self->load_context($options{'context_file'}) |
|
254
|
0 |
5 |
if $options{'parse_logs'} |
|
285
|
0 |
3 |
if ($parse_log) |
|
294
|
0 |
0 |
if exists $$context{'o'} |
|
295
|
0 |
0 |
if exists $$context{'oa'} |
|
303
|
2 |
1 |
if (@args) |
|
311
|
3 |
0 |
if ($dry_run) |
|
317
|
0 |
0 |
if $self->_err("Unable to write to $di_file") |
|
|
0 |
0 |
unless (print $DIF "$arg_str $opt_str") |
|
326
|
0 |
0 |
if (-f $di_file) |
|
329
|
0 |
0 |
if $parse_log |
|
340
|
1 |
2 |
if (ref $args[0] eq 'HASH') |
|
345
|
3 |
0 |
unless exists $$context{'dry_run'} |
|
347
|
3 |
0 |
unless exists $$context{'parse_logs'} |
|
363
|
110 |
16 |
unless $$context{$option} |
|
365
|
6 |
10 |
if ($val eq '1') { } |
|
471
|
0 |
0 |
if ($cmd eq 'hchu') { } |
|
|
0 |
0 |
elsif ($cmd eq 'hco') { } |
|
|
0 |
0 |
elsif ($cmd eq 'hexecp') { } |
|
493
|
0 |
0 |
if ($out) |
|
497
|
0 |
0 |
unless $line |
|
498
|
0 |
0 |
if $line =~ /^[[:blank:]]$/ |
|
508
|
0 |
0 |
if ($rc == -1) { } |
|
|
0 |
0 |
elsif ($rc > 0) { } |
|
510
|
0 |
0 |
if $out |
|
515
|
0 |
0 |
if ($rc > 255) |
|
517
|
0 |
0 |
if $out |
|
531
|
0 |
0 |
if $category eq '1' |
|
533
|
0 |
0 |
$category ? : |
|
535
|
0 |
0 |
unless (-f $logfile) |
|
541
|
0 |
0 |
if $log->error("Unable to read $logfile") |
|
|
0 |
0 |
unless (open my $L, '<', $logfile) |
|
544
|
0 |
0 |
unless defined $line |
|
546
|
0 |
0 |
unless $line |
|
547
|
0 |
0 |
if $line =~ /^[[:blank:]]*$/ |
|
549
|
0 |
0 |
if ($line =~ s/^\s*E0\w{7}:\s*//x) { } |
|
|
0 |
0 |
elsif ($line =~ s/^\s*W0\w{7}:\s*//x) { } |
|
|
0 |
0 |
elsif ($line =~ s/^\s*I0\w{7}:\s*//x) { } |
|
555
|
0 |
0 |
unless unlink $logfile |