File Coverage

blib/lib/HTML/CheckArgs/option.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition	6	6	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	42	43	97.6

package HTML::CheckArgs::option;

use strict;
use warnings;

use base 'HTML::CheckArgs::Object';

sub is_valid {
	my $self = shift;

	my $value = $self->value;
	my $config = $self->config;

	$self->check_params( required => [ qw( options ) ], optional => [], cleanable => 0 );

	# no value passed in
	if ( $config->{required} && !$value ) {
		$self->error_code( 'option_00' ); # required
		$self->error_message( 'Not given.' );
		return;
	} elsif ( !$config->{required} && !$value ) {
		return 1;
	}

	# check if valid option
	my @options = @{ $config->{params}{options} };
	unless ( grep { $value eq $_ } @options ) {
		$self->error_code( 'option_01' ); # not valid value
		$self->error_message( 'Not a valid value.' );
		return;
	}

	return 1;
}

1;