| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless defined $opts{'leases_path'} |
|
34
|
0 |
0 |
defined $opts{'interface'} ? : |
|
51
|
0 |
0 |
unless $af eq 'inet' or $af eq 'inet6' |
|
53
|
0 |
0 |
if (defined $inteface_to_query and defined $self->{'INTERFACE'} and $self->{'INTERFACE'} ne $inteface_to_query) |
|
58
|
0 |
0 |
if (defined $self->{'INTERFACE'}) |
|
59
|
0 |
0 |
if ($af eq 'inet') |
|
63
|
0 |
0 |
if ($af eq 'inet6') |
|
71
|
0 |
0 |
unless defined $inteface_to_query |
|
75
|
0 |
0 |
if $af eq 'inet' |
|
76
|
0 |
0 |
if $af eq 'inet6' |
|
78
|
0 |
0 |
if $lease->{'INTERFACE'} eq $inteface_to_query |
|
88
|
0 |
0 |
if $self->{'leases_af_inet'} |
|
101
|
0 |
0 |
if $self->{'leases_af_inet6'} |
|
122
|
0 |
0 |
if ($af eq 'inet') { } |
|
|
0 |
0 |
elsif ($af eq 'inet6') { } |
|
123
|
0 |
0 |
if ($interface) { } |
|
133
|
0 |
0 |
if ($interface) { } |
|
145
|
0 |
0 |
if (ref $path eq 'ARRAY') { } |
|
151
|
0 |
0 |
unless -d $lease_path and -X $lease_path |
|
152
|
0 |
0 |
unless opendir my $dh, $lease_path |
|
155
|
0 |
0 |
if /$leasefile_re1/u |
|
156
|
0 |
0 |
if /$leasefile_re2/u |
|
|
0 |
0 |
unless @isc_lease_files |
|
157
|
0 |
0 |
if /$leasefile_re3/u |
|
|
0 |
0 |
if $leasefile_re3 |
|
160
|
0 |
0 |
if (@isc_lease_files) |
|
163
|
0 |
0 |
if (@netplan_lease_files) |
|
166
|
0 |
0 |
if @isc_lease_files or @netplan_lease_files |
|
170
|
0 |
0 |
unless open LEASEFILE, $leaseFile |
|
178
|
0 |
0 |
if (/^lease? \{/u) |
|
183
|
0 |
0 |
if (/^lease6 \{/u) |
|
188
|
0 |
0 |
if (/^\}/u) |
|
191
|
0 |
0 |
if $hasIscLeaseData |
|
196
|
0 |
0 |
unless ($hasIscLeaseData) |
|
201
|
0 |
0 |
if $af eq 'inet' |
|
202
|
0 |
0 |
if $af eq 'inet6' |
|
208
|
0 |
0 |
unless open LEASEFILE, $leaseFile |
|
215
|
0 |
0 |
unless /^([^=]+)=(.*)$/u |
|
218
|
0 |
0 |
unless ($currentLease) |
|
222
|
0 |
0 |
if $af eq 'inet' |
|
223
|
0 |
0 |
if ($freshLease) |
|
226
|
0 |
0 |
if ($leaseFile =~ /-([^-.]+)\.lease$/u) |
|
234
|
0 |
0 |
if $currentLease |
|
246
|
0 |
0 |
if (/^interface\s+"(.+)";/u) |
|
251
|
0 |
0 |
if (/^fixed-address\s+(.+);/u) |
|
256
|
0 |
0 |
if (/^option\s+(\S+)\s*(.+);/u) |
|
261
|
0 |
0 |
if (m[^renew\s+(\d+)\s+(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);]u) |
|
267
|
0 |
0 |
if (m[^rebind\s+(\d+)\s+(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);]u) |
|
273
|
0 |
0 |
if (m[^expire\s+(\d+)\s+(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);]u) |
|
287
|
0 |
0 |
if defined $ia_type->[0] |
|
288
|
0 |
0 |
if defined $ia_type->[1] |
|
292
|
0 |
0 |
if (/^interface\s+"(.+)";/u) |
|
296
|
0 |
0 |
if (/^ia-na\s+(\S+)\s*\{/u) |
|
302
|
0 |
0 |
if (/^ia-pd\s+(\S+)\s*\{/u) |
|
308
|
0 |
0 |
if (/^\}/u) |
|
314
|
0 |
0 |
if (/^(starts)\s+(\d+);/u) |
|
315
|
0 |
0 |
if (defined $ia_type->[1]) { } |
|
323
|
0 |
0 |
if (/^(renew)\s+(\d+);/u) |
|
328
|
0 |
0 |
if (/^(rebind)\s+(\d+);/u) |
|
333
|
0 |
0 |
if (/^(preferred-life)\s+(\d+);/u) |
|
338
|
0 |
0 |
if (/^(max-life)\s+(\d+);/u) |
|
342
|
0 |
0 |
if (/^(iaaddr)\s+(\S+)\s*\{/u) |
|
348
|
0 |
0 |
if (/^(iaprefix)\s+(\S+)\s*\{/u) |
|
354
|
0 |
0 |
if (/^option\s+dhcp6\.(\S+)\s+(.+)$/u) |
|
357
|
0 |
0 |
unless $context |
|
369
|
0 |
0 |
if ($variable eq 'ADDRESS') |
|
374
|
0 |
0 |
if ($variable eq 'NETMASK') |
|
379
|
0 |
0 |
if ($variable eq 'ROUTER') |
|
384
|
0 |
0 |
if ($variable eq 'SERVER_ADDRESS') |
|
389
|
0 |
0 |
if ($variable eq 'DNS') |
|
395
|
0 |
0 |
if ($variable eq 'NTP') |
|
401
|
0 |
0 |
if ($variable eq 'SERVER_ADDRESS') |
|
406
|
0 |
0 |
if ($variable eq 'T1') |
|
414
|
0 |
0 |
if ($variable eq 'T2') |
|
422
|
0 |
0 |
if ($variable eq 'LIFETIME') |