File Coverage

blib/lib/Farly/Transport/Object.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	5	14	35.7
condition	10	15	66.6
subroutine	7	11	63.6
pod	7	8	87.5
total	50	79	63.2

package Farly::Transport::Object;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.26';

sub size {
    return $_[0]->last - $_[0]->first;
}

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

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

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

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

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

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

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

    if ( $other->isa('Farly::Transport::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::Transport::Object') ) {

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

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

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

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

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

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

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

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

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

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

1;
__END__