sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
	load(@_, $self) if @_;
	return $self;
}

sub load {
	my $self = shift;

	if (@_) {
		print "@_\n"; #Community::Storage=HASH(0x81717c8)
		for (keys %{@_}) {
                        # wird leider nicht durchlaufen 
			$self->{$_} = $_[0]->{$_};
		}
	}
}