More Validation::Class woes

validation_class_test.pl

package Foo;
use Validation::Class;

directive 'is_troll' => sub {
    my ($dir, $value, $field, $self) = @_;
    foreach (@{$value}) {
        if ($_->[1] !~ /application\/(x-)?pdf/i) {
            $field->{errors}->add(sprintf('Error for %s', $_->[0]));
        }
    }
    return scalar @{$field->{errors}};
};

field 'foobar' => {
    required => 1,
    default  => [
        ['something.pdf',  'application/pdf'],
        ['something3.pdf', 'application/pdf']
    ],
    is_troll => 1,
};

profile 'bar' => sub {
    return shift->validate(qw/+foobar/);
};

package main;
use v5.12;
use Data::Dumper;
use strict;

my $input = Foo->new(
    params => {
        foobar =>
          [['foo.pdf', 'application/pdf'], ['bar.pdf', 'application/pdf']]
    }
);

my $foobar = $input->foobar();
say Dumper($foobar);

say "yes 1" if ($input->validate('foobar'));
say "yes 2" if ($input->validate_profile('bar'));