lib/Net/ISC/DHCPd/Leases.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 14 | 71.4 |
line | true | false | branch |
---|---|---|---|
91 | 0 | 1 | if ($self->fh) |
129 | 10 | 94 | if ($line =~ /^\s*}/) |
132 | 10 | 0 | if (@$leases) |
151 | 0 | 1 | unless my $query = shift() |
157 | 9 | 1 | unless $lease->$key eq $$query{$key} |
175 | 0 | 10 | if (blessed($_[0])) |
188 | 30 | 10 | if (defined $lease{$key}) |