File Coverage

blib/lib/Protocol/XMLRPC/Value/Double.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	2	3	66.6
total	30	31	96.7

package Protocol::XMLRPC::Value::Double;

use strict;
use warnings;

use base 'Protocol::XMLRPC::Value';

sub type {'double'}

sub parse {
    my $class = shift;
    my $string = shift;

    die "Invalid 'Double' value"
      unless defined $string && $string =~ m/^(?:\+|-)?\d+(?:\.\d+)?$/;

    return $class->new($string, @_);
}

sub to_string {
    my $self = shift;

    my $value = $self->value;

    return "$value";
}

1;
__END__