| line |
true |
false |
branch |
|
227
|
0 |
0 |
if ($self->option('datadir')) { } |
|
246
|
0 |
0 |
unless is_hash($dbi_conf) |
|
249
|
0 |
0 |
if ($config->status) |
|
250
|
0 |
0 |
if $dbi->error |
|
255
|
0 |
0 |
if ($dbi->is_sqlite) { } |
|
260
|
0 |
0 |
if ($dbi->error) { } |
|
283
|
0 |
0 |
if ($skel->build('config')) { } |
|
286
|
0 |
0 |
unless ($config->status) |
|
672
|
0 |
0 |
if $args{'error'} |
|
688
|
0 |
0 |
unless $rec |
|
689
|
0 |
0 |
if ($rec =~ /\@/) { } |
|
|
0 |
0 |
elsif ($rec =~ /^[\(+]*\d+/) { } |
|
701
|
0 |
0 |
$args{'status'} ? : |
|
710
|
0 |
0 |
unless ($smsgw) |
|
731
|
0 |
0 |
$? >> 8 ? : |
|
732
|
0 |
0 |
if ($exe_stt) { } |
|
736
|
0 |
0 |
if (defined $exe_out and length $exe_out and $self->verbosemode) |
|
745
|
0 |
0 |
if ($exe_err) |
|
764
|
0 |
0 |
$args{'status'} ? : |
|
771
|
0 |
0 |
$args{'status'} ? : |
|
773
|
0 |
0 |
$args{'status'} ? : |
|
784
|
0 |
0 |
if ($NOTIFIER_LOADED and $agent and @for_notifier) |
|
790
|
0 |
0 |
unless ($agent->create('to', $to, 'subject', $subject, 'message', join("\n", @report))) |
|
795
|
0 |
0 |
if ($agent->status) |
|
811
|
0 |
0 |
unless $to =~ /\@example.com$/ |
|
812
|
0 |
0 |
if ($sent) { } |
|
836
|
0 |
0 |
$args{'status'} ? : |
|
846
|
0 |
0 |
unless $trg |
|
855
|
0 |
0 |
$args{'status'} ? : |
|
859
|
0 |
0 |
$? >> 8 ? : |
|
860
|
0 |
0 |
if ($exe_stt) { } |
|
864
|
0 |
0 |
if (defined $exe_out and length $exe_out and $self->verbosemode) |
|
872
|
0 |
0 |
if ($exe_err) |
|
914
|
0 |
0 |
if (ref $sects eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $sects eq 'HASH' and not exists $sects->{'enable'}) { } |
|
|
0 |
0 |
elsif (ref $sects eq 'HASH') { } |
|
916
|
0 |
0 |
if (ref $r eq 'HASH' and exists $r->{'enable'}) { } |
|
|
0 |
0 |
elsif (ref $r eq 'HASH') { } |
|
918
|
0 |
0 |
unless not @names or grep {$r->{'name'} eq lc $_;} @names |
|
923
|
0 |
0 |
unless ref $v eq 'HASH' |
|
925
|
0 |
0 |
unless not @names or grep {$v->{'name'} eq lc $_;} @names |
|
933
|
0 |
0 |
unless ref $v eq 'HASH' |
|
935
|
0 |
0 |
unless not @names or grep {$v->{'name'} eq lc $_;} @names |
|
940
|
0 |
0 |
if not @names or grep {$sects->{'name'} eq lc $_;} @names |
|
968
|
0 |
0 |
if $maxlen < length $r->[0] |
|
995
|
0 |
0 |
if (@errs) { } |