...
sub new
{
    my $class = shift;
    my %p = validate( @_, $NewValidate );
...