Revision 3e264463
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
| SL/DB/DeliveryOrder/TypeData.pm | ||
|---|---|---|
|
sub validate_type {
|
||
|
my ($type) = @_;
|
||
|
|
||
|
return $valid_types{$type} // confess "invalid type '$type'";
|
||
|
return $valid_types{$type} // croak "invalid type '$type'";
|
||
|
}
|
||
|
|
||
|
sub get {
|
||
|
my ($type, $key) = @_;
|
||
|
|
||
|
croak "invalid type '$type'" unless exists $type_data{$type};
|
||
|
|
||
|
my $ret = $type_data{$type}->{$key} // die "unknown property '$key'";
|
||
|
|
||
|
ref $ret eq 'CODE'
|
||
| ... | ... | |
|
sub get3 {
|
||
|
my ($type, $topic, $key) = @_;
|
||
|
|
||
|
my $ret = $type_data{$type}{$topic}{$key} // die "unknown property '$key' in topic '$topic' for type '$type'";
|
||
|
croak "invalid type '$type'" unless exists $type_data{$type};
|
||
|
|
||
|
my $ret = $type_data{$type}{$topic}{$key} // croak "unknown property '$key' in topic '$topic' for type '$type'";
|
||
|
|
||
|
ref $ret eq 'CODE'
|
||
|
? $ret->()
|
||
Auch abrufbar als: Unified diff
Lieferschein TypeData: croak wenn typ nicht existiert