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