# untested
sub new {
    my $class= shift;
    my %args = @_;
    my $self = {map { ("_$_" => $args{$_}) }
      qw(roundnum room judge type code contestants)};
    bless $self, $class;
}