package Album2;

use Class::ObjectTemplate;
require Exporter;
@ISA = (
  "Class::ObjectTemplate",
  "Exporter"
);

attributes (
  'Titel',
  'Interpret',
  'Ausleiher'
);

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

# Wird bei new() aufgerufen.
sub initialize {
  my $Objekt = shift;
  $Objekt->set_attributes (
    'Ausleiher' => "niemand"
  ) unless defined
    $Objekt->Ausleiher();
}

1; # Return true.