% $dolos->each(sub { % my ($e, $num) = @_; % unless (defined $e->parent_id) { <%= $e->url %> <%= url_for('hit', short => $e->short)->to_abs %> <%= $e->name %> <%= $e->extra %> <%= $e->count %> <%= ($e->expired) ? l('Yes') : l('No') %> <%= (defined($e->expires_at) || defined($e->expires_after)) ? l('Yes') : l('No') %> % if ($e->children->size) { % }
% if ($e->children->size) { % $e->children->each(sub { % my ($f, $n) = @_; % my @tags; % for my $tag (@{$f->tags}) { % push @tags, $tag->{id}; % } <%= ($n == $e->children->size) ? '└' : '├' %> <%= $f->url %> <%= url_for('hit', short => $f->short)->to_abs %> <%= $f->name %> <%= $f->extra %> <%= $f->count %> <%= ($f->expired) ? l('Yes') : l('No') %> <%= (defined($f->expires_at) || defined($f->expires_after)) ? l('Yes') : l('No') %>
% }); % } % } % });