view release on metacpan or  search on metacpan

t/SQLiteSetup.pm  view on Meta::CPAN

package SQLiteSetup;
use strict;     
use FindBin;


=head1 SQLiteSetup

Re-create the test app db file when used, or die trying.

The db file must not be locked by any running app.

=cut



recreate_db();

sub recreate_db {
    my $db_file = "$FindBin::Bin/tutorial/BookShelf/db/bookshelf.db";
    my $sql_file = "$FindBin::Bin/tutorial/database/bookdb.sql";