sub new {
    my $class = shift;
    my $self  = ref $_[0] ? $_[0] : { @_ };
    return bless $self, $class;
}