The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Email::MIME::Kit::Validator::Simplest;
use Moose;
with 'Email::MIME::Kit::Role::Validator';

use File::Spec;

has required_fields => (
  reader => 'required_fields',
  writer => '_set_required_fields',
  isa    => 'ArrayRef',
);

sub validate {
  my ($self, $stash) = @_;
  
  for my $name (@{ $self->required_fields }) {
    confess "required field <$name> not provided" if ! exists $stash->{$name};
  }
}

1;