sub init
{
    # Nothing to do, this is just here so classes don't have to define init
}

sub new
{
    my $class = shift;
    my $object = bless {}, $class;
    $object->init(@_);
    return $object;
}