File Coverage

blib/lib/Farly/Transport/PortRange.pm

Criterion	Covered	Total	%
statement	35	42	83.3
branch	4	6	66.6
condition			n/a
subroutine	12	13	92.3
pod	5	7	71.4
total	56	68	82.3

package Farly::Transport::PortRange;

use 5.008008;
use strict;
use warnings;
use Carp;
use Farly::Transport::Port;
use Farly::Transport::Object;

our $VERSION = '0.26';
our @ISA     = qw(Farly::Transport::Object);

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

    my $self = {
        LOW  => undef,
        HIGH => undef,
    };
    bless( $self, $class );

    if ( defined $last ) {
        $self->{LOW}  = Farly::Transport::Port->new($first);
        $self->{HIGH} = Farly::Transport::Port->new($last);
    }
    elsif ( defined $first ) {
        my ( $low, $high ) = split( /-|\s+/, $first );
        $self->{LOW}  = Farly::Transport::Port->new($low);
        $self->{HIGH} = Farly::Transport::Port->new($high);
    }

    confess "invalid port range"
      if ( $self->first() > $self->last() );

    return $self;
}

sub low {
    return $_[0]->{LOW};
}

sub high {
    return $_[0]->{HIGH};
}

sub first {
    return $_[0]->{LOW}->port();
}

sub last {
    return $_[0]->{HIGH}->port();
}

sub as_string {
    my ($self) = @_;
    return join( " ", $self->low()->as_string(), $self->high()->as_string() );
}

sub iter {
    my ($self) = @_;

    my @list;
    my $i = $self->first();

    do {

        push @list, Farly::Transport::Port->new($i);
        $i++;

    } while ( $i < $self->last() );

    return @list;
}

1;
__END__