view release on metacpan or  search on metacpan

lib/DNS/ZoneSerialNumber.pm  view on Meta::CPAN

    }

    if (   ( $i1 < $i2 && $i2 - $i1 > SERIAL_HALF )
        || ( $i1 > $i2 && $i1 - $i2 < SERIAL_HALF ) )
    {
        return 1;
    }
    # As per RFC 1982 there are value pairs that can not be logically compared.
    # They are neither less than, greater than, nor equal to, each other. If we
    # encounter one of these pairs, simply return undef. <=> returns undef when
    # comparing against NaN, so returning undef from a compare function is not
    # completely unheard of.
    return undef;
}

sub _copy {
    my ( $self ) = @_;
    return DNS::ZoneSerialNumber->new( $self->serial );
}

=head2 valid