File Coverage

blib/lib/oEdtk/FPField.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	6	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	35	34.2

package oEdtk::FPField;

use strict;
use warnings;

use base 'oEdtk::Field';
our $VERSION		= 0.01;

sub new {
	my ($class, $name, $ilen, $flen) = @_;

	$flen = 0 if (!(defined $flen));
	my $self = $class->SUPER::new($name, $ilen + $flen);
	$self->{'intlen'} = $ilen;
	$self->{'fraclen'} = $flen;
	return $self;
}

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

	$data =~ s/\s+//g;
	my $flen = $self->{'fraclen'};
	return $data if $data eq '';

	if ($data !~ /\./) {
		$data /= 10 ** $flen;
	}
	return sprintf("%.${flen}f", $data);
}

1;