sub new {
    my $classname = shift;
    return undef if ref $classname;

    # Other stuff here.
}