File Coverage

blib/lib/Input/Validator/Constraint/Callback.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	7	8	87.5
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	35	37	94.5

package Input::Validator::Constraint::Callback;

use strict;
use warnings;

use base 'Input::Validator::Constraint';

sub is_valid {
    my ($self, $value) = @_;

    my $cb = $self->args;

    my ($ok, $custom_error) = $cb->($value);
    return $ok if $ok;

    if (defined $custom_error) {
        $self->error($custom_error);
    }

    return 0;
}

sub error {
    my $self = shift;

    unless (@_) {
        return $self->{error} if defined $self->{error};
        return $self->SUPER::error;
    }

    $self->{error} = $_[0];

    return $self;
}

1;
__END__