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 |