| … | … | ||
|---|---|---|---|
| 79 | sub section(@) { | 79 | sub section(@) { |
| 80 | map section_of $_, &find | 80 | map section_of $_, &find |
| 81 | } | 81 | } |
| 82 | 82 | ||
| 83 | sub as_label(@) { | 83 | sub as_label(@) { |
| 84 | my $text = | ||
| 84 | join "\n", | 85 | join "\n", |
| 85 | map +("\xa0" x ($_->{indent} / 4)) . $_->{markup}, | 86 | map +("\xa0" x ($_->{indent} / 4)) . $_->{markup}, |
| 86 | @_ | 87 | @_; |
| 88 | |||
| 89 | $text =~ s/^\s+//; | ||
| 90 | $text =~ s/\s+$//; | ||
| 91 | |||
| 92 | $text | ||
| 93 | } | ||
| 94 | |||
| 95 | sub section_label(@) { | ||
| 96 | as_label §ion | ||
| 87 | } | 97 | } |
| 88 | 98 | ||
| 89 | 1 | 99 | 1 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |