#!/usr/bin/perl
 
use strict;
use warnings;
use Data::FormValidator;
use Data::FormValidator::Constraints::HTTP qw( POST );

BEGIN { 
    my %profile = (
        required           => [ qw( method ) ],
        constraint_methods => {
                    method => POST,
        },
    );
    
    my $results = Data::FormValidator->check( 
        { method => 'POST' }, \%profile );
}