package Irgendwas::Level::20;
use warnings;
use strict;
use Carp;

use base qw(Irgendwas::Level);

sub new {
  my ($class, @properties) = @_;

  unless (0 == scalar(@properties) % 2) { # oder so aehnlich
    croak "Usage: Class->new(key1 => value1, key2 => value2)\n"
  } # unless

  my $self = {};
  bless ($self, $class);

  if ($self->SUPER::can('new')) {
    $self->SUPER::new(@properties);
  } # if

  $self->_initialize(@properties);

  return $self;
} # new