Revision 8f3e8a02
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 103 | 103 |
my %by_parent; |
| 104 | 104 |
# order them by parent |
| 105 | 105 |
for my $node ($self->nodes) {
|
| 106 |
push @{ $by_parent{ $node->{parent} } //= [] }, $node;
|
|
| 106 |
push @{ $by_parent{ $node->{parent} // '' } //= [] }, $node;
|
|
| 107 | 107 |
} |
| 108 | 108 |
|
| 109 | 109 |
my $tree = { };
|
Auch abrufbar als: Unified diff
Benutzung undefinierter Werte vermeiden