view release on metacpan or  search on metacpan

t/lib/script/testapp_setpassword.pl  view on Meta::CPAN

use strict;
use File::ShareDir;
use Getopt::Compact;
use TestApp;
use OpusVL::AppKit::Schema::AppKitAuthDB;

my $username;
my $password;

# .. set option the arguments prefs..
my $go = new Getopt::Compact
(
    name => 'TestApp Users admin script', 
    struct =>
    [
        [[qw(u user)],      qq(specify a username), '=s', \$username],
        [[qw(p password)],  qq(specify a password), '=s', \$password],
     ]
);