#!/usr/bin/perl
use strict; use warnings;

use lib 'lib';

# Send in the models please.
use PbT::Model;
use PbT::Model::country qw( $COUNTRY );

my $schema = PbT::Model->connect( 'dbi:Pg:dbname=pbt', 'postgres', '' );

$schema->txn_begin();

    while ( my $country = <> ) {
        chomp $country;

        $COUNTRY->screate( $schema, { name => $country } );
    }

$schema->txn_commit();
