package BasisKlasse;

use strict;
use warnings;

sub new{
  my ($class,%args) = @_;
  my $self = {};
  bless $self,$class;

  $self->{Name} = $args{name} || "testname";
  $self->{Birthday} = $args{birth} || "00.00.0000";

  return $self;
}

sub name{
  my ($self,$name) = @_;
  $self->{Name} = $name if(defined $name);
  return $self->{Name};
}

sub birth{
  my ($self,$birth) = @_;
  $self->{Birthday} = $birth if(defined $birth);
  return $self->{Birthday};
}

1;