script/dump_schema.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/env perl 
use strict;
use warnings;
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
 
make_schema_at(
    'TFLMonitor::Schema',
    {
        debug => 1,
        dump_directory => './lib',
    },
    [ 'dbi:SQLite:dbname=monitor.db', ],
);