1;


package Group;

use base 'DBObject';
require Exporter;
our @ISA = ('DBObject');
our @EXPORT = qw( );

my $groupTableDef = ['groups',
     'id INTEGER PRIMARY KEY NOT NULL,
     groupid INTEGER NOT NULL,
     user INTEGER NOT NULL'
    ];


sub new {
    my ($class, %params) = @_;
    
    $params{tableDef} = $groupTableDef unless exists $params {tableDef};
    return $class->SUPER::new (%params);
}

1;