#!/usr/bin/perl -w
use Class::DBI::Loader;

my $loader = Class::DBI::Loader -> new(
              dsn => "dbi:Pg:dbname=peter_bcdc",
              user => "pberghol",
              password => '$3cr3t$9u!rr31', # not real! 
              options => { RaiseError => 1, AutoCommit => 1 },
              namespace => 'Db',
              relationships => 1
);

while ( my $line=<DATA> ){
  chomp $line;
  my ($given_name,$surname,$email) = split(",",$line);
  my $person = Db::Person -> find_or_create(
                                            {given_name => $given_name,
                                            surname => $surname,
                                         email_addr=> $email
                                         }
                                           );
}



exit(0);

__END__
<data follows here, but is besides the point...>

##</code><code>##

Use of uninitialized value in split at /usr/lib/perl5/site_perl/5.8.5/Class/DBI/Pg.pm line 26.
"location" has no primary key at /usr/lib/perl5/site_perl/5.8.5/Class/DBI/Loader/Generic.pm line 164

##</code><code>##

create table location (
        location_id    serial not null primary key,
        location_name   text not null
);


##</code><code>##

SELECT indkey FROM ${catalog}pg_index
WHERE indisprimary=true AND indrelid=(
SELECT oid FROM ${catalog}pg_class
WHERE relname = ?)

##</code><code>##

peter_bcdc=# SELECT indkey FROM pg_catalog.pg_index
WHERE indisprimary=true AND indrelid=(
SELECT oid FROM pg_catalog.pg_class
WHERE relname = 'location');
 indkey
--------
 1
(1 row)

##</code><code>##

event_class
event_date
event_type
instructor
instructor_type_map
"location"