sub new {
    my $class = shift;
    my %attributes = @_;

    $class = ref($class) || $class; # Cargo-cult!

    my $self = $class::SUPER->new(@_);

# Finish up here.

    return $self;
}