view release on metacpan or  search on metacpan

lib/App/PasswordManager.pm  view on Meta::CPAN

sub new {
    my ( $class, %args ) = @_;

    my $home_dir = File::HomeDir->my_home;
    my $file     = File::Spec->catfile( $home_dir, '.password_manager.json' );

    my $self = {
        pbkdf2     => Crypt::PBKDF2->new(
            hash_class => 'HMACSHA1',
            iterations => 10000,
            salt_len   => 10,
        ),
        data_file  => $args{file} || $file,
        salt       => 42,
        passwords  => {},
    };

    bless $self, $class;

    $self->_load_passwords();