{
    my @FIELDS = qw( foo bar baz );
    sub new 
    {
        my $class = shift;
        my $in    = shift || { };  # Passed in a hashref
        my %self  = map { $_ => $in->{$_} || '' } @FIELDS;
        bless \%self, $class;
    }
}