File Coverage

blib/lib/Input/Validator/ConstraintBuilder.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	29	29	100.0

package Input::Validator::ConstraintBuilder;

use strict;
use warnings;

use String::CamelCase ();
use Class::Load ();

sub build {
    my $self = shift;
    my $name = shift;

    my $class =
        $name =~ m/[A-Z]/
      ? $name
      : "Input::Validator::Constraint::"
      . String::CamelCase::camelize($name);

    Class::Load::load_class($class);

    return $class->new(args => @_ > 1 ? [@_] : ($_[0] || []));
}

1;
__END__