Result:
found more than 817 distributions - search limited to the first 2001 files matching your query
( run in 1.803 )
App-ZodiacUtils
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_chinese-zodiac-of view on Meta::CPAN
#package Sah::SchemaR::rinci::function_meta;
#
#our $DATE = '2020-05-27'; # DATE
#our $VERSION = '1.1.90.1'; # VERSION
#
#our $rschema = do{my$a=["hash",[{_prop=>{args=>{_value_prop=>{caption=>{},cmdline_aliases=>{_value_prop=>{code=>{},description=>{},is_flag=>{},schema=>{},summary=>{}}},cmdline_on_getopt=>{},cmdline_prompt=>{},cmdline_src=>{},completion=>{},default=>...
#
#1;
## ABSTRACT: Rinci function metadata
#
#__END__
App-adler32
view release on metacpan or search on metacpan
[MinimumPerlFast]
[Test::Perl::Critic]
[Test::Version]
[GitHub::Create]
prompt = 1
repo = athreef
[Test::NoTabs]
[Test::EOL]
App-after
view release on metacpan or search on metacpan
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
# element_meta => 'fix',
App-bmkpasswd
view release on metacpan or search on metacpan
- Fall back to Term::ReadKey on MSWin32
2.011003 2016-03-09
- Fall back to Term::ReadKey to turn off terminal echo on 5.8.x, if
available; if not, warn loudly and suggest it before prompting for a
password to crypt
2.011002 2016-03-09
- Fix `bmkpasswd` executable on 5.8.x (no POSIX::ECHO available)
off terminal echo. (haarg clued me in to this in a conversation he was
having with tobyink on irc.perl.org #web-simple -- thanks!)
2.001000 2013-05-02
- Output `bmkpasswd` prompts to STDERR for more sensible redirection
- Make Term::ReadKey optional and warn if we don't have it
2.000003 2013-04-21
App-ccdiff
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
=head1 Git integration
You can use ccdiff to show diffs in git. It may work like this:
$ git config --global diff.tool ccdiff
$ git config --global difftool.prompt false
$ git config --global difftool.ccdiff.cmd 'ccdiff --utf-8 -u -r $LOCAL $REMOTE'
$ git difftool SHA~..SHA
$ wget https://github.com/Tux/App-ccdiff/raw/master/Files/git-ccdiff \
-O ~/bin/git-ccdiff
$ perl -pi -e 's{/pro/bin/perl}{/usr/bin/env perl}' ~/bin/git-ccdiff
App-cpackage
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
sub Makefile { $_[0] }
my %seen = ();
sub prompt {
shift;
# Infinite loop protection
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing or non-interactive session, always use defaults
if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
}
}
# Store a cleaned up version of the MakeMaker version,
# since we need to behave differently in a variety of
App-cpan2arch
view release on metacpan or search on metacpan
t/lib/TestData.pm view on Meta::CPAN
'perl-getopt-long',
'perl-http-date',
'perl-http-message',
'perl-io',
'perl-io-interactive',
'perl-io-prompt',
'perl-io-string',
'perl-io-zlib',
'perl-json',
'perl-json-pp>=2.27103',
'perl-libwww',
t/lib/TestData.pm view on Meta::CPAN
'perl-getopt-long'
'perl-http-date'
'perl-http-message'
'perl-io'
'perl-io-interactive'
'perl-io-prompt'
'perl-io-string'
'perl-io-zlib'
'perl-json'
'perl-json-pp>=2.27103'
'perl-libwww'
App-cpanbaker
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
sub Makefile { $_[0] }
my %seen = ();
sub prompt {
shift;
# Infinite loop protection
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing or non-interactive session, always use defaults
if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
}
}
# Store a cleaned up version of the MakeMaker version,
# since we need to behave differently in a variety of
App-cpanmigrate
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
sub Makefile { $_[0] }
my %seen = ();
sub prompt {
shift;
# Infinite loop protection
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing or non-interactive session, always use defaults
if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
}
}
# Store a cleaned up version of the MakeMaker version,
# since we need to behave differently in a variety of
App-cpanminus-reporter
view release on metacpan or search on metacpan
lib/App/cpanminus/reporter.pm view on Meta::CPAN
my ($class, %params) = @_;
my $self = bless {}, $class;
$self->config(
CPAN::Testers::Common::Client::Config->new(
prompt => sub { local %ENV; IO::Prompt::Tiny::prompt(@_) },
)
);
if ($params{cpanm}) {
my $cpanm = $self->_cpanm( $params{cpanm} );
lib/App/cpanminus/reporter.pm view on Meta::CPAN
print "Error reading CPAN Testers configuration file '$filename'. Aborting.";
return;
}
}
else {
my $answer = IO::Prompt::Tiny::prompt("CPAN Testers configuration file '$filename' not found. Would you like to set it up now? (y/n)", 'y');
if ( $answer =~ /^y/i ) {
$config->setup;
}
else {
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus.pm view on Meta::CPAN
Tests that require input from STDIN.
=item *
Build.PL or Makefile.PL that prompts for input even when
C<PERL_MM_USE_DEFAULT> is enabled.
=item *
Modules that have invalid numeric values as VERSION (such as C<1.1a>)
App-cpantimes
view release on metacpan or search on metacpan
mirror_index => undef,
perl => $^X,
argv => [],
local_lib => undef,
self_contained => undef,
prompt_timeout => 0,
prompt => undef,
configure_timeout => 60,
try_lwp => 1,
try_wget => 1,
try_curl => 1,
uninstall_shadows => ($] < 5.012),
},
'mirror=s@' => $self->{mirrors},
'mirror-only!' => \$self->{mirror_only},
'mirror-index=s' => sub { $self->{mirror_index} = $_[1]; $self->{mirror_only} = 1 },
'cascade-search!' => \$self->{cascade_search},
'prompt!' => \$self->{prompt},
'installdeps' => \$self->{installdeps},
'skip-installed!' => \$self->{skip_installed},
'skip-satisfied!' => \$self->{skip_satisfied},
'reinstall' => sub { $self->{skip_installed} = 0 },
'interactive!' => \$self->{interactive},
--installdeps Only install dependencies
--showdeps Only display direct dependencies
--reinstall Reinstall the distribution even if you already have the latest version installed
--mirror Specify the base URL for the mirror (e.g. http://cpan.cpantesters.org/)
--mirror-only Use the mirror's index file instead of the CPAN Meta DB
--prompt Prompt when configure/build/test fails
-l,--local-lib Specify the install base to install modules
-L,--local-lib-contained Specify the install base to install all non-core modules
--auto-cleanup Number of days that cpanm's work directories expire in. Defaults to 7
Commands:
cpanm -L extlib Plack # install Plack and all non-core deps into extlib
cpanm --mirror http://cpan.cpantesters.org/ DBI # use the fast-syncing mirror
You can also specify the default options in PERL_CPANM_OPT environment variable in the shell rc:
export PERL_CPANM_OPT="--prompt --reinstall -l ~/perl --mirror http://cpan.cpantesters.org"
Type `man cpanm` or `perldoc cpanm` for the more detailed explanation of the options.
HELP
push @{$self->{bootstrap_deps}},
'ExtUtils::MakeMaker' => 6.31,
'ExtUtils::Install' => 1.46;
}
sub prompt_bool {
my($self, $mess, $def) = @_;
my $val = $self->prompt($mess, $def);
return lc $val eq 'y';
}
sub prompt {
my($self, $mess, $def) = @_;
my $isa_tty = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ;
my $dispdef = defined $def ? "[$def] " : " ";
$def = defined $def ? $def : "";
if (!$self->{prompt} || (!$isa_tty && eof STDIN)) {
return $def;
}
local $|=1;
local $\;
my $ans;
eval {
local $SIG{ALRM} = sub { undef $ans; die "alarm\n" };
print STDOUT "$mess $dispdef";
alarm $self->{prompt_timeout} if $self->{prompt_timeout};
$ans = <STDIN>;
alarm 0;
};
if ( defined $ans ) {
chomp $ans;
sub build {
my($self, $cmd, $distname) = @_;
return 1 if $self->run_timeout($cmd, $self->{build_timeout});
while (1) {
my $ans = lc $self->prompt("Building $distname failed.\nYou can s)kip, r)etry, e)xamine build log, or l)ook ?", "s");
return if $ans eq 's';
return $self->build($cmd, $distname) if $ans eq 'r';
$self->show_build_log if $ans eq 'e';
$self->look if $ans eq 'l';
}
$self->diag_fail("Testing $distname failed but installing it anyway.");
return 1;
} else {
$self->diag_fail;
while (1) {
my $ans = lc $self->prompt("Testing $distname failed.\nYou can s)kip, r)etry, f)orce install, e)xamine build log, or l)ook ?", "s");
return if $ans eq 's';
return $self->test($cmd, $distname) if $ans eq 'r';
return 1 if $ans eq 'f';
$self->show_build_log if $ans eq 'e';
$self->look if $ans eq 'l';
sub install_deps_bailout {
my($self, $target, $dir, $depth, @deps) = @_;
my @fail = $self->install_deps($dir, $depth, @deps);
if (@fail) {
unless ($self->prompt_bool("Installing the following dependencies failed:\n==> " .
join(", ", @fail) . "\nDo you want to continue building $target anyway?", "n")) {
$self->diag_fail("Bailing out the installation for $target. Retry with --prompt or --force.", 1);
return;
}
}
return 1;
last if $state->{configured_ok};
}
unless ($state->{configured_ok}) {
while (1) {
my $ans = lc $self->prompt("Configuring $dist->{dist} failed.\nYou can s)kip, r)etry, e)xamine build log, or l)ook ?", "s");
last if $ans eq 's';
return $self->configure_this($dist, $depth) if $ans eq 'r';
$self->show_build_log if $ans eq 'e';
$self->look if $ans eq 'l';
}
else
{
$self->diag_fail;
while (1)
{
my $ans = lc $self->prompt("Testing $distname failed.\nYou can s)kip, r)etry, f)orce install, e)xamine build log, or l)ook ?", "s");
return if $ans eq 's';
return $self->test($cmd, $distname) if $ans eq 'r';
return 1 if $ans eq 'f';
$self->show_build_log if $ans eq 'e';
$self->look if $ans eq 'l';
--installdeps Only install dependencies
--showdeps Only display direct dependencies
--reinstall Reinstall the distribution even if you already have the latest version installed
--mirror Specify the base URL for the mirror (e.g. http://cpan.cpantesters.org/)
--mirror-only Use the mirror's index file instead of the CPAN Meta DB
--prompt Prompt when configure/build/test fails
-l,--local-lib Specify the install base to install modules
-L,--local-lib-contained Specify the install base to install all non-core modules
--verify Verify the integrity of distribution files. Defaults to false
--auto-cleanup Number of days that cpant's work directories expire in. Defaults to 7
cpant -L extlib Plack # install Plack and all non-core deps into extlib
cpant --mirror http://cpan.cpantesters.org/ DBI # use the fast-syncing mirror
You can also specify the default options in PERL_CPANM_OPT environment variable in the shell rc:
export PERL_CPANM_OPT="--prompt --reinstall -l ~/perl --mirror http://cpan.cpantesters.org"
Type `man cpanm` or `perldoc cpanm` for the more detailed explanation of the options.
HELP
App-datecalc
view release on metacpan or search on metacpan
script/datecalc view on Meta::CPAN
require IO::Stty;
require Term::ReadLine;
my $calc = App::datecalc->new;
my $term = Term::ReadLine->new('datecalc');
my $prompt = "> ";
my $OUT = $term->OUT || \*STDOUT;
my $histfile = File::HomeDir->my_home . "/.datecalc_history";
# load history from file
script/datecalc view on Meta::CPAN
# doesn't do anything?
#$term->ornaments(0);
#$attribs->{term_set} = ["", "", "", ""];
}
while ( defined ($_ = $term->readline($prompt)) ) {
my $res;
if ($_ eq 'help' || $_ eq '?') {
say "Type date expression into the prompt, e.g.: 2014-06-26 + 2 week.";
say "For more details on available features, 'man datecalc'.";
say "";
next;
} elsif ($_ eq 'exit' || $_ eq 'quit') {
last;
App-diceware
view release on metacpan or search on metacpan
share/wordlist_de.tsv view on Meta::CPAN
51154 profil
51155 profit
51156 prolet
51161 prolin
51162 prolog
51163 prompt
51164 propan
51165 prosa
51166 prosit
51211 proton
51212 protzt
App-digestarchive
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
sub Makefile { $_[0] }
my %seen = ();
sub prompt {
shift;
# Infinite loop protection
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing or non-interactive session, always use defaults
if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
}
}
# Store a cleaned up version of the MakeMaker version,
# since we need to behave differently in a variety of
App-dnsq
view release on metacpan or search on metacpan
lib/DNSQuery/Interactive.pm view on Meta::CPAN
sub run {
my ($self) = @_;
print "Interactive Mode - Type 'help' for commands, 'quit' to exit\n\n";
my $prompt = "dnsq> ";
while (defined(my $input = $self->{term}->readline($prompt))) {
chomp $input;
$input =~ s/^\s+|\s+$//g;
next if $input eq '';
$self->{term}->addhistory($input) if $input =~ /\S/;
App-easyDifferentialGeneCoexpressionWrapper
view release on metacpan or search on metacpan
bin/easyDifferentialGeneCoexpressionWrapper view on Meta::CPAN
system("mkdir -p $rscript_path $data_path $results_path");
}
#check 2 - check for the presence of curl binary in the $PATH.
#if not found, install on Ubuntu-based systems.
#if system is not Ubuntu-based systems, prompt user to install it manually.
my $check_curl = qx{which curl};
#check if current system is Ubuntu-based
my $ubuntu = qx{uname -a};
if (!$check_curl) {
App-find2perl
view release on metacpan or search on metacpan
script/find2perl view on Meta::CPAN
quoted from interpretation by the shell using a backslash (just as with
using C<find(1)>).
=item C<-ok OPTIONS ;>
Like -exec, but first prompts user; if user's response does not begin
with a y, skip the exec. The C<;> must be passed as
a distinct argument, so it may need to be surrounded by whitespace and/or
quoted from interpretation by the shell using a backslash (just as with
using C<find(1)>).
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_finddo view on Meta::CPAN
# caption => {},
# cmdline_aliases => {
# _value_prop => { code => {}, description => {}, is_flag => {}, schema => {}, summary => {} },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# cmdline_src => {},
# completion => {},
# default => {},
# default_lang => {},
# defhash_v => {},
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_genpw-base56 view on Meta::CPAN
# caption => {},
# cmdline_aliases => {
# _value_prop => { code => {}, description => {}, is_flag => {}, schema => {}, summary => {} },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# cmdline_src => {},
# completion => {},
# default => {},
# default_lang => {},
# defhash_v => {},
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_genpw-base58 view on Meta::CPAN
# caption => {},
# cmdline_aliases => {
# _value_prop => { code => {}, description => {}, is_flag => {}, schema => {}, summary => {} },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# cmdline_src => {},
# completion => {},
# default => {},
# default_lang => {},
# defhash_v => {},
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_genpw-base64 view on Meta::CPAN
#package Sah::SchemaR::rinci::function_meta;
#
#our $DATE = '2018-01-14';
#our $VERSION = '1.1.82.3';
#
#our $rschema = do{my$a=["hash",[{_prop=>{args=>{_value_prop=>{caption=>{},cmdline_aliases=>{_value_prop=>{code=>{},description=>{},is_flag=>{},schema=>{},summary=>{}}},cmdline_on_getopt=>{},cmdline_prompt=>{},cmdline_src=>{},completion=>{},default=>...
#
#1;
#
#__END__
#
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_genpw-id view on Meta::CPAN
#package Sah::SchemaR::rinci::function_meta;
#
#our $DATE = '2019-05-24'; # DATE
#our $VERSION = '1.1.90.0'; # VERSION
#
#our $rschema = do{my$a=["hash",[{_prop=>{args=>{_value_prop=>{caption=>{},cmdline_aliases=>{_value_prop=>{code=>{},description=>{},is_flag=>{},schema=>{},summary=>{}}},cmdline_on_getopt=>{},cmdline_prompt=>{},cmdline_src=>{},completion=>{},default=>...
#
#1;
## ABSTRACT: Rinci function metadata
#
#__END__
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_genpw-ind view on Meta::CPAN
#package Sah::SchemaR::rinci::function_meta;
#
#our $DATE = '2020-09-23'; # DATE
#our $VERSION = '1.1.94.0'; # VERSION
#
#our $rschema = do{my$a=["hash",[{_prop=>{args=>{_value_prop=>{caption=>{},cmdline_aliases=>{_value_prop=>{code=>{},description=>{},is_flag=>{},schema=>{},summary=>{}}},cmdline_on_getopt=>{},cmdline_prompt=>{},cmdline_src=>{},completion=>{},default=>...
#
#1;
## ABSTRACT: Rinci function metadata
#
#__END__
App-geoCancerDiagnosticDatasetsRetriever
view release on metacpan or search on metacpan
bin/geoCancerDiagnosticDatasetsRetriever view on Meta::CPAN
print color ("green"), "done\n", color("reset");
}
#check 3 - check for the presence of curl/lynx binaries in the $PATH.
#if not found, install on an Ubuntu/Ubuntu-based systems.
#if system is not Ubuntu, prompt user to install it manually.
my $check_curl = qx{which curl};
my $check_lynx = qx{which lynx};
#check if current system is Ubuntu/or Ubuntu-based
my $ubuntu = qx{uname -a};
bin/geoCancerDiagnosticDatasetsRetriever view on Meta::CPAN
$restart_input_file = basename($file);
last;
}
#If an old run file was found, prompt the user with choices to make.
if (-e "$run_dir") {
print color ("red"), "$cancer_type\_GEO-files directory exists...This run was not completed\n", color("reset");
my $text = "";
my $ok = timed_response( sub {
App-geoCancerPrognosticDatasetsRetriever
view release on metacpan or search on metacpan
bin/geoCancerPrognosticDatasetsRetriever view on Meta::CPAN
print color ("green"), "done\n", color("reset");
}
#check 3 - check for the presence of curl binary in the $PATH.
#if not found, install on an Ubuntu/Ubuntu-based systems.
#if system is not Ubuntu, prompt user to install it manually.
my $check = qx{which curl};
if (!$check) {
#check if current system is Ubuntu/or Ubuntu-based
bin/geoCancerPrognosticDatasetsRetriever view on Meta::CPAN
$restart_input_file = basename($file);
last;
}
#If an old run file was found, prompt the user with choices to make.
if (-e "$run_dir") {
print color ("red"), "$cancer_type\_GEO-files directory exists...This run was not completed\n", color("reset");
my $text = "";
my $ok = timed_response( sub {
App-get_flash_videos
view release on metacpan or search on metacpan
lib/FlashVideo/VideoPreferences.pm view on Meta::CPAN
return $self->{subtitles};
}
sub account {
my($self, $site, $prompt) = @_;
return FlashVideo::VideoPreferences::Account->new($site, $prompt);
}
1;
App-gh
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$AllDeps = 1;
}
}
}
# overrides MakeMaker's prompt() to automatically accept the default choice
sub _prompt {
goto &ExtUtils::MakeMaker::prompt unless $AcceptDefault;
my ( $prompt, $default ) = @_;
my $y = ( $default =~ /^[Yy]/ );
print $prompt, ' [', ( $y ? 'Y' : 'y' ), '/', ( $y ? 'n' : 'N' ), '] ';
print "$default\n";
return $default;
}
# the workhorse
inc/Module/AutoInstall.pm view on Meta::CPAN
map { +{@args}->{$_} }
grep { /^[^\-]/ or /^-core$/i } keys %{ +{@args} }
)[0]
);
# We want to know if we're under CPAN early to avoid prompting, but
# if we aren't going to try and install anything anyway then skip the
# check entirely since we don't want to have to load (and configure)
# an old CPAN just for a cosmetic message
$UnderCPAN = _check_lock(1) unless $SkipInstall || $InstallDepsTarget;
inc/Module/AutoInstall.pm view on Meta::CPAN
and (
$CheckOnly
or ($mandatory and $UnderCPAN)
or $AllDeps
or $InstallDepsTarget
or _prompt(
qq{==> Auto-install the }
. ( @required / 2 )
. ( $mandatory ? ' mandatory' : ' optional' )
. qq{ module(s) from CPAN?},
$default ? 'y' : 'n',
inc/Module/AutoInstall.pm view on Meta::CPAN
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
return
if _version_cmp( _version_of($class), $ver ) >= 0; # no need to upgrade
if (
_prompt( "==> A newer version of $class ($ver) is required. Install?",
'y' ) =~ /^[Nn]/
)
{
die "*** Please install $class $ver manually.\n";
}
inc/Module/AutoInstall.pm view on Meta::CPAN
# check if we're connected to some host, using inet_aton
sub _connected_to {
my $site = shift;
return (
( _load('Socket') and Socket::inet_aton($site) ) or _prompt(
qq(
*** Your host cannot resolve the domain name '$site', which
probably means the Internet connections are unavailable.
==> Should we try to install the required module(s) anyway?), 'n'
) =~ /^[Yy]/
inc/Module/AutoInstall.pm view on Meta::CPAN
*** You are not allowed to write to the directory '$path';
the installation may fail due to insufficient permissions.
.
if (
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
((-t STDIN) ? 'y' : 'n')
) =~ /^[Yy]/
)
inc/Module/AutoInstall.pm view on Meta::CPAN
print << ".";
*** The 'sudo' command exited with error! Resuming...
.
}
return _prompt(
qq(
==> Should we try to install the required module(s) anyway?), 'n'
) =~ /^[Yy]/;
}
App-git-hub
view release on metacpan or search on metacpan
share/lib/git-hub view on Meta::CPAN
git hub setup
Would you like to run it now?
...
prompt-to-run-setup
}
config-not-setup() {
cat <<...
share/lib/git-hub view on Meta::CPAN
use-auth = 1
Would you like to start the automated 'setup' process right now? (Do it!)
...
prompt-to-run-setup
}
prompt-to-run-setup() {
prompt
source-ext git-hub-setup
command:setup || exit 1
exit 0
}
share/lib/git-hub view on Meta::CPAN
exit 1
}
abort() { echo "Abort: $1" >&2; exit 1; }
prompt() {
local msg answer default yn=false password=false
case $# in
0) msg="${prompt_msg:-Press <ENTER> to continue, or <CTL>-C to exit.}" ;;
1)
msg="$1"
if [[ "$msg" =~ \[yN\] ]]; then
default=n
yn=true
share/lib/git-hub view on Meta::CPAN
;;
2)
msg="$1"
default="$2"
;;
*) die "Invalid usage of prompt" ;;
esac
if [[ "$msg" =~ [Pp]assword ]]; then
password=true
msg=$'\n'"$msg"
fi
App-github-cmd
view release on metacpan or search on metacpan
lib/Perinci/CmdLine/github/cmd.pm view on Meta::CPAN
This document describes version 0.008 of Perinci::CmdLine::github::cmd (from Perl distribution App-github-cmd), released on 2020-04-08.
=head1 DESCRIPTION
This subclass adds a hook at the C<before_parse_argv> phase to run setup
(prompting login+pass, then writing configuration file) if login+pass are not
found in configuration.
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-github-cmd>.
( run in 1.803 second using v1.01-cache-2.11-cpan-6aa56a78535 )