lib/SQLSession/Bootstrap.pm

use warnings;
use strict;

package SQLSession::Bootstrap;
use base qw(Jifty::Bootstrap);

=head1 Bootstrap application data

Create initial data

=cut

sub run {
    my $self = shift;

        my $system_user = SQLSession::CurrentUser->superuser( _bootstrap => 1 );

        my $db = SQLSession::Model::Database->new(current_user => $system_user);
        $db->create(
                name => 'test',
                dsn => 'DBI:Pg:dbname=test',
        );

        my $p = SQLSession::Model::Page->new(current_user => $system_user);
        $p->create(
                name => 'test query',
                sql_query => 'select * from a;',
                on_database => $db,
        );

}

1;
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	my $p = SQLSession::Model::Page->new(current_user => $system_user);
25	$p->create(
26	name => 'test query',
27	sql_query => 'select * from a;',
28	on_database => $db,
29	);
30
31	}
32
33	1;