package crs;

my @wochentage = qw/Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag/;

*new = *neu; # *unauffälligpfeif*
sub neu {
  my $klasse = shift;
  return bless(&jetzt,ref($klasse) || $klasse || _ _PACKAGE_ _);
}

sub AUTOLOAD {
  my $ich = ref($_[0]) ? shift : &jetzt;
  $AUTOLOAD =~ s/^.+\:\://;
  defined($ich->{$AUTOLOAD}) || die "Eigenschaft '$AUTOLOAD' nicht definiert!";
  return $ich->{$AUTOLOAD};
}

sub jetzt {
  my @z = localtime(time);
  my $ich = {
   sekunden      => $z[0],
   minuten       => $z[1],
   stunden       => $z[2],
   tag           => $z[3],
   monat         => $z[4]+1,
   jahr          => $z[5]+1900,
   wochentag     => $wochentage[$z[6]]
  };
  $ich->{uhrzeit} = $ich->{stunden}.':'.$ich->{minuten}.':'.$ich->{sekunden};
  $ich->{datum} = $ich->{tag}.'.'.$ich->{monat}.'.'.$ich->{jahr};
  return $ich;
}

1;