File Coverage

blib/lib/Mojolicious/Plugin/Credentials.pm

Criterion	Covered	Total	%
statement	35	38	92.1
branch	1	4	25.0
condition	1	6	16.6
subroutine	9	9	100.0
pod	1	1	100.0
total	47	58	81.0

package Mojolicious::Plugin::Credentials;
$Mojolicious::Plugin::Credentials::VERSION = '0.007';
use 5.020;

use Mojo::Base 'Mojolicious::Plugin', -signatures;

use Carp 'croak';
use Crypt::Credentials 0.002;
use File::Spec::Functions 'catdir';

use Env qw/$MOJO_CREDENTIALS_KEYS @MOJO_CREDENTIALS_KEYS $MOJO_CREDENTIALS_DIR/;

sub _get_keys($self, $config) {
	if ($config->{keys}) {
		return @{ $config->{keys} };
	} elsif ($MOJO_CREDENTIALS_KEYS) {
		return map { pack 'H*', $_ } @MOJO_CREDENTIALS_KEYS;
	} else {
		croak 'No credentials key given';
	}
}

sub register($self, $app, $config) {
	my $dir  = $config->{dir} // $MOJO_CREDENTIALS_DIR // catdir($app->home, 'credentials');
	my @keys = $self->_get_keys($config);

	my $credentials = Crypt::Credentials->new(dir => $dir, keys => \@keys);

	$app->helper(credentials => sub { $credentials });

	return;
}

1;

# ABSTRACT: A credentials store in mojo

__END__