use strict; use warnings; package Ox::WebMail::User; use vars '$VERSION'; $VERSION = '0.01'; use Ox::WebMail::Consts (); use base 'Ox::WebMail::DBI'; ->table(Ox::WebMail::Consts::DATABASE_PREFIX.'user'); sub new { my ($parent, %args) = @_; my $class = ref($parent) || $parent; my $self = bless {}, $class; return $self; } sub add { my ($self, %data) = @_; return $self->create(\%data); } 1;