File Coverage

blib/lib/oEdtk/Field.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch			n/a
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	8	30	26.6

package oEdtk::Field;

use strict;
use warnings;
our $VERSION		= 0.01;

sub new {
	my ($class, $name, $len) = @_;
	my $field = {
		name	=> $name,
		len	=> $len,
	};

	bless $field, $class;
	return $field;
}

sub process {
	my ($self, $data) = @_;

	return $data;
}

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

	return $self->{'name'};
}

sub set_name {
	my ($self, $name) = @_;

	$self->{'name'} = $name;
}

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

	return $self->{'len'};
}

1;