Oder denke ich hier zu kompliziert?
Nene, Du denkst schon richtig und die Sache könnte dann so aussehen
package ZD1;
sub new{
my $class = shift;
my %cfg = (
value => 0,
orderid => 123,
termid => 456,
@_);
}
package ZD2;
sub new{
my $class = shift;
my %cfg = (
amount => 0,
orderid => 123,
termid => 456,
@_);
}
Also bei dem einen heißt das eben amount und bei dem Anderen value. Und dann gibt es Eigenschaften die bei beiden gleich sind.... ich würde nur eine Klasse Zahldienstleister anlegen und in einer der Eigenschaften festhalten wie der heißt.
MfG