package Gruntmaster::Data;
-use v5.14;
+use 5.014;
use warnings;
use parent qw/Exporter/;
}
-sub add_names ($) {
+sub add_names ($) { ## no critic (ProhibitSubroutinePrototypes)
my ($el) = @_;
if (ref $el eq 'ARRAY') {
- &add_names ($_) for @$el
+ &add_names ($_) for @$el ## no critic (ProhibitAmpersandSigils)
} else {
for my $object (qw/contest owner problem/) {
my $table = $object eq 'owner' ? 'users' : "${object}s";
my @problems = query(contest_problems_sth => $ct->{id})->flat;
my $pblist = problem_list;
my %values = query('problem_values_sth')->map;
-# $values{$_} = $values{$_}->{value} for keys %values;
my (%scores, %tries, %opens);
my $opens = query(opens_sth => $ct->{id});