File Coverage

blib/lib/Test/C2FIT/ScientificDoubleTypeAdapter.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	2	3	66.6
total	10	21	47.6

#
# Martin Busik

package Test::C2FIT::ScientificDoubleTypeAdapter;
use base 'Test::C2FIT::TypeAdapter';
use Test::C2FIT::ScientificDouble;

sub parse {
    my $self  = shift;
    my $value = shift;
    return Test::C2FIT::ScientificDouble->new($value);
}

sub toString {
    my ( $self, $value ) = @_;
    return $value->toString;
}

sub equals {
    my ( $self, $a, $b ) = @_;
    return $a->equals($b);
}

1;

__END__