DBIx::Class::EncodedColumn - Automatically encode columns
In your DBIx::Class Result class (sometimes erroneously referred to as the 'table' class):
__PACKAGE__->load_components(qw/EncodedColumn ... Core/); #Digest encoder with hex format and SHA-1 algorithm __PACKAGE__->add_columns( 'password' => { data_type => 'CHAR', size => 40, encode_column => 1, encode_class => 'Digest', encode_args => {algorithm => 'SHA-1', format => 'hex'}, } #SHA-1 / hex encoding / generate check method __PACKAGE__->add_columns( 'password' => { data_type => 'CHAR', size => 40 + 10, encode_column => 1, encode_class => 'Digest', encode_args => {algorithm => 'SHA-1', format => 'hex', salt_length => 10}, encode_check_method => 'check_password', } #MD5 / base64 encoding / generate check method __PACKAGE__->add_columns( 'password' => { data_type => 'CHAR', size => 22, encode_column => 1, encode_class => 'Digest', encode_args => {algorithm => 'MD5', format => 'base64'}, digest_check_method => 'check_password', } #Eksblowfish bcrypt / cost of 8/ no key_nul / generate check method __PACKAGE__->add_columns( 'password' => { data_type => 'CHAR', size => 22, encode_column => 1, encode_class => 'Crypt::Eksblowfish::Bcrypt', encode_args => { key_nul => 0, cost => 8 }, digest_check_method => 'check_password', }
In your application code:
#updating the value. $row->password('plaintext'); my $digest = $row->password; #checking against an existing value with a check_method $row->check_password('old_password'); #true $row->password('new_password'); $row->check_password('new_password'); #returns true $row->check_password('old_password'); #returns false
Note: The component needs to be loaded before Core.
This DBIx::Class component can be used to automatically encode a column's contents whenever the value of that column is set.
This module is similar to the existing DBIx::Class::DigestColumns, but there is some key differences:
DigestColumns
insert
update
EncodedColumn
new
Encode
_column_encoders
There is, unfortunately, some features that EncodedColumn doesn't suppor. DigestColumns supports changing certain options at runtime, as well as the option to not automatically encode values on set. The author of this module found these options to be non-essential and ommitted them by design.
If any one of these options is present the column will be treated as a digest column and all of the defaults will be applied to the rest of the options.
Enable automatic encoding of column values. If this option is not set to true any other options will become noops.
By using the digest_check_method attribute when you declare a column you can create a check method for that column. The check method accepts a plain text string, and returns a boolean that indicates whether the digest of the provided value matches the current value.
The class to use for encoding. available classes are:
Crypt::Eksblowfish::Bcrypt
Digest
Please see the relevant class's documentation for information about the specific arguments accepted by each.
The following DBIx::Class::ResultSource method is extended:
The following DBIx::Class::Row methods are extended by this module:
DBIx::Class::DigestColumns, DBIx::Class, Digest
Guillermo Roditi (groditi) <groditi@cpan.org>
Inspired by the original module written by Tom Kirkpatrick (tkp) <tkp@cpan.org> featuring contributions from Guillermo Roditi (groditi) <groditi@cpan.org> and Marc Mims <marc@questright.com>
You may distribute this code under the same terms as Perl itself.
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head1'
To install DBIx::Class::EncodedColumn, copy and paste the appropriate command in to your terminal.
cpanm
cpanm DBIx::Class::EncodedColumn
CPAN shell
perl -MCPAN -e shell install DBIx::Class::EncodedColumn
For more information on module installation, please visit the detailed CPAN module installation guide.