my @imports = qw [ foo bar ];

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

     my %self;
     @self{@imports} = @params{@imports};

     return bless(\%self, $class);
}