populate countries table with Locale::Country and DBIC

gistfile1.txt

#! /usr/bin/env perl

use strict;
use warnings;

use Locale::Country;
use Interchange6::Schema;

my $dsn = shift;
my $schema = Interchange6::Schema->connect($dsn);

my @countries = ();

@countries = map {[$_, code2country($_)]} (all_country_codes(LOCALE_CODE_ALPHA_2));

#populate countries table
$schema->populate('Country', [
  [ 'iso_code', 'name' ],
  @countries,
]);