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