Parent Directory | Revision Log
more dbic fun with resultsets
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 | $name .= '::Schema' unless $name =~ m{::}; |
13 | |
14 | make_schema_at( |
15 | $name, { |
16 | debug => 1, |
17 | dump_directory => 'lib/', |
18 | really_erase_my_files => 1, |
19 | relations => 1, |
20 | }, [ |
21 | $dsn, |
22 | '', |
23 | '', |
24 | ] |
25 | ); |
26 | |
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 |