use strict;
use DBIx::Class::Loader;
use AI::Prolog;

my $loader = DBIx::Class::Loader->new(
    dsn       => $ARGV[0],
    user      => $ARGV[1],
    password  => $ARGV[2],
    namespace => 'Data',
);

my $prog;
for my $c ( $loader->classes ) {
    my $rs = $c->search();
    $prog .= '% ' . join ( ',', $c->columns ) . "\n";
    while ( my $row = $rs->next ){
        $prog .= $c->table . '(';
        my @quoted = map {AI::Prolog->quote($row->$_)} $c->columns;
        $prog .= join ',', @quoted;
        $prog .= ").\n";
    }
}
print $prog;