Revision cd274d3f
Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'") if !$from_to;
|
||
|
|
||
|
my $is_abbr_any = sub {
|
||
|
# foreach my $abbr (@_) {
|
||
|
# croak "no such abbreviation: '$abbr'" if !grep { $_->{abbr} eq $abbr } @from_tos;
|
||
|
# }
|
||
|
any { $from_to->{abbr} eq $_ } @_;
|
||
|
};
|
||
|
|
||
Auch abrufbar als: Unified diff
SL::DB::Order: überflüssigen Code entfernt