trunk/bin/dbic-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;

$name .= '::Schema' unless $name =~ m{::};

make_schema_at(
        $name, {
                debug => 1,
                dump_directory => 'lib/',
                really_erase_my_files => 1,
                relations => 1,
        }, [
                $dsn,
                '',
                '',
        ]
);

my $path = "lib/$name";
$path =~ s{::}{/};

system "svk add $path*";
1	dpavlin	1011	#!/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	dpavlin	1020	$name .= '::Schema' unless $name =~ m{::};
13
14	dpavlin	1011	make_schema_at(
15			$name, {
16			debug => 1,
17	dpavlin	1014	dump_directory => 'lib/',
18			really_erase_my_files => 1,
19			relations => 1,
20	dpavlin	1011	}, [
21			$dsn,
22			'',
23			'',
24			]
25			);
26	dpavlin	1020
27			my $path = "lib/$name";
28			$path =~ s{::}{/};
29
30			system "svk add $path*";