trunk/bin/cdbi-generate-schema.pl

#!/usr/bin/perl

use warnings;
use strict;

use DBIx::Class::Schema::Loader qw/ make_schema_at /;

die "usage: $0 'DBI:mysql:database=reblog;host=127.0.0.1;port=13306' Reblog\n" unless $#ARGV == 1;

my ( $dsn, $name ) = @ARGV;

make_schema_at(
        $name, {
                debug => 1,
                dump_directory => 'lib/CDBI',
        }, [
                $dsn,
                '',
                '',
        ]
);
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use DBIx::Class::Schema::Loader qw/ make_schema_at /;
7
8	die "usage: $0 'DBI:mysql:database=reblog;host=127.0.0.1;port=13306' Reblog\n" unless $#ARGV == 1;
9
10	my ( $dsn, $name ) = @ARGV;
11
12	make_schema_at(
13	$name, {
14	debug => 1,
15	dump_directory => 'lib/CDBI',
16	}, [
17	$dsn,
18	'',
19	'',
20	]
21	);