| line |
true |
false |
branch |
|
144
|
0 |
1 |
if (exists $$self{'config'} and defined $$self{'config'}) |
|
150
|
0 |
1 |
unless (-e $config_file) |
|
156
|
0 |
1 |
unless open my $conf_fh, '<', $config_file |
|
169
|
4 |
10 |
unless (exists $$conf_hash{$_}) |
|
191
|
0 |
0 |
if ($del_idle) |
|
200
|
0 |
0 |
if ($del_counters) { } |
|
212
|
0 |
0 |
if ($del_timers) { } |
|
224
|
0 |
0 |
if ($del_gauges) |
|
228
|
0 |
0 |
if ($del_sets) { } |
|
281
|
0 |
0 |
if $dump_messages |
|
290
|
0 |
0 |
if ($must_count_keys) |
|
295
|
0 |
0 |
if 0 == @bits |
|
302
|
0 |
0 |
if (not defined $fields[1] or $fields[1] eq '') |
|
317
|
0 |
0 |
if ($unit eq 'ms') { } |
|
|
0 |
0 |
elsif ($unit eq 'g') { } |
|
|
0 |
0 |
elsif ($unit eq 's') { } |
|
340
|
0 |
0 |
if (defined $fields[2]) |
|
341
|
0 |
0 |
if ($fields[2] =~ /^\@([\d\.]+)/) { } |
|
370
|
0 |
0 |
if ($cmd eq 'help') { } |
|
|
0 |
0 |
elsif ($cmd eq 'stats') { } |
|
|
0 |
0 |
elsif ($cmd eq 'counters') { } |
|
|
0 |
0 |
elsif ($cmd eq 'timers') { } |
|
|
0 |
0 |
elsif ($cmd eq 'gauges') { } |
|
|
0 |
0 |
elsif ($cmd eq 'sets') { } |
|
|
0 |
0 |
elsif ($cmd eq 'delcounters') { } |
|
|
0 |
0 |
elsif ($cmd eq 'deltimers') { } |
|
|
0 |
0 |
elsif ($cmd eq 'delgauges') { } |
|
|
0 |
0 |
elsif ($cmd eq 'quit') { } |
|
386
|
0 |
0 |
$metric =~ /^last_/ ? : |
|
395
|
0 |
0 |
if ($backend_status and ref $backend_status eq 'HASH') |
|
471
|
0 |
0 |
if (my $reply = $self->handle_manager_command($handle, $line)) { } |
|
489
|
0 |
0 |
if (not $backends or ref $backends ne 'ARRAY') |
|
495
|
0 |
0 |
if ($backend =~ m[^ \./backends/ (.+) $]x) |
|
500
|
0 |
0 |
if ($backend =~ /^ (\w+) $/x) |
|
509
|
0 |
0 |
unless (eval {
do {
require $mod;
1
}
}) |
|
526
|
0 |
0 |
if ($backend eq 'stdout') { } |
|
|
0 |
0 |
elsif ($backend eq 'syslog') { } |
|
565
|
0 |
0 |
unless (eval {
do {
&$callback($obj);
1
}
}) |
|
594
|
1 |
0 |
defined $_[0] ? : |
|
601
|
0 |
0 |
if $kf_interval <= 0 |
|
653
|
0 |
0 |
if ($kf_log) { } |
|
654
|
0 |
0 |
if (open my $log_fh, '>>', $kf_log) |
|
677
|
0 |
0 |
unless (defined $config) |
|
708
|
0 |
0 |
unless setsockopt $$self{'server'}->fh, 1, 8, 8388608 |
|
715
|
0 |
0 |
unless my($fh, $host, $port) = @_ |
|
753
|
1 |
7 |
unless defined $s |