Select Code to Download

use strict;
use DBIx::Class::Loader;
...
    }
}
print $prog;

create table usr(id integer primary key, name varchar(100), cityid int
+eger);
create table city (id integer primary key, name varchar(100));
...
insert into city values (1, 'New York');
insert into city values (2, 'London');
insert into city values (3, 'Warsaw');

perl dump.pl dbi:Pg:dbname=prolog > mytables

% name,id
city('New York',1).
...
usr(1,'Marry',2).
usr(2,'Eva',3).
usr(3,'Zby',4).

zby@zby:~/progs/prologdata$ swipl
Welcome to SWI-Prolog (Multi-threaded, Version 5.2.13)
...

Yes
?-

?- usr(Cityid, Name, Id), city('New York', Cityid).

...

No
?-

my $prologDB = AI::Prolog->new( $prog );
$prologDB->query( "usr(1,Name,Uid)." );
while (my $results = $prologDB->results) { print "@$results\n"; }