DBIx::Class::Schema::deploy(): DBIx::Class::Schema::deploy(): 
DBI Exception: DBD::Pg::db do failed: ERROR:  syntax error at or near "NOT"
LINE 5:   "user_password"  NOT NULL,
                           ^ at deploy.pl line 32
 (running "DROP TABLE IF EXISTS "users" CASCADE;
CREATE TABLE "users" (
  "user_id" bigserial NOT NULL,
  "username" character varying(256) NOT NULL,
  "user_password"  NOT NULL,
  "email_address" character varying(256),
  "last_name" character varying(100),
  "active" smallint,
  PRIMARY KEY ("user_id")
);

") at deploy.pl line 32

##</code><code>##

# deploy Schema
my $schema = My::Schema->connect($dsn, $user_name, $password);
$schema->deploy({ add_drop_table => 1});

##</code><code>##


package My::Schema::Result::User;

use strict;
use warnings;

use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
#use base qw/DBIx::Class::Core/;

extends 'DBIx::Class::Core';

__PACKAGE__->load_components(qw/ InflateColumn::DateTime Ordered TimeStamp PassphraseColumn /);
__PACKAGE__->position_column('user_id');

__PACKAGE__->table('users');

__PACKAGE__->add_columns(
                        user_id =>
                          { accessor  => 'userid',
                            data_type => 'integer',
                            size      => 16,
                            is_nullable => 0,
                            is_auto_increment => 1,
                          },
                        username =>
                          { accessor  => 'username',
                            data_type => 'varchar',
                            size      => 256,
                            is_nullable => 0,
                            is_auto_increment => 0,
                          },
                        user_password =>
                          { data_type => 'varchar', 
                            size      => 256,
                            is_nullable => 0,
                            is_auto_increment => 0,
                          },
                        email_address =>
                          { data_type   => "varchar",
                            size        => 256,
                            is_nullable => 1,
                          },
                        last_name   =>
                          { data_type   => "varchar",
                            size        => 100,
                            is_nullable => 1,
                          },
                        active      =>
                          { data_type   => "integer",
                            size        => 1,
                            is_nullable => 1,
                          },
                       );

__PACKAGE__->set_primary_key('user_id');

__PACKAGE__->has_many(
    user_roles  => 'My::Schema::Result::UserRole',
    { "foreign.user_id" => "self.id" },
    { cascade_copy => 0, cascade_delete => 0 },
);

# many_to_many():
#   args:
#     1) Name of relationship, 
# DBIC will create accessor with this name
#     2) Name of has_many() 
# relationship this many_to_many() is shortcut for
#     3) Name of belongs_to() 
# relationship in model class of has_many() above
#   You must already have the has_many() 
# defined to use a many_to_many().
__PACKAGE__->many_to_many(roles => 'user_roles', 'role');

# Have the 'password' column use a SHA-1 hash and 20-byte salt
# with RFC 2307 encoding; Generate the 'check_password" method
__PACKAGE__->add_columns(
    'user_password' => {
        passphrase       => 'rfc2307',
        passphrase_class => 'SaltedDigest',
        passphrase_args  => {
            algorithm   => 'SHA-1',
            salt_random => 20.
        },
        passphrase_check_method => 'check_password',
    },
);

=head2 has_role

Check if a user has the specified role

=cut

use Perl6::Junction qw/any/;
sub has_role {
    my ($self, $role) = @_;

    # Does this user posses the required role?
    return any(map { $_->role } $self->roles) eq $role;
}

__PACKAGE__->meta->make_immutable;
1;
__END__

##</code><code>##

package My::Schema::Result::User;

use strict;
use warnings;

use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
#use base qw/DBIx::Class::Core/;

extends 'DBIx::Class::Core';

__PACKAGE__->load_components(qw/ InflateColumn::DateTime Ordered TimeStamp PassphraseColumn /);
__PACKAGE__->position_column('user_id');

__PACKAGE__->table('users');

__PACKAGE__->add_columns(
                        user_id =>
                          { accessor  => 'userid',
                            data_type => 'integer',
                            size      => 16,
                            is_nullable => 0,
                            is_auto_increment => 1,
                          },
                        username =>
                          { accessor  => 'username',
                            data_type => 'varchar',
                            size      => 256,
                            is_nullable => 0,
                            is_auto_increment => 0,
                          },

                        # Have the 'password' column use a SHA-1 hash and 20-byte salt
                        # with RFC 2307 encoding; Generate the 'check_password" method
                        user_password =>
                          { data_type => 'varchar', 
                            size      => 256,
                            is_nullable => 0,
                            is_auto_increment => 0,
                            passphrase       => 'rfc2307',
                            passphrase_class => 'SaltedDigest',
                            passphrase_args  => {
                                algorithm   => 'SHA-1',
                                salt_random => 20.
                            },
                            passphrase_check_method => 'check_password',
                          },
                        email_address =>
                          { data_type   => "varchar",
                            size        => 256,
                            is_nullable => 1,
                          },
                        last_name   =>
                          { data_type   => "varchar",
                            size        => 100,
                            is_nullable => 1,
                          },
                        active      =>
                          { data_type   => "integer",
                            size        => 1,
                            is_nullable => 1,
                          },
                       );

__PACKAGE__->set_primary_key('user_id');

__PACKAGE__->has_many(
    user_roles  => 'My::Schema::Result::UserRole',
    { "foreign.user_id" => "self.id" },
    { cascade_copy => 0, cascade_delete => 0 },
);

# many_to_many():
#   args:
#     1) Name of relationship, DBIC will create accessor with this name
#     2) Name of has_many() relationship this many_to_many() is shortcut for
#     3) Name of belongs_to() relationship in model class of has_many() above
#   You must already have the has_many() defined to use a many_to_many().
__PACKAGE__->many_to_many(roles => 'user_roles', 'role');


=head2 has_role

Check if a user has the specified role

=cut

use Perl6::Junction qw/any/;
sub has_role {
    my ($self, $role) = @_;

    # Does this user posses the required role?
    return any(map { $_->role } $self->roles) eq $role;
}

__PACKAGE__->meta->make_immutable;
1;
__END__