]>
Commit | Line | Data |
---|---|---|
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; |