lib/Gruntmaster/Data.pm

   1 use utf8;
   2 package Gruntmaster::Data;
   3
   4 # Created by DBIx::Class::Schema::Loader
   5 # DO NOT MODIFY THE FIRST PART OF THIS FILE
   6
   7 use strict;
   8 use warnings;
   9
  10 use base 'DBIx::Class::Schema';
  11
  12 __PACKAGE__->load_namespaces;
  13
  14
  15 # Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
  16 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
  17
  18 our $VERSION = 5999.000_003;
  19
  20 use Lingua::EN::Inflect qw/PL_N/;
  21 use Sub::Name qw/subname/;
  22
  23 sub dynsub{
  24         our ($name, $sub) = @_;
  25         no strict 'refs';
  26         *$name = subname $name => $sub
  27 }
  28
  29 BEGIN {
  30         for my $rs (qw/contest contest_problem job open problem user/) {
  31                 my $rsname = ucfirst $rs;
  32                 $rsname =~ s/_([a-z])/\u$1/g;
  33                 dynsub PL_N($rs) => sub { $_[0]->resultset($rsname)              };
  34                 dynsub      $rs  => sub { $_[0]->resultset($rsname)->find($_[1]) };
  35         }
  36 }
  37
  38 1;