package ClassFactory;

sub new {
  my ($class,%auth_vars) = @_;
  return bless \%auth_vars,$class;
}

sub create {
  my ($self,$class) = @_;
  return $class->new(%$self);
}