File Coverage

blib/lib/Farly/IPv4/Object.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	9	14	64.2
condition	12	15	80.0
subroutine	12	12	100.0
pod	7	8	87.5
total	75	84	89.2

package Farly::IPv4::Object;

use 5.008008;
use strict;
use warnings;
use Carp;

our $VERSION = '0.26';

sub size {
    my ($self) = @_;
    return $self->last - $self->first + 1;
}

sub equals {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return $self->first == $other->first
          && $self->last == $other->last
          && $self->size == $other->size;
    }
}

sub contains {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return $self->first <= $other->first
          && $self->last >= $other->last;
    }
}

sub intersects {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return ( $self->first <= $other->first && $other->first <= $self->last )
          || ( $self->first <= $other->last && $other->last <= $self->last )
          || ( $other->first <= $self->first && $self->first <= $other->last );
    }
}

sub gt {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return $self->first > $other->last;
    }
}

sub lt {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return $self->last < $other->first;
    }
}

sub adjacent {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return ( ( $self->last + 1 ) == $other->first )
          || ( ( $other->last + 1 ) == $self->first );
    }
}

sub compare {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::IPv4::Object') ) {

        return ( $self->first() <=> $other->first()
              || $other->last() <=> $self->last() );
    }
}

1;
__END__