From 6c0423f49be4a1e609bbcf961824097c07edbe1b Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Tue, 31 Mar 2015 16:41:32 +0300 Subject: [PATCH] Make perlcritic happy --- lib/Gruntmaster/Data.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm index dd0a92b..d8c7c31 100644 --- a/lib/Gruntmaster/Data.pm +++ b/lib/Gruntmaster/Data.pm @@ -1,5 +1,5 @@ package Gruntmaster::Data; -use v5.14; +use 5.014; use warnings; use parent qw/Exporter/; @@ -70,10 +70,10 @@ sub object_name { } -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"; @@ -222,7 +222,6 @@ sub standings { 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}); -- 2.39.2