| lib/Net/ISC/DHCPd/Leases.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 91 | 0 | 1 | if ($self->fh) |
| 124 | 0 | 1 | unless read $fh, my $buffer, -s $fh |
| 128 | 1 | 10 | unless @$leases |
| 144 | 0 | 1 | unless my $query = shift() |
| 150 | 9 | 1 | unless $lease->$key eq $$query{$key} |
| 168 | 0 | 10 | if (ref $_[0] eq 'Net::ISC::DHCPd::Leases::Lease') |
| 181 | 30 | 10 | if (defined $lease{$key}) |