| line |
true |
false |
branch |
|
54
|
4 |
114 |
if (@_) |
|
63
|
0 |
1 |
unless ref $callback eq 'CODE' |
|
73
|
0 |
0 |
unless exists $$self{'__CALLBACK'} |
|
83
|
0 |
4 |
unless ref $parser eq 'CODE' |
|
93
|
0 |
1 |
unless exists $$self{'__PARSER'} |
|
112
|
0 |
0 |
if (@_) |
|
122
|
0 |
0 |
unless (exists $$self{'__PEEP'}) |
|
123
|
0 |
0 |
if ($conf->getOptions) { } |
|
170
|
3 |
41 |
if (exists $options{$option}) |
|
181
|
0 |
4 |
if $output |
|
182
|
0 |
4 |
if $debug |
|
186
|
3 |
1 |
if (-f ${$allOptions{'config=s'};}) { } |
|
190
|
1 |
0 |
if (-f "$dir/peep.conf") |
|
197
|
4 |
0 |
if ($found) { } |
|
205
|
0 |
4 |
if ${$allOptions{'logfile=s'};} ne '' |
|
209
|
0 |
4 |
if ${$allOptions{'pidfile=s'};} ne '' |
|
211
|
3 |
1 |
if ${$allOptions{'server=s'};} ne '' |
|
212
|
3 |
1 |
if ${$allOptions{'port=s'};} ne '' |
|
216
|
0 |
4 |
$help ? : |
|
230
|
0 |
0 |
if ($fork) |
|
234
|
0 |
0 |
if (fork) |
|
246
|
0 |
0 |
if ($conf->optionExists('pidfile')) { } |
|
248
|
0 |
0 |
if (open PIDFILE, ">$pidfile") { } |
|
266
|
0 |
0 |
if ($sleep) { } |
|
287
|
4 |
0 |
$self->conf->versionExists ? : |
|
292
|
0 |
4 |
unless (@version and $version[0] >= 0 and $version[1] >= 4 and $version[2] > 3) |
|
317
|
4 |
16 |
unless exists $$self{'__CONF'} |
|
327
|
0 |
0 |
if $message |
|
329
|
0 |
0 |
unless open POD, $0 |
|
341
|
4 |
11 |
unless (exists $$self{'__LOGGER'}) |
|
355
|
0 |
0 |
$n ? : |
|
360
|
0 |
0 |
defined $conf && $conf->optionExists('pidfile') && -f $conf->getOption('pidfile') ? : |
|
362
|
0 |
0 |
if ($pidfile) |
|
378
|
1 |
63 |
if ($line =~ /^\s*$section/) { } |
|
|
2 |
61 |
elsif ($line =~ /^\s*end events/) { } |
|
|
12 |
49 |
elsif ($read) { } |
|
383
|
2 |
10 |
if $line =~ /^\s*#/ or $line =~ /^\s*$/ |
|
389
|
2 |
0 |
wantarray ? : |
|
402
|
0 |
0 |
if ($line =~ /^\s*([\w\-]+)\s+(\S+)\s*$/) |
|
404
|
0 |
0 |
if ($conf->optionExists($option)) { } |
|
408
|
0 |
0 |
unless $conf->optionExists($option) |
|
420
|
0 |
0 |
unless (exists $$self{'GROUPS'}) |
|
421
|
0 |
0 |
$conf->optionExists('groups') ? : |
|
425
|
0 |
0 |
wantarray ? : |
|
433
|
0 |
0 |
unless (exists $$self{'EXCLUDED'}) |
|
434
|
0 |
0 |
$conf->optionExists('excluded') ? : |
|
438
|
0 |
0 |
wantarray ? : |
|
454
|
0 |
0 |
unless ($nogrp) |
|
466
|
0 |
0 |
if (grep /^all$/, @groups) { } |
|
470
|
0 |
0 |
if $group eq $group_option |
|
475
|
0 |
0 |
if $group eq $exclude_option |
|
478
|
0 |
0 |
if $return == 0 |
|
483
|
0 |
0 |
$conf->versionExists ? : |
|
485
|
0 |
0 |
if (@version and $version[0] >= 0 and $version[1] >= 4 and $version[2] > 3) |
|
486
|
0 |
0 |
if ($object->pool->isInHostPool($Net::Peep::Notifier::HOSTNAME)) { } |