view release on metacpan or  search on metacpan

t/lib/DBICTest.pm  view on Meta::CPAN

the tables with test data.

=cut

sub populate_schema {
    my $self = shift;
    my $schema = shift;

    $schema->populate('Library', [
        [ qw/id book isbn full_isbn / ],
        [ 1, 'HTML for the World Wide Web: With XHTML and CSS', '0321430840', '032-143-084-0' ],
        [ 2, 'Final Fantasy X Official Strategy Guide', '190351133X' ],
    ]);

}

1;