Branch Coverage

blib/lib/DNS/ZoneSerialNumber.pm
Criterion Covered Total %
branch 56 72 77.7


line true false branch
72 35 1 if (defined $serial) { }
73 5 30 if (ref $serial eq 'DNS::ZoneSerialNumber')
88 2 89 if (not __check_valid_serial(@_))
95 2 89 if (not defined $serial && $serial =~ /^\d+$/ or $serial > 4294967295 or $serial == 0)
107 2 27 if (not defined $serial && $serial =~ /^\d+$/ or $serial > 2147483647)
119 2 36 if (ref $i2 eq 'DNS::ZoneSerialNumber')
124 0 38 if ($swapped) { }
131 16 22 if ($i1 == $i2)
135 8 14 if ($i1 < $i2 and $i2 - $i1 < 2147483648 or $i1 > $i2 and $i1 - $i2 > 2147483648)
141 8 6 if ($i1 < $i2 and $i2 - $i1 > 2147483648 or $i1 > $i2 and $i1 - $i2 < 2147483648)
174 0 0 unless (ref $self)
177 0 0 if (ref $serial eq 'DNS::ZoneSerialNumber')
209 1 12 if (ref $newval eq 'DNS::ZoneSerialNumber')
233 1 1 unless (defined $revisions)
234 0 2 if (not $revisions =~ /^\d+$/ or $revisions > 99)
278 1 3 if (ref $serial eq 'DNS::ZoneSerialNumber')
284 1 3 if ($self->lte($serial))
285 0 1 if (wantarray)
291 2 1 if (wantarray)
332 0 1 if (ref $serial eq 'DNS::ZoneSerialNumber')
336 1 0 if ($self->incomparable->eq($serial))
371 6 18 unless (defined $amount)
372 0 24 if (ref $amount eq 'DNS::ZoneSerialNumber')
378 2 20 if ($s > 4294967295)
382 0 22 if ($s == 0)
407 1 4 unless (defined $amount)
408 3 2 if (ref $amount eq 'DNS::ZoneSerialNumber')
413 0 5 if ($swapped) { }
421 2 3 if ($s < 1)
425 0 5 if ($s == 0)
530 1 2 if (defined $r and $r == 1)
537 1 0 if (defined $r and $r >= 0)
544 1 0 if (defined $r and $r == -1)
551 2 4 if (defined $r and $r <= 0)
558 14 2 if (defined $r and $r == 0)
565 2 0 if (not defined $r or $r != 0)