<%init> my $tochash = $m->comp("get_toc.m"); return undef unless $tochash; my $toc = $tochash->{toc}; return undef unless $toc; my $items = $toc->{edicao}; return undef unless $items; return $items;