<%init> my $tochash = $m->comp("get_toc.m"); return undef unless $tochash; my $toc = $tochash->{toc}; return undef unless $toc; my $items = $toc->{newsletter}; return undef unless $items; $items = [$items] unless ref $items eq 'ARRAY'; my $last = $#$items; my $newsletter = $$items[$last]; return $newsletter;