File Coverage

blib/lib/Net/Protocol/Simple.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	10	0.0
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	12	55	21.8

package Net::Protocol::Simple;

use 5.008006;
use strict;
use warnings;

our $VERSION = '1.00';

my $PROTOCOLS = {
	ICMP => 1,
	TCP => 6,
	UDP => 17,
};

# CONSTRUCTOR

sub new {
	my ($class, %data) = @_;
	my $self = {};
	bless($self,$class);
	$self->init(%data);
	return $self;
}

sub init {
	my ($self,%data) = @_;
	$self->protocol($data{protocol});
	$self->layer(	$data{layer});
}

# METHODS

sub int {
	my $self = shift;
	return $PROTOCOLS->{$self->protocol()} if(exists($PROTOCOLS->{$self->protocol()}));
}
# ACCESSORS/MODIFIERS

sub protocol {
	my ($self,$v) = @_;
	$self->{_protocol} = normalize($v) if(defined($v));
	return $self->{_protocol};
}

sub layer {
	my ($self,$v) = @_;
	$self->{_layer} = $v if(defined($v));
	return $self->{_layer};
}

# FUNCTIONS

sub normalize {
	my $proto = uc(shift);
	if($proto =~ /^\d+$/){
		foreach my $x (keys %$PROTOCOLS){
			return $x if($proto eq $PROTOCOLS->{$x});
		}
	}
	return $proto;
}
1;
__END__