+use utf8;
package Gruntmaster::Data;
-use 5.014002;
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
use strict;
use warnings;
-require Exporter;
-
-our @ISA = qw(Exporter);
+use base 'DBIx::Class::Schema';
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
+__PACKAGE__->load_namespaces;
-# This allows declaration use Gruntmaster::Data ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-
-) ] );
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+# Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
-our @EXPORT = qw(
-
-);
+our $VERSION = 5999.000_003;
-our $VERSION = '5999.000_001';
-$VERSION = eval $VERSION; # see L<perlmodstyle>
+use Lingua::EN::Inflect qw/PL_N/;
+use Sub::Name qw/subname/;
+sub dynsub{
+ our ($name, $sub) = @_;
+ no strict 'refs';
+ *$name = subname $name => $sub
+}
-# Preloaded methods go here.
+BEGIN {
+ for my $rs (qw/contest contest_problem job open problem user/) {
+ my $rsname = ucfirst $rs;
+ $rsname =~ s/_([a-z])/\u$1/g;
+ dynsub PL_N($rs) => sub { $_[0]->resultset($rsname) };
+ dynsub $rs => sub { $_[0]->resultset($rsname)->find($_[1]) };
+ }
+}
1;
+
__END__
-# Below is stub documentation for your module. You'd better edit it!
+
+=encoding utf-8
=head1 NAME
-Gruntmaster::Data - Perl extension for blah blah blah
+Gruntmaster::Data - Gruntmaster 6000 Online Judge -- database interface and tools
=head1 SYNOPSIS
- use Gruntmaster::Data;
- blah blah blah
+ my $db = Gruntmaster::Data->connect('dbi:Pg:');
+ # Typical DBIC stuff here
=head1 DESCRIPTION
-Stub documentation for Gruntmaster::Data, created by h2xs. It looks like the
-author of the extension was negligent enough to leave the stub
-unedited.
-
-Blah blah blah.
-
-=head2 EXPORT
-
-None by default.
-
-
-
-=head1 SEE ALSO
-
-Mention other useful documentation such as the documentation of
-related modules or operating system documentation (such as man pages
-in UNIX), or any relevant external documentation such as RFCs or
-standards.
-
-If you have a mailing list set up for your module, mention it here.
-
-If you have a web site set up for your module, mention it here.
+No documentation (yet)
=head1 AUTHOR
-Marius Gavrilescu, E<lt>marius@E<gt>
+Marius Gavrilescu E<lt>marius@ieval.roE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2014 by Marius Gavrilescu
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.18.2 or,
-at your option, any later version of Perl 5 you may have available.
+This library is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
=cut