#!/usr/bin/perl

use strict;
use warnings;

use lib './lib';
use TEST::Schema;

my $schema = TEST::Schema->connect( 'dbi:mysql:database=test;host=192.168.15.222',
                                       'user',
                                       'pass');

my $main = $schema->resultset( 'Main' );

$schema->txn_do( sub {
   $main->find_or_create( {
      data =>     {
         some_dat => 'blah',
         more_dat => 'more blah'
      }, info1 => {
         info1_1 =>  'unique blah 1',
         info1_2 =>  'unique blah 2'
      }, info2 => {
         info2_1 =>  'more ublah 1',
         info2_2 =>  'more ublah 2'
      }
   } );
} );