#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper; $Data::Dumper::Indent = 3;
use Digest::MD5 qw/md5_base64/;

use base qw/DBIx::Class::Schema::Loader/;
DBIx::Class::Schema::Loader->loader_options( relationships => 1 );

my $schema = DBIx::Class::Schema::Loader->connect('dbi:SQLite:/tmp/test');
#my $schema = DBIx::Class::Schema::Loader->connect('dbi:Pg:dbname=test', 'postgres', '' );
#my $schema = DBIx::Class::Schema::Loader->connect('dbi:mysql:dbname=test', 'mysql', '' );


my @inserts;

for ( 1 .. 50000 ) {

    push @inserts,
        {
          foo => md5_base64( $_ . 'foo' ),
          bar => md5_base64( $_ . 'bar' )
        };

}

my $new_row = $schema->resultset('TestTable');

$new_row->populate( \@inserts );