lib/Gruntmaster/Page/Log/Entry.pm

   1 package Gruntmaster::Page::Log::Entry;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base log_entry => 'Job <tmpl_var id>';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 sub _generate{
  11         my ($self, $htc, $lang, $env, $ct, $id) = @_;
  12         debug $env => "language is '$lang', contest is '$ct' and id is '$id'";
  13         local $Gruntmaster::Data::contest = $ct if $ct;
  14
  15         my @tests = ();
  16
  17         eval {
  18                 @tests = map {
  19                         $_->{time} = sprintf "%.4fs", $_->{time};
  20                         $_
  21                 } @{job_results $id};
  22         };
  23
  24         $htc->param(id => $id);
  25         $htc->param(tests => \@tests);
  26         $htc->param(errors => job_errors $id)
  27 }
  28
  29 1