Salve galera!
Estou com esse problema, já usei esse módulo outras vezes, mas dessa vez
não esta funcionou, o código:
use base 'DBIx::Class';
__PACKAGE__->load_components(qw/EncodedColumn Core/);
__PACKAGE__->table("usuario");
__PACKAGE__->add_columns(
"usu_id",
{
data_type => "integer",
is_auto_increment => 1,
is_nullable => 0,
sequence => "usuario_usu_id_seq",
},
"usu_nome",
{ data_type => "varchar", is_nullable => 0, size => 40 },
"usu_email",
{ data_type => "varchar", is_nullable => 0, size => 60 },
"usu_login",
{ data_type => "varchar", is_nullable => 0, size => 20 },
"usu_senha",
{
data_type => "varchar",
is_nullable => 0,
size => 40,
encode_column => 1,
encode_class => 'Digest',
encode_args => {algorithm => 'SHA-1', format => 'hex'}
},
"usu_roles",
{ data_type => "text", is_nullable => 1 },
);
__PACKAGE__->set_primary_key("usu_id");
Alguém pode me ajudar?
Valeu e ate mais.
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
