File Coverage

blib/lib/Net/UCP/IntTimeout.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	6	10	60.0
pod	0	3	0.0
total	24	52	46.1

package Net::UCP::IntTimeout;

use 5.008007;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw();

our $VERSION = '0.05';

use constant MIN_TIMEOUT     => 0;           # No timeout at all!
use constant DEFAULT_TIMEOUT => 15;
use constant MAX_TIMEOUT     => 60;

sub new { bless({}, shift())->_init(@_); }

sub _init {
    my $self = shift;
    my %opt = @_;

    $self->set($opt{timeout}) if (exists $opt{timeout});
    return $self;
}

sub set {
    my $self = shift;
    my $timeout = shift || DEFAULT_TIMEOUT;

    if ($timeout > MAX_TIMEOUT) {
        $timeout = MAX_TIMEOUT;
    }
    elsif ($timeout < MIN_TIMEOUT) {
        $timeout = MIN_TIMEOUT;
    }

    return $self->{timeout} = $timeout;
}

sub get {
    my $self = shift;
    return $self->{timeout};
}

1;
__END__