Select Code to Download

Select or download this

create table account (
        user_id SERIAL not null primary key,
...
        locked          bool not null default 'false'
);

Select or download this

peter_trialdb=> \d account
                                      Table "public.account"
...
Foreign-key constraints:
    "account_person_id_fkey" FOREIGN KEY (person_id) REFERENCES person
+(person_id) ON DELETE CASCADE

Select or download this

use strict;
use Class::DBI::Loader;
...
                     relationships=>1,
                     options=>{ AutoCommit=>1 }
                                     );

Select or download this

 ./automation.pl
Use of uninitialized value in split at /usr/lib/perl5/site_perl/5.8.5/
+Class/DBI/Pg.pm line 26.
public.account has no primary key at /usr/lib/perl5/site_perl/5.8.5/Cl
+ass/DBI/Loader/Generic.pm line 164