Version 0.3

[blog.pm-common-perl-mods.git] / Common-Form-Processor-Model-RDBO / t / lib / Form.pm

package Form;

use strict;
use warnings;

use base 'Common::Form::Processor::Model::RDBO';

sub object_class { 'User' }

sub profile {
    my $self = shift;

    return {
        required => { name => 'Text' },
        unique   => [ qw/ name / ]
    };
}

1;