Parent Directory | Revision Log
column dns in M:Database and bootstrap data
1 | dpavlin | 2 | use warnings; |
2 | use strict; | ||
3 | |||
4 | package SQLSession::Bootstrap; | ||
5 | use base qw(Jifty::Bootstrap); | ||
6 | |||
7 | =head1 Bootstrap application data | ||
8 | |||
9 | Create initial data | ||
10 | |||
11 | =cut | ||
12 | |||
13 | sub run { | ||
14 | my $self = shift; | ||
15 | |||
16 | my $system_user = SQLSession::CurrentUser->superuser( _bootstrap => 1 ); | ||
17 | |||
18 | my $db = SQLSession::Model::Database->new(current_user => $system_user); | ||
19 | $db->create( | ||
20 | name => 'test', | ||
21 | dsn => 'DBI:Pg:dbname=test', | ||
22 | ); | ||
23 | |||
24 | } | ||
25 | |||
26 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |