File Coverage

blib/lib/Input/Validator/Constraint.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	9	9	100.0
pod	3	5	60.0
total	38	41	92.6

package Input::Validator::Constraint;

use strict;
use warnings;

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

use String::CamelCase ();

sub BUILD {
    my $self = shift;

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

    return $self;
}

sub is_valid    {0}
sub is_multiple {0}

sub args { shift->{args} }

sub error {
    my $self = shift;

    my $name = ref($self) ? ref($self) : $self;
    my $namespace = __PACKAGE__;
    $name =~ s/^$namespace\:://;

    return uc(String::CamelCase::decamelize($name)) . '_CONSTRAINT_FAILED';
}

1;
__END__