view release on metacpan or  search on metacpan

script/password_manager  view on Meta::CPAN

        $manager->remove_password($delete);
        print "Password for '$delete' removed successfully.\n";
    };
    if ($@) {
        print "Error: $@\n";
    }
} elsif (@edit_args == 2) {
    my ($login, $new_password) = @edit_args;
    eval {
        $manager->edit_password($login, $new_password);
        print "Password for '$login' updated successfully.\n";
    };
    if ($@) {
        print "Error: $@\n";
    }
} elsif ($copy) {
    eval {
        $manager->copy_to_clipboard($copy);
        print "Password for '$copy' copied to clipboard.\n";
    };
    if ($@) {

t/02_functionality.t  view on Meta::CPAN

    my ($fh, $tempfile) = tempfile();

    my $password_manager = App::PasswordManager->new(file => $tempfile);

    $password_manager->add_password("user1", "password123");

    my $new_password = "newpassword456";
    $password_manager->edit_password("user1", $new_password);

    my $passwords = $password_manager->{passwords};
    is($passwords->{user1}{password}, $password_manager->{pbkdf2}->generate($new_password, $password_manager->{salt}), 'Password should be updated');
};

subtest 'add_password_with_existing_login' => sub {
    my ($fh, $tempfile) = tempfile();

    my $password_manager = App::PasswordManager->new(file => $tempfile);

    $password_manager->add_password("user1", "password123");

    eval {