App-Acmeman
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/Acmeman.pm view on Meta::CPAN
}
sub account_key {
my $self = shift;
unless ($self->{_account_key}) {
my $keyfile = $self->cf->get('account', 'key');
if (-r $keyfile) {
if (open(my $fh, '<', $keyfile)) {
local $/ = undef;
$self->{_account_key} = Crypt::OpenSSL::RSA->new_private_key(<$fh>);
close $fh;
} else {
error("can't open $keyfile for reading: $!");
}
} else {
$self->{_account_key} = Crypt::OpenSSL::RSA->generate_key($self->cf->get('core', 'key-size'));
}
}
return $self->{_account_key};
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.726 second using v1.00-cache-2.02-grep-82fe00e-cpan-dad7e4baca0 )