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	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;