lib/Transports/Bootstrap.pm

use warnings;
use strict;

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

=head1 Bootstrap application data

Create initial data

=cut

sub run {
    my $self = shift;

        my $system_user = Transports::CurrentUser->superuser;

        my $u = Transports::Model::User->new(current_user => $system_user);

        $u->create(
                name => 'System administrator',
                email => 'admin@example.com',
                password => 'admin',
        );

        $u->create(
                name => 'Normal User',
                email => 'user@example.com',
                password => 'user',
        );

        my $s = Transports::Model::Source->new(current_user => $system_user);
        $s->create(
                name => 'SRC/1',
        );
        $s->create(
                name => 'SRC/2',
        );

        my $d = Transports::Model::Destination->new(current_user => $system_user);
        $d->create(
                name => 'DEST/1',
        );
        $d->create(
                name => 'DEST/2',
        );
}


1;
1	dpavlin	9	use warnings;
2			use strict;
3
4			package Transports::Bootstrap;
5			use base qw(Jifty::Bootstrap);
6
7	dpavlin	10	=head1 Bootstrap application data
8
9			Create initial data
10
11			=cut
12
13	dpavlin	9	sub run {
14			my $self = shift;
15
16			my $system_user = Transports::CurrentUser->superuser;
17	dpavlin	10
18			my $u = Transports::Model::User->new(current_user => $system_user);
19
20			$u->create(
21	dpavlin	9	name => 'System administrator',
22	dpavlin	10	email => 'admin@example.com',
23	dpavlin	9	password => 'admin',
24			);
25	dpavlin	10
26	dpavlin	23	$u->create(
27			name => 'Normal User',
28			email => 'user@example.com',
29			password => 'user',
30			);
31
32	dpavlin	10	my $s = Transports::Model::Source->new(current_user => $system_user);
33			$s->create(
34			name => 'SRC/1',
35	dpavlin	9	);
36	dpavlin	10	$s->create(
37			name => 'SRC/2',
38			);
39	dpavlin	9
40	dpavlin	10	my $d = Transports::Model::Destination->new(current_user => $system_user);
41			$d->create(
42			name => 'DEST/1',
43			);
44			$d->create(
45			name => 'DEST/2',
46			);
47	dpavlin	9	}
48
49
50			1;