File Coverage

blib/lib/Data/Validator/Role/NoThrow.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Data::Validator::Role::NoThrow;
use Mouse::Role;

has errors => (
    is        => 'rw',
    isa       => 'ArrayRef',

    required  => 0,

    predicate => 'has_errors',
    clearer   => 'clear_errors',
);

around unknown_parameters => sub {
    my($next, $self, $rules, $args) = @_;
    my %unknowns = $self->$next($rules, $args);
    while(my($k, $v) = each %unknowns) {
        $args->{$k} = $v;
    }
    return %unknowns;
};

around found_errors => sub {
    my($next, $self, $args, @errors) = @_;
    $self->errors(\@errors);
    return $args;
};

no Mouse::Role;
1;
__END__