File Coverage

blib/lib/Farly/Transport/Port.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	5	6	83.3
condition	2	3	66.6
subroutine	10	11	90.9
pod	6	6	100.0
total	52	57	91.2

package Farly::Transport::Port;

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

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

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

    confess "port required" unless ( defined($port) );

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

    confess "invalid port $port"
      unless ( $port =~ /^\d+$/ );

    confess "invalid port $port"
      unless ( $port > 0 && $port <= 65535 );

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

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

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

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

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

sub iter {
    my @list = ( $_[0] );
    return @list;
}

1;
__END__