#!/usr/bin/perl -w

use SPOPS;

use MyUserClass;

{
    SPOPS::set_global_debug( debug => 1 );

    my $otherUser = MyUserClass->fetch(4);
    foreach my $key ( keys %$otherUser ) {
      print "Key $key: $otherUser->{$key}\n";
    }
}
[download]

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;
}
[download]

package Datasource;

use strict;
use DBI;

my ($dbh);

sub global_datasource_handle {
    my ($class) = @_;
    return $dbh if ($dbh);

    $dbh =
      DBI->connect( 'DBI:Pg:dbname=xxx', 'xxx', 'xxx',
        { RaiseError => 1, PrintError => 0 } );

    unless ($dbh) {
        die "Cannot create database handle! Error: $DBI::errstr\n";
    }
    return $dbh;
}

1;
[download]