Parent Directory | Revision Log
more dbic fun with resultsets
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*"; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |