}
BEGIN {
- for my $rs (qw/contest contest_problem job open problem user problem_status contest_status/) {
+ for my $rs (qw/contest contest_problem job open limit problem user problem_status contest_status/) {
my $rsname = ucfirst $rs;
$rsname =~ s/_([a-z])/\u$1/gs;
dynsub PL_N($rs) => sub { $_[0]->resultset($rsname) };