sub new {
    my ($class, %options) = @_;

    # validate options
    return bless \%options, $class;
}

##</code><code>##

my $obj = Bob::MyObject->new (option => 1, );

##</code><code>##

my $newObj = $obj->new (option => 1, );