Branch Coverage

blib/lib/Net/Frame/Layer/Syslog.pm
Criterion Covered Total %
branch 25 46 54.3


line true false branch
148 0 0 if (defined $self->msg) { }
169 1 2 if (defined $self->msg) { }
170 0 1 unless $raw = $self->SUPER::pack('a*', $self->msg)
176 0 2 unless $raw = $self->SUPER::pack('a*', '<' . $priority . '>' . $self->timestamp . ' ' . $self->host . ' ' . $self->tag . ' ' . $self->content)
196 0 1 unless my($payload) = $self->SUPER::unpack('a*', $self->raw)
203 1 0 if ($payload =~ /$Cregex/) { }
224 2 1 if ($chars{$ch} > 0)
228 1 0 if ($chars{$win} > 0) { }
253 0 1 if $self->nextLayer
256 0 1 if ($self->payload)
268 2 1 if (defined $self->msg) { }
269 1 1 if (defined $self->facility and defined $self->severity)
304 1 2 if (defined $flag) { }
314 0 4 $time[3] < 10 ? :
4 0 $time[2] < 10 ? :
0 4 $time[1] < 10 ? :
0 4 $time[0] < 10 ? :
327 4 0 if ($Socket::VERSION >= 1.94) { }
333 4 0 if (defined $getaddr[0])
335 4 0 if (defined $address)
342 0 0 if (defined $gethost[4])
351 4 0 if ($name =~ m[.+/(.+)]) { }
0 0 elsif ($name =~ /.+\\(.+)/) { }