File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition	5	5	100.0
subroutine	8	8	100.0
pod	4	5	80.0
total	43	45	95.5

package Protocol::XMLRPC::Value::Integer;

use strict;
use warnings;

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

sub new {
    my $self = shift->SUPER::new(@_);

    $self->{alias} ||= 'i4';

    return $self;
}

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

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

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

sub alias { defined $_[1] ? $_[0]->{alias} = $_[1] : $_[0]->{alias} }

sub type {'int'}

sub to_string {
    my $self = shift;

    my $value = $self->value;

    $value = int($value);

    my $alias = $self->alias;
    return "<$alias>$value";
}

1;
__END__