| 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 |
|
291
|
0 |
0 |
if ($must_count_keys) |
|
296
|
0 |
0 |
if 0 == @bits |
|
303
|
0 |
0 |
if (not defined $fields[1] or $fields[1] eq '') |
|
318
|
0 |
0 |
if ($unit eq 'ms') { } |
|
|
0 |
0 |
elsif ($unit eq 'g') { } |
|
|
0 |
0 |
elsif ($unit eq 's') { } |
|
341
|
0 |
0 |
if (defined $fields[2]) |
|
342
|
0 |
0 |
if ($fields[2] =~ /^\@([\d\.]+)/) { } |
|
371
|
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') { } |
|
387
|
0 |
0 |
$metric =~ /^last_/ ? : |
|
396
|
0 |
0 |
if ($backend_status and ref $backend_status eq 'HASH') |
|
472
|
0 |
0 |
if (my $reply = $self->handle_manager_command($handle, $line)) { } |
|
490
|
0 |
0 |
if (not $backends or ref $backends ne 'ARRAY') |
|
496
|
0 |
0 |
if ($backend =~ m[^ \./backends/ (.+) $]x) |
|
501
|
0 |
0 |
if ($backend =~ /^ (\w+) $/x) |
|
510
|
0 |
0 |
unless (eval {
do {
require $mod;
1
}
}) |
|
527
|
0 |
0 |
if ($backend eq 'stdout') { } |
|
|
0 |
0 |
elsif ($backend eq 'syslog') { } |
|
566
|
0 |
0 |
unless (eval {
do {
&$callback($obj);
1
}
}) |
|
595
|
1 |
0 |
defined $_[0] ? : |
|
602
|
0 |
0 |
if $kf_interval <= 0 |
|
654
|
0 |
0 |
if ($kf_log) { } |
|
655
|
0 |
0 |
if (open my $log_fh, '>>', $kf_log) |
|
678
|
0 |
0 |
unless (defined $config) |
|
709
|
0 |
0 |
unless setsockopt $self->{'server'}->fh, 1, 8, 8388608 |
|
716
|
0 |
0 |
unless my($fh, $host, $port) = @_ |
|
754
|
1 |
7 |
unless defined $s |