% $dolos->each(sub { % my ($d, $n) = @_; % my @tags; % for my $tag (@{$d->tags}) { % push @tags, $tag->{id}; % } % unless (defined $d->parent_id) { % my $dhs = $d->get_raw_dhs; <%= $d->url %> <%= url_for('hit', short => $d->short)->to_abs %> <%= $d->name %> <%= $d->extra %> <%= $d->count %> % if ($d->children->size) { % }
% if ($d->children->size) { % $d->children->each(sub { % my ($f, $m) = @_; % my @tags; % for my $tag (@{$f->tags}) { % push @tags, $tag->{id}; % } <%= ($m == $d->children->size) ? '└' : '├' %> <%= $f->url %> <%= url_for('hit', short => $f->short)->to_abs %> <%= $f->name %> <%= $f->extra %> <%= $f->count %>
% }); % } % } % });