File Coverage

blib/lib/Form/Tiny/Hook.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	29	29	100.0

package Form::Tiny::Hook;
$Form::Tiny::Hook::VERSION = '2.21';
use v5.10;
use strict;
use warnings;
use Moo;
use Types::Standard qw(Enum CodeRef Bool);

use constant {
	HOOK_REFORMAT => 'reformat',
	HOOK_BEFORE_MANGLE => 'before_mangle',
	HOOK_BEFORE_VALIDATE => 'before_validate',
	HOOK_AFTER_VALIDATE => 'after_validate',
	HOOK_CLEANUP => 'cleanup',
	HOOK_AFTER_ERROR => 'after_error',
};

my @hooks = (
	HOOK_REFORMAT,
	HOOK_BEFORE_MANGLE,
	HOOK_BEFORE_VALIDATE,
	HOOK_AFTER_VALIDATE,
	HOOK_CLEANUP,
	HOOK_AFTER_ERROR,
);

has 'hook' => (
	is => 'ro',
	isa => Enum [@hooks],
	required => 1,
);

has 'code' => (
	is => 'ro',
	isa => CodeRef,
	required => 1,
);

has 'inherited' => (
	is => 'ro',
	isa => Bool,
	default => sub { 1 },
);

sub is_modifying
{
	my ($self) = @_;

	# whether a hook type will modify the input data
	# with return statements
	my %modifying = map { $_ => 1 } (
		HOOK_BEFORE_MANGLE,
		HOOK_REFORMAT
	);
	return exists $modifying{$self->hook};

}

1;

__END__