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