view release on metacpan or  search on metacpan

scripts/passphrase-test  view on Meta::CPAN

use warnings;

use Data::Passphrase;
use Data::Passphrase::Ruleset;
use Getopt::Long;
use Readonly;
use Test::More;

Readonly my $DEFAULT_RULES_FILE => '/etc/passphrase_rules';

# subclass of LWP::UserAgent that grabs credentials
my $Username = $ENV{LOGNAME};
my $Password;
package MyAgent;
use base qw(LWP::UserAgent);
sub get_basic_credentials { ($Username, $Password) };
package main;

# parse command line
my ($debug, $help, $location);
my $file = $DEFAULT_RULES_FILE;
GetOptions
    'd|debug'        => \$debug,
    'f|rules-file=s' => \$file,
    'l|location=s'   => \$location,
    'h|help'         => \$help,