view release on metacpan or  search on metacpan

bin/indigestable-crypt  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Acme::Indigest::Crypt;
use Term::ReadKey;

sub _readline {
    my $prompt = shift;
    if ( defined $prompt ) {
        print $prompt;
    }
    ReadMode 2;
    my $line = <STDIN>;
    chomp $line;
    ReadMode 0;
    print "\n";
    return $line;
}

sub _digest {