Branch Coverage

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})