]>
Dogcows Code - chaz/p5-File-KDBX/blob - lib/File/KDBX/Key/Password.pm
1 package File
::KDBX
::Key
::Password
;
2 # ABSTRACT: A password key
7 use Crypt
::Digest
qw(digest_data);
10 use File
::KDBX
::Util
qw(erase);
13 use parent
'File::KDBX::Key';
15 our $VERSION = '999.999'; # VERSION
19 my $primitive = shift // throw
'Missing key primitive';
21 $self->_set_raw_key(digest_data
('SHA256', encode
('UTF-8', $primitive)));
This page took 0.030019 seconds and 4 git commands to generate.