1package BookDB::Form::Field::AltText; 2 3use Moose; 4extends 'HTML::FormHandler::Field::Text'; 5 6 7has 'another_attribute' => ( isa => 'Str', is => 'rw' ); 8 9sub validate 10{ 11 my $field = shift; 12 13 return unless $field->SUPER::validate; 14 15 my $input = $field->input; 16 my $check = $field->another_attribute; 17 # do something silly 18 return $field->add_error('Fails AltText validation') 19 unless $input =~ m/$check/; 20 21 return 1; 22} 23 24no Moose; 251; 26