#!/usr/bin/perl

{ package A;
	use Class::Struct;
	struct 	A => { a => '$',};

	sub geerbte(){
		print "geerbte Methode\n"
	}
}

{ package B;
	our @ISA = qw(A);
	use Class::Struct;
	struct B => { a => 'A', b => '$',};

       sub eigene(){
		print "eigene Methode\n"
	}
}

my $b = B->new();

$b->eigene();
$b->geerbte();