• Files
• Commits
• Log
• Graph
• Stats

package Reporter::Validation;

use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
use Moose::Util::TypeConstraints;

has_field lab_number => (
    type     => 'Text',
    apply    => [ 'LabNumFormat' ],
);

has_field diagnosis_id => (
    type     => 'Integer',
);

subtype 'LabNumFormat'
   => as 'Str'
   => where { $_ =~ m!\d+/\d{2}! }
   => message { 'lab number format incorrect: require nnn/yy' };

no HTML::FormHandler::Moose;

1;