package Album1;
use strict;

# Konstruktor:
sub anlegen {
  my (
    $Klasse,
    $Titel,
    $Interpret
  ) = @_;

  my %public = (
    'Titel'     => $Titel,
    'Interpret' => $Interpret,
    'Ausleiher' => "niemand"
  );

  return bless (\%public, $Klasse)
}

# Destruktor:
sub DESTROY {
  my $Objekt = shift;
  print $Objekt->{'Titel'} .
        " ist durchgenudelt.\n";
}

# Methode 1, Setter:
sub ausleihen {
  my ($Objekt, $wer) = @_;
  $Objekt->{'Ausleiher'} = $wer;
}

# Methode 2, Getter:
sub ausgeliehen {
  my ($Objekt) = shift;
  return $Objekt->{'Ausleiher'};
}

1; # Return true.