package MyApp::Schema::Result::User;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
use List::MoreUtils qw(any none);
extends 'MyApp::Schema::Result';

__PACKAGE__->table('user');

__PACKAGE__->load_components( qw( EncodedColumn ) );

__PACKAGE__->add_columns(
    id => {
            data_type => 'integer',
            size      => 16,
            is_nullable => 0,
            is_auto_increment => 1
    },
    username => {
            data_type => 'varchar',
            size      => 256,
            is_nullable => 0,
            is_auto_increment => 0,
    },
);

__PACKAGE__->set_primary_key('id');

__PACKAGE__->has_one('profile' => 'MyApp::Schema::Result::Profile', 'user_id');

__PACKAGE__->has_many( user_roles => 'MyApp::Schema::Result::UserRole', 'user_id' );

__PACKAGE__->many_to_many( roles => 'user_roles', 'role' );

##</code><code>##

package MyApp::Schema::Result::Profile;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
extends 'MyApp::Schema::Result';

__PACKAGE__->table('profile');

__PACKAGE__->add_columns(
    user_id  => {
        data_type           => 'integer',
        size                => 16,
        is_foreign_key      => 1,
        is_nullable         => 0,
    },
    name    => {
            data_type => 'varchar',
            size      => 256,
            is_nullable => 0,
            is_auto_increment => 0,
    },
    email   => {
            data_type => 'varchar',
            size      => 256,
            is_nullable => 0,
            is_auto_increment => 0,
    },
);

__PACKAGE__->set_primary_key('user_id');

__PACKAGE__->has_one('profile' => 'MyApp::Schema::Result::User', 'id');

1;
__END__

##</code><code>##

#!/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;
}

##</code><code>##

DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relationship, many-to-many helper accessor or generic accessor 'email' at /root/perl5/lib/perl5/Context/Preserve.pm line 22
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relationship, many-to-many helper accessor or generic accessor 'name' at /root/perl5/lib/perl5/Context/Preserve.pm line 22


DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relationship, many-to-many helper accessor or generic accessor 'profile.email' at /root/perl5/lib/perl5/Context/Preserve.pm line 22
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relationship, many-to-many helper accessor or generic accessor 'profile.name' at /root/perl5/lib/perl5/Context/Preserve.pm line 22

##</code><code>##

package MyApp::Form::User;
use HTML::FormHandler::Moose;
extends 'MyApp::Form::Base';
with 'HTML::FormHandler::Widget::Theme::Bootstrap';

=head1 NAME

Form object for the User Controller

=head1 SYNOPSIS

Form used for user/add and user/edit actions

=head1 DESCRIPTION

Catalyst Form.

=cut

has '+item_class'       => ( default => 'User' );

has_field 'username'    => (
    type                => 'Text',
    required            => 1,
    required_message    => 'A Username is required',
    label               => 'Username',
);
has_field 'name'        => (
    accessor           => 'profile.name',
    type                => 'Text',
    required            => 1,
    required_massage    => 'A Name is required',
    label               => 'Name',
);
has_field 'email'       => (
    accessor           => 'profile.email',
    type                => 'Text',
    required            => 1,
    required_message    => 'An email address is required',
    label               => 'Email',
);
has_field 'password'    => (
    type                => 'Password',
    required            => 1,
    required_message    => 'A Password is required',
    label               => 'Password',
);
has_field 'roles'       => (
    type                => 'Multiple',
    label               => 'Roles',
    widget              => 'CheckboxGroup',
);

has_field submit => ( type => 'Submit', value => 'Update', element_class => ['btn'] );

__PACKAGE__->meta->make_immutable;
no HTML::FormHandler::Moose;
1;