File Coverage

blib/lib/FormValidator/LazyWay/Result.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	29	30	96.6

package FormValidator::LazyWay::Result;

use strict;
use warnings;
use Carp;

use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(
    qw/
        unknown
        missing
        valid
        invalid
        error_message
        has_missing
        has_custom_invalid
        has_invalid
        has_error
        success
        fixed
        /
);

sub custom_invalid {
    my $self    = shift;
    my $key     = shift;
    my $message = shift;
    if ($key) {
        $self->has_error(1);
        $self->has_custom_invalid(1);
        $self->success(0);
        $self->{custom_invalid}->{$key} = $message;
        $self->{error_message}->{$key}    = $message;
    }

    return $self->{custom_invalid};
}

1;