File Coverage

blib/lib/Input/Validator/Bulk.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	2	50.0
total	25	27	92.5

package Input::Validator::Bulk;

use strict;
use warnings;

use base 'Input::Validator::Base';

sub BUILD {
    my $self = shift;

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

    return $self;
}

sub each {
    my $self = shift;
    my $cb   = shift;

    foreach my $field (@{$self->{fields}}) {
        $cb->($field);
    }

    return $self;
}

1;
__END__