File Coverage

blib/lib/App/PasswordManager.pm

Criterion	Covered	Total	%
statement	58	65	89.2
branch	10	18	55.5
condition	1	3	33.3
subroutine	13	14	92.8
pod	0	6	0.0
total	82	106	77.3

package App::PasswordManager;

use strict;
use warnings;

use Crypt::PBKDF2;
use File::HomeDir;
use File::Spec;
use JSON;

our $VERSION = '1.0.0';

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();
    return $self;
}

sub add_password {
    my ( $self, $login, $password ) = @_;
    die "Login '$login' already exists!\n" if exists $self->{passwords}{$login};

    my $hashed_password = $self->{pbkdf2}->generate( $password, $self->{salt} );
    $self->{passwords}{$login} = {
        password => $hashed_password,
        salt     => $self->{salt},
    };
    $self->_save_passwords();
    return scalar keys %{ $self->{passwords} };
}

sub list_passwords {
    my ($self) = @_;
    return [ keys %{ $self->{passwords} } ];
}

sub remove_password {
    my ( $self, $login ) = @_;
    die "Login '$login' not found!\n" unless exists $self->{passwords}{$login};
    delete $self->{passwords}{$login};
    $self->_save_passwords();
    return 1;
}

sub edit_password {
    my ( $self, $login, $new_password ) = @_;
    die "Login '$login' not found!\n" unless exists $self->{passwords}{$login};

    my $hashed_password = $self->{pbkdf2}->generate( $new_password, $self->{salt} );
    $self->{passwords}{$login}{password} = $hashed_password;
    $self->{passwords}{$login}{salt}     = $self->{salt};
    $self->_save_passwords();
    return 1;
}

sub copy_to_clipboard {
    my ( $self, $login ) = @_;
    die "Login '$login' not found!\n" unless exists $self->{passwords}{$login};
    my $password = $self->{passwords}{$login}{password};
    open my $clip, '|-', 'xclip -selection clipboard'
      or die "Could not copy: $!";
    print $clip $password;
    close $clip;
    return 1;
}

sub _load_passwords {
    my ($self) = @_;
    if ( -e $self->{data_file} ) {
        open my $fh, '<', $self->{data_file} or die "Could not open file '$self->{data_file}': $!";
        local $/;
        my $json = <$fh>;
        close $fh;
        $self->{passwords} = decode_json($json) if $json;
    }
}

sub _save_passwords {
    my ($self) = @_;
    open my $fh, '>', $self->{data_file} or die "Could not open file '$self->{data_file}': $!";
    print $fh encode_json($self->{passwords});
    close $fh;
}

1;
__END__