Revision ddaaf1dd
Von Sven Schöling vor etwa 11 Jahren hinzugefügt
| SL/Presenter/Tag.pm | ||
|---|---|---|
| 146 | 146 |
my $list_to_code = sub {
|
| 147 | 147 |
my ($sub_collection) = @_; |
| 148 | 148 |
|
| 149 |
if ('ARRAY' ne ref $sub_collection) {
|
|
| 150 |
$sub_collection = [ $sub_collection ]; |
|
| 151 |
} |
|
| 152 |
|
|
| 149 | 153 |
my @options; |
| 150 | 154 |
foreach my $entry ( @{ $sub_collection } ) {
|
| 151 | 155 |
my $value; |
Auch abrufbar als: Unified diff
L.select_tag muss auch ohne .as_list vmethod mit 1-Element Listen kalr kommen
behebt #2376