]>
iEval git - gruntmaster-data.git/blob - Data/Result/Open.pm
2 package Gruntmaster
::Data
::Result
::Open
;
4 # Created by DBIx::Class::Schema::Loader
5 # DO NOT MODIFY THE FIRST PART OF THIS FILE
9 Gruntmaster::Data::Result::Open
13 List of (contest, problem, user, time when user opened problem)
20 use base
'DBIx::Class::Core';
22 =head1 TABLE: C<opens>
26 __PACKAGE__
->table("opens");
55 __PACKAGE__
->add_columns(
57 { data_type
=> "text", is_foreign_key
=> 1, is_nullable
=> 0 },
59 { data_type
=> "text", is_foreign_key
=> 1, is_nullable
=> 0 },
61 { data_type
=> "text", is_foreign_key
=> 1, is_nullable
=> 0 },
63 { data_type
=> "bigint", is_nullable
=> 0 },
80 __PACKAGE__
->set_primary_key("contest", "problem", "owner");
88 Related object: L<Gruntmaster::Data::Result::Contest>
92 __PACKAGE__
->belongs_to(
94 "Gruntmaster::Data::Result::Contest",
96 { is_deferrable
=> 0, on_delete
=> "CASCADE", on_update
=> "NO ACTION" },
103 Related object: L<Gruntmaster::Data::Result::User>
107 __PACKAGE__
->belongs_to(
109 "Gruntmaster::Data::Result::User",
111 { is_deferrable
=> 0, on_delete
=> "CASCADE", on_update
=> "NO ACTION" },
118 Related object: L<Gruntmaster::Data::Result::Problem>
122 __PACKAGE__
->belongs_to(
124 "Gruntmaster::Data::Result::Problem",
126 { is_deferrable
=> 0, on_delete
=> "CASCADE", on_update
=> "NO ACTION" },
130 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:44:22
131 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:jAao0vjOW87mO37ZQhm4Cw
133 use Class
::Method
::Modifiers qw
/after/;
135 sub rawcontest
{ shift->get_column('contest') }
136 sub rawowner
{ shift->get_column('owner') }
137 sub rawproblem
{ shift->get_column('problem') }
139 after qw
/insert update delete/ => sub {
141 Gruntmaster
::Data
::purge
'/st/' . $self->rawcontest;
150 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
152 =head1 COPYRIGHT AND LICENSE
154 Copyright (C) 2014 by Marius Gavrilescu
156 This library is free software; you can redistribute it and/or modify
157 it under the same terms as Perl itself, either Perl version 5.18.1 or,
158 at your option, any later version of Perl 5 you may have available.
This page took 0.05516 seconds and 4 git commands to generate.