The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub as_arrayref { my ($self) = @_; [$self->key, [map { $_->as_arrayref } @{$self->children}], $self->leaf]; }