Parent Directory | Revision Log
column dns in M:Database and bootstrap data
1 | 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 |