File: make_test_ddl_dir.pl

package info (click to toggle)
libdbix-class-encodedcolumn-perl 0.00020-3
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 268 kB
  • sloc: perl: 618; sql: 48; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 404 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#! /usr/bin/perl -w

use strict;
use warnings;
use Dir::Self;

use lib File::Spec->catdir(__DIR__, '../', 't', 'lib');
use DigestTest::Schema;

my $var = File::Spec->catdir(__DIR__, '../', 't', 'var');
DigestTest::Schema->load_classes(qw/SHA PGP Bcrypt Whirlpool/);
my $schema = DigestTest::Schema->connect("dbi:SQLite:");
$schema->create_ddl_dir(['SQLite',], undef, $var, undef, {add_drop_table => 0});