lib/Transports/Bootstrap.pm

use warnings;
use strict;

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

sub run {
    my $self = shift;

        my $system_user = Transports::CurrentUser->superuser;
        # Try testing a create
        my $o = Transports::Model::User->new(current_user => $system_user);
        my ($id) = $o->create(
                name => 'System administrator',
                email => 'admin',
                password => 'admin',
        );
        # And another
        $o->create(
                name => 'Foo Bar',
                email => 'foo.bar@example.com',
                password => 'baz123',
        );

}


1;
1	dpavlin	9	use warnings;
2			use strict;
3
4			package Transports::Bootstrap;
5			use base qw(Jifty::Bootstrap);
6
7			sub run {
8			my $self = shift;
9
10			my $system_user = Transports::CurrentUser->superuser;
11			# Try testing a create
12			my $o = Transports::Model::User->new(current_user => $system_user);
13			my ($id) = $o->create(
14			name => 'System administrator',
15			email => 'admin',
16			password => 'admin',
17			);
18			# And another
19			$o->create(
20			name => 'Foo Bar',
21			email => 'foo.bar@example.com',
22			password => 'baz123',
23			);
24
25			}
26
27
28			1;