sub init {
  my $self = shift;
  my %args = @_;
  while (my ($attribute, $value) = each %args){
    $self->{$attribute} = $value;
  }
}