gistfile1.pl

use Data::Verifier;
use DateTimeX::Easy;
use MooseX::Types::DateTime qw(TimeZone DateTime);
use MooseX::Types::Moose qw/Str/;
use MooseX::Types;

use feature ':5.10';

my $verifier = Data::Verifier->new(
    filters => [ qw(trim) ],
    profile => {
        birthdate => {
            required => 1, 
            coercion => coerce(from => Str, via => sub { DateTimeX::Easy->parse_date($_) }), 
            type     => 'DateTime'
        },
    }
);

my $results = $verifier->verify({ birthdate => '1980-01-01' });

my $birthdate = $results->get_value('birthdate');

say $results->success ? "Yup" : "Nope";

say $birthdate;
say $birthdate->isa('DateTime') ? 'isa DateTime' : 'oh noes';