#!/usr/bin/perl -w

use t::app::Main;
use strict;

my $schema = t::app::Main->connect('dbi:SQLite:t/app/db/example.db');

#  here's some of the SQL that is going to be generated by the schema
#  INSERT INTO artist VALUES (NULL,'Michael Jackson');
#  INSERT INTO artist VALUES (NULL,'Eminem');

my @artists = (['object 1'], ['object 2']);
$schema->populate('Object', [
  [qw/name/],
  @artists,
  ]);

