#!/usr/bin/env perl
use lib 'lib';
#use MyApp;
use 5.014;
use strict;
use warnings;

use MyApp::Schema;

#my $schema = My->schema;
my $schema = MyApp::Schema->connect( 'dbi:SQLite:db/myapp.db', );

$schema->deploy({ add_drop_table => 1});

$schema->resultset('User')->populate([
    [ qw( id username password ) ],

    [1, 'test1', 'foo' ],
    [2, 'test2', 'bar' ],
    [3, 'test3', 'baz' ],
    [4, 'test4', 'stuff' ],
    [5, 'test5', 'stuff2' ],
]);

$schema->resultset('Profile')->populate([
    [ qw ( user_id name email ) ],

    [1, 'Test User 1', 'test1@example.org', ],
    [2, 'Test User 2', 'test2@example.org', ],
    [3, 'Test User 3', 'test3@example.org', ],
    [4, 'Test User 4', 'test4@example.org', ],
    [5, 'Test User 5', 'test5@example.org', ],
]);

foreach my $user ($schema->resultset('User')->all) {
    $user->add_role('User');
}

foreach my $user ($schema->resultset('User')->all) {
    say "Username: " . $user->username;
    say "Name: ". $user->profile->name;
}