Revision 6b89ba35
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/DB/Helper/AttrSorted.pm | ||
|---|---|---|
| 29 | 29 |
|
| 30 | 30 |
croak 'not an accessor' if @_ > 1; |
| 31 | 31 |
|
| 32 |
my $next_position = (max map { $_->$position_sub // 0 } @{ $self->$unsorted_sub }) + 1;
|
|
| 32 |
my $next_position = ((max map { $_->$position_sub // 0 } @{ $self->$unsorted_sub }) // 0) + 1;
|
|
| 33 | 33 |
return [ |
| 34 | 34 |
map { $_->[1] }
|
| 35 | 35 |
sort { $a->[0] <=> $b->[0] }
|
Auch abrufbar als: Unified diff
AttrSorted-Helfer: Warnungen wegen nicht initialisierten Werten vermeiden
Durch Tests getriggert, konkret: durch t/controllers/csvimport/parts.t