package MyUserClass;

use strict;
use SPOPS::Initialize;

my $spops = {
    'users' => {
        class          => 'MyUserClass',
        field          => [ 'u_name', 'u_password' ],
        isa            => [qw/Datasource SPOPS::DBI::Pg SPOPS::DBI/],
        id_field       => ['u_id'],
        base_table     => 'users',
        field_discover => 'no',
    },
};

{
    SPOPS::Initialize->process( { config => $spops } );
}

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    my $self = {};

    my $vars = shift;
    foreach my $key ( keys %{$vars} ) {
        $self->{$key} = $vars->{$key};
    }

    bless $self, $class;
    return $self;
}