| blib/lib/Config/Inetd.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 1 | unless my $conf_tied = tie(@{$$self{"CONF"};}, "Tie::File", $conf_file, "mode", 2, "autochomp", &false()) |
| 49 | 0 | 1 | unless $conf_tied->flock(2) |
| 61 | 8 | 41 | !($entry =~ /^\#/) ? : |
| 73 | 2 | 0 | exists $self->{'ENABLED'}{$serv}{$prot} ? : |
| 84 | 1 | 26 | if ($entry =~ /^ \# .*? $serv .+? $prot \b/x) |
| 101 | 1 | 26 | if ($entry =~ /^ (?!\#) .*? $serv .+? $prot \b/x) |
| 148 | 58 | 196 | unless $conf->[$i] =~ /$regexp/ |
| 162 | 40 | 9 | if $serv =~ /^\#/ |