File Coverage

blib/lib/Farly/IPv4/ICMPType.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	11	16	68.7
condition	6	9	66.6
subroutine	11	11	100.0
pod	6	7	85.7
total	70	79	88.6

package Farly::IPv4::ICMPType;

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

our $VERSION = '0.26';

sub new {
    my ( $class, $type ) = @_;

    confess "type number required" unless ( defined $type );

    $type =~ s/\s+//g;

    confess "$type is not a number"
      unless ( $type =~ /^\d+$/ || $type =~ /^-1$/ );

    confess "invalid type $type"
      unless ( ( $type >= -1 && $type <= 255 ) );

    return bless( \$type, $class );
}

sub type {
    return ${ $_[0] };
}

sub as_string {
    return ${ $_[0] };
}

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

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

        return $self->type() == $other->type();
    }
}

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

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

        if ( $self->type() == -1 ) {
            return 1;
        }

        return $self->equals($other);
    }
}

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

    if ( $self->contains($other) || $other->contains($self) ) {
        return 1;
    }
}

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

    if ( $other->isa('Farly::IPv4::ICMPType') ) {
        return $self->type() <=> $other->type();
    }
}

1;
__END__