The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package t::lib::Utils;

use strict;
use warnings;

use base 'Exporter';
use vars '@EXPORT';

@EXPORT = qw/ populate_database /;

sub populate_database
{
  my $schema = shift;


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

1;