Revision c8e09e7c
Von Bernd Bleßmann vor mehr als 11 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 42 | 42 |
sub items_sorted {
|
| 43 | 43 |
my ($self) = @_; |
| 44 | 44 |
|
| 45 |
my @sorted = sort {$a->id <=> $b->id } @{ $self->items };
|
|
| 46 |
return wantarray ? @sorted : \@sorted; |
|
| 45 |
return [ sort {$a->id <=> $b->id } @{ $self->items } ];
|
|
| 47 | 46 |
} |
| 48 | 47 |
|
| 49 | 48 |
sub type {
|
Auch abrufbar als: Unified diff
itmes_sorted liefert immer eine Array-Referenz ...
um unvorhersehbare Dinge durch wantarray zu vermeiden.