File Coverage

blib/lib/DBIx/Class/InflateColumn/Crypt/Passphrase.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	40	40	100.0

package DBIx::Class::InflateColumn::Crypt::Passphrase;
$DBIx::Class::InflateColumn::Crypt::Passphrase::VERSION = '0.005';
use strict;
use warnings;

use parent 'DBIx::Class';

use Crypt::Passphrase 0.007;
use Scalar::Util 'blessed';

use namespace::clean;

sub register_column {
	my ($self, $column, $info, @rest) = @_;

	$self->next::method($column, $info, @rest);
	return unless my $encoding = $info->{inflate_passphrase};

	my $crypt_passphrase = blessed($encoding) ? $encoding : Crypt::Passphrase->new(%{ $encoding });

	$self->inflate_column(
		$column => {
			inflate => sub { $crypt_passphrase->curry_with_hash(shift) },
			deflate => sub { shift->raw_hash },
		},
	);
}

1;

# ABSTRACT: Inflate/deflate columns to passphrase objects

__END__