Branch Coverage

blib/lib/Shadowd/Connector.pm
Criterion Covered Total %
branch 0 58 0.0


line true false branch
132 0 0 if (defined $ENV{'SHADOWD_CONNECTOR_CONFIG'}) { }
140 0 0 unless ($self->{'_config'})
144 0 0 if (defined $ENV{'SHADOWD_CONNECTOR_CONFIG_SECTION'}) { }
160 0 0 if (not $self->{'_config'}->exists($self->{'_config_section'}, $key)) { }
161 0 0 if ($required) { }
205 0 0 unless open my $handler, $file
212 0 0 if (not defined $entry->{'path'} and defined $entry->{'caller'}) { }
213 0 0 if ($self->{'_caller'} eq $entry->{'caller'})
219 0 0 if (defined $entry->{'caller'})
220 0 0 if ($self->{'_caller'} ne $entry->{'caller'})
225 0 0 if (defined $entry->{'path'})
245 0 0 if ($ssl) { }
246 0 0 unless $connection = 'IO::Socket::SSL'->new('PeerHost', $host, 'PeerPort', $port, 'SSL_verify_mode', 1, 'SSL_ca_file', $ssl)
253 0 0 unless $connection = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port)
294 0 0 if ($output_data->{'status'} eq 1) { }
0 0 elsif ($output_data->{'status'} eq 2) { }
0 0 elsif ($output_data->{'status'} eq 3) { }
0 0 elsif ($output_data->{'status'} eq 4) { }
0 0 elsif ($output_data->{'status'} eq 5) { }
0 0 elsif ($output_data->{'status'} eq 6) { }
342 0 0 unless open my $handler, '>>' . $file
409 0 0 if ($ignored)
421 0 0 if (not $self->get_config('observe') and $status->{'attack'})
422 0 0 if ($status->{'critical'})
426 0 0 unless ($self->defuse_input($status->{'threats'}))
430 0 0 if ($self->get_config('debug'))
436 0 0 if ($@)
437 0 0 if ($self->get_config('debug'))
441 0 0 unless ($self->get_config('observe'))