{
    my @PARAMS = qw( foo bar baz );
    sub new 
    {
        my $class = shift;
        my $in    = shift;
        my $self = { map { $_ => $in->{$_} || '' } @PARAMS };
        bless $self, $class;
    }
}