croak "Not a writer" if @args;
- my @children = sort { $a->position <=> $b->position } $self->children;
- return wantarray ? @children : \@children;
+ return [ sort { $a->position <=> $b->position } $self->children ];
}
sub section {
=item C<children_sorted>
-Returns an array (or an array reference depending on context) of
-direct children (not of grandchildren) for C<$self> ordered by their
-positional column in ascending order.
+Returns an array reference of direct children (not of grandchildren)
+for C<$self> ordered by their positional column in ascending order.
=item C<section>