Branch Coverage

blib/lib/Luka.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
96 0 0 if (not grep({/^$mode$/;} @modes))
104 0 0 if (exists $error_str{$type}) { }
119 0 0 if ($self->can($method)) { }
148 0 0 if (defined $$arg_ref{'error'}) { }
155 0 0 $E->can('severity') ? :
156 0 0 defined $E->args ? :
0 0 $E->can('args') ? :
158 0 0 $E->can('context') ? :
161 0 0 $E->conf ? :
163 0 0 if (ref $E eq 'Error::Simple' or ref $E eq 'Luka::Error') { }
179 0 0 unless openlog($filename{$ident}, 'pid,noname', 'daemon')
181 0 0 unless syslog('info', 'Luka initiating...')
211 0 0 if $addrs[$_] =~ /$expected_ip/
226 0 0 if ($@) { }
246 0 0 if $addrs[$_] =~ /$expected_ip/
266 0 0 if (defined $$arg_ref{'error'}) { }
268 0 0 $self->get_hostname_long eq 'localhost' ? :
270 0 0 $self->get_syslogd ? :
284 0 0 $self->get_hostname_long eq 'localhost' ? :
0 0 $self->get_syslogd ? :
307 0 0 if ($debug{$ident} eq 1 and defined $$arg_ref{'error'} and defined $syslogd{$ident})
340 0 0 if $self->get_syslogd
343 0 0 if ($mode eq 'error') { }
345 0 0 if $self->get_syslogd
350 0 0 if ($message) { }
358 0 0 unless ($self->get_nomail)
375 0 0 if (not $mess->send("Report emailed to recepients.\n")) { }
377 0 0 if ($self->get_syslogd)
389 0 0 if $self->get_syslogd
397 0 0 if $self->get_syslogd