| line |
true |
false |
branch |
|
35
|
1 |
2 |
unless $opts{'MessageHandler'}
|
|
38
|
1 |
1 |
unless ref $opts{'MessageHandler'} eq 'CODE'
|
|
50
|
0 |
1 |
$block ? :
|
|
56
|
0 |
1 |
if $block
|
|
62
|
0 |
0 |
unless my($fh) = @_
|
|
84
|
0 |
0 |
if &List::Util::first(sub {
substr($line, 0, length $_) eq $_;
}
, @PROTOCOL_LINE_PREFIXES)
|
|
110
|
0 |
0 |
if (defined $self->{$target})
|
|
113
|
0 |
0 |
ref $self->{$target} eq 'ARRAY' ? :
|
|
115
|
0 |
0 |
if $target eq 'Subscribe'
|
|
116
|
0 |
0 |
unless scalar @data > 0
|
|
122
|
0 |
0 |
unless keys %data
|
|
135
|
0 |
0 |
if (&List::Util::first(sub {
$_ eq 'fullfeed';
}
, @{$subs;})) { }
|
|
163
|
0 |
0 |
unless (my $success = eval {
do {
no warnings;
$msg = parse_syslog_line($line);
1
}
})
|
|
168
|
0 |
0 |
unless $success and $msg
|
|
174
|
0 |
0 |
unless (eval {
do {
$self->{'MessageHandler'}->($msg);
1
}
})
|