File Coverage

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

Criterion	Covered	Total	%
statement	44	45	97.7
branch	6	8	75.0
condition	1	2	50.0
subroutine	10	11	90.9
pod	6	6	100.0
total	67	72	93.0

package Protocol::XMLRPC::Value::Array;

use strict;
use warnings;

use Protocol::XMLRPC::ValueFactory;

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

sub new {
    my $class = shift;

    my @values;

    if (@_ == 1) {
        @values = ref($_[0]) eq 'ARRAY' ? @{$_[0]} : ($_[0]);
    }
    else {
        @values = @_;
    }

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

    $self->{data} ||= [];

    foreach my $value (@values) {
        $self->add_data($value);
    }

    return $self;
}

sub type {'array'}

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

sub add_data {
    my $self = shift;
    my ($param) = @_;

    my $value = Protocol::XMLRPC::ValueFactory->build($param);
    return unless defined $value;

    push @{$self->data}, $value;
}

sub value {
    my $self = shift;

    return [map { $_->value } @{$self->data}];
}

sub to_string {
    my $self = shift;

    my $string = '';

    foreach my $data (@{$self->data}) {
        my $value = $data->to_string;

        $string .= "$value";
    }

    $string .= '';

    return $string;
}

1;
__END__