package Testy::Model::Test;
use Jifty::DBI::Schema;
use Testy::Record schema {
column a => type is 'text';
column b => references Testy::Model::User;
};
sub canonicalize_a {
my ($class,$a) = @_;
return lc($a);
}
sub validate_a {
my ($class,$a) = @_;
my $unique = Testy::Model::TestCollection->new();
$unique->limit(column => 'a', operator => '=',
value => $a);
$unique->limit(column => 'b', operator => '=',
value => Jifty->web->current_user->id);
return (0, "You already said $a") if $unique->first;
return $a;
}
1;
Subscribe to
Posts [Atom]