X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;h=abf9a04c5f91fb32d5df83df790577a9ba690d1b;hb=4a8747effd02a1e0f9dde86b1c81f6c26ce66f04;hp=48de966aed29da3093ccc14d92e73ac97ea0b1e6;hpb=bbf8209c979ab3d89e93e13117dd4b9f639dba9c;p=gruntmaster-data.git

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 48de966..abf9a04 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -1,85 +1,71 @@
+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