sub new {
  my $proto     = shift;
  my $class     = ref($proto) || $proto;
  my %args      = @_;
  bless($self, $class);
  $self->init();

    foreach my $arg (keys(%args)) {
      $self->$arg($args{$arg});
    }
  }