File Coverage

blib/lib/Protocol/XMLRPC/Value.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	4	6	66.6
condition			n/a
subroutine	7	9	77.7
pod	3	3	100.0
total	35	41	85.3

package Protocol::XMLRPC::Value;

use strict;
use warnings;

use overload '""'   => sub { shift->to_string }, fallback => 1;
use overload 'bool' => sub { shift->value }, fallback => 1;

sub new {
    my $class = shift;

    my $value; $value = shift if @_ % 2;

    my $self = {@_};
    bless $self, $class;

    $self->value($value) if defined $value;

    return $self;
}

sub value { @_ > 1 ? $_[0]->{value} = $_[1] : $_[0]->{value} }

sub to_string { '' }

1;
__END__