#------------------------------------------------------------------------ # Compiled template generated by the Template Toolkit version 2.09 #------------------------------------------------------------------------ Template::Document->new({ METADATA => { 'modtime' => '1022141662', 'name' => 'list/list-simple.html.tmpl', }, BLOCK => sub { my $context = shift || die "template sub called without context\n"; my $stash = $context->stash; my $output = ''; my $error; eval { BLOCK: { $output .= "\n"; $output .= "\n\n"; $output .= "\n\n"; $output .= "\n"; $output .= "\n"; $output .= "\n"; $stash->set('title', 'Bug List', 1); # CAPTURE $stash->set('title', do { my $output = ''; # FILTER $output .= do { my $output = ''; my $filter = $context->filter('html') || $context->throw($context->error); $output .= $stash->get('title'); &$filter($output); }; $output; }); $output .= "\n\n\n"; $output .= "\n"; $output .= "\n"; $output .= "\n\n\n\n \n "; $output .= $stash->get('title'); $output .= "\n \n \n\n "; if ($stash->get(['bugs', 0, 'size', 0]) eq 0) { $output .= "\n

Zarro Boogs found.

"; } else { $output .= $context->process('list/table.html.tmpl'); } $output .= "\n \n\n\n"; } }; if ($@) { $error = $context->catch($@, \$output); die $error unless $error->type eq 'return'; } return $output; }, DEFBLOCKS => { }, });