use Scalar::Util qw(reftype);

sub new
{
    my($class, $args) = @_;
    return unless $args;
    return unless reftype($args) eq 'HASH';
    # ...