File Coverage

blib/lib/FormValidator/Simple/Data.pm

Criterion	Covered	Total	%
statement	28	33	84.8
branch	7	14	50.0
condition			n/a
subroutine	7	8	87.5
pod	0	3	0.0
total	42	58	72.4

package FormValidator::Simple::Data;
use strict;
use Scalar::Util;
use FormValidator::Simple::Exception;
use FormValidator::Simple::Constants;

sub new {
    my $class = shift;
    my $self  = bless { }, $class;
    $self->_init(@_);
    return $self;
}

sub _init {
    my ($self, $input) = @_;
    $self->{_records} = {};
    my $errmsg = qq/Set input data as a hashref or object that has the method 'param()'./;
    if ( Scalar::Util::blessed($input) ) {
        unless ( $input->can('param') ) {
            FormValidator::Simple::Exception->throw($errmsg);
        }
        foreach my $key ( $input->param ) {
            my @v = $input->param($key);
            $self->{_records}{$key} = scalar(@v) > 1 ? \@v : $v[0];
        }
    }
    elsif ( ref $input eq 'HASH' ) {
        $self->{_records} = $input;
    }
    else {
        FormValidator::Simple::Exception->throw($errmsg);
    }
}

sub has_key {
    my ($self, $key) = @_;
    return exists $self->{_records}{$key} ? TRUE : FALSE;
}

sub param {
    my ($self, $keys) = @_;
    my @values = map {
        exists $self->{_records}{$_}
             ? $self->{_records}{$_}
             : ''
             ;
    } @$keys;
    return wantarray ? @values : \@values;
}

1;
__END__