view release on metacpan or search on metacpan
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
#package Sah::SchemaR::rinci::function_meta;
#
#our $DATE = '2021-07-20'; # DATE
#our $VERSION = '1.1.98.0'; # VERSION
#
#our $rschema = do{my$var=["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__
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
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
view release on metacpan or search on metacpan
lib/App/karr/Cmd/Delete.pm view on Meta::CPAN
=over 4
=item * C<--yes>
Skips the interactive confirmation prompt for each task.
=back
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/App/local/lib/Win32Helper.pm view on Meta::CPAN
To run it, just type
llw32helper
at the command prompt.
There are no command line parameters.
=head1 CONFIGURATION AND ENVIRONMENT
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;
inc/Module/AutoInstall.pm view on Meta::CPAN
!$SkipInstall
and (
$CheckOnly
or ($mandatory and $UnderCPAN)
or $AllDeps
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( _load($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]/;
}
view release on metacpan or search on metacpan
lib/App/locket.pm view on Meta::CPAN
--delay <delay> Keep value in clipboard for <delay> seconds
If value is still in the clipboard at the end of
<delay> then it will be automatically wiped from
the clipboard
--unsafe Turn the safety off. This will disable prompting
before emitting any sensitive information in
plaintext. There will be no opportunity to
abort (via CTRL-C)
--cfg <file> Use <file> for configuration
lib/App/locket.pm view on Meta::CPAN
return \*STDIN;
}
sub read_passphrase {
my $self = shift;
my $prompt = shift;
if ( defined $prompt ) {
$self->stderr( $prompt );
}
my $passphrase;
ReadMode 2;
try {
lib/App/locket.pm view on Meta::CPAN
=head2 Encryption/decryption
App::locket defers actual encryption/decryption to external tools. The choice of the actual
cipher/encryption method is left up to you
If you're using GnuPG, then you could use C<gpg-agent> for passphrase prompting and limited retention
=head2 In-memory encryption
App::locket does not perform any in-memory encryption; once the cipherstore is loaded it is exposed in memory
lib/App/locket.pm view on Meta::CPAN
--delay <delay> Keep value in clipboard for <delay> seconds
If value is still in the clipboard at the end of
<delay> then it will be automatically wiped from
the clipboard
--unsafe Turn the safety off. This will disable prompting
before emitting any sensitive information in
plaintext. There will be no opportunity to
abort (via CTRL-C)
setup Setup a new or edit an existing user configuration
view release on metacpan or search on metacpan
etc/lookup.el view on Meta::CPAN
(when (eq system-type 'cygwin)
(setq lookup-command \"lookup -w 'cygstart'\"))"
:group 'lookup :type 'string)
(defcustom lookup-prompt-function
(if (fboundp 'ido-completing-read)
'ido-completing-read
'completing-read)
"The function used to prompt user for lookup sites")
(defcustom lookup-sites-mode-alist nil
"Alist mapping major-modes to their associated sites.
Each cons cell in this alist contains the name of the major-mode
as the associated key and the name of the sites (multiple sites
etc/lookup.el view on Meta::CPAN
(replace-regexp-in-string
"\s*$" "" site))
sites))))
lookup-sites-cache)
(defun lookup--prompt-for-query (&optional site)
"Prompt user for query argument to the command lookup.
The prompt message is adjusted depending on the existence of
symbol under point and whether the argument SITE is supplied or
not."
(let* ((word (thing-at-point 'symbol))
(query (read-string
(cond ((and word site)
etc/lookup.el view on Meta::CPAN
query))
(defvar lookup-sites-hist nil
"History of previously searched sites")
(defun lookup--prompt-for-sites (sites)
(funcall lookup-prompt-function "Site: " sites nil t nil 'lookup-sites-hist))
(defun lookup-quick ()
"Call `lookup' with predefined sites based on current `major-mode'.
This command will complain if current `major-mode' is not
associated with any sites (see the variable
etc/lookup.el view on Meta::CPAN
query sitename)
(unless possible-sites
(error "%s is not associated with any site" major-mode))
(setq sitename
(if (> (length possible-sites) 1)
(lookup--prompt-for-sites possible-sites)
(car possible-sites)))
(setq query (lookup--prompt-for-query sitename))
(lookup sitename query)))
(defun lookup (sitename query &optional recache)
"Interact with the program lookup within emacs.
SITENAME and QUERY will be passed to lookup as its command line
arguments.
When used interactively, prompt user the list of available sites
for SITENAME and the query string QUERY (defaults to symbol at
point). With one prefix-arg (the argument RECACHE if called from
lisp), recache the sites first."
(interactive
(let ((sites (lookup--get-sites current-prefix-arg)))
(list
(lookup--prompt-for-sites sites)
(lookup--prompt-for-query)
current-prefix-arg)))
(shell-command
(format "%s '%s' %s" lookup-command sitename query)))
(provide 'lookup)
view release on metacpan or search on metacpan
max_target_perl = 5.8
[MinimumPerlFast]
[Test::Version]
[GitHub::Create]
prompt = 1
repo = athreef
[Test::NoTabs]
[Test::EOL]
view release on metacpan or search on metacpan
[MinimumPerlFast]
[Test::Perl::Critic]
[Test::Version]
[GitHub::Create]
prompt = 1
repo = athreef
[Test::NoTabs]
[Test::EOL]
view release on metacpan or search on metacpan
script/lupa-pona view on Meta::CPAN
say "If so, please provide your hostname (e.g. localhost).";
say "If not, just press Enter.";
local $SIG{'ALRM'} = sub {
die "Timed out!\n";
};
alarm(30); # timeout for the following prompt
my $hostname = <STDIN>;
alarm(0); # done, no more alarm
chomp $hostname;
die "Some other day.\n" unless $hostname;
die "The hostname may not contain any whitespace\n" if $hostname =~ /\s/;
view release on metacpan or search on metacpan
scripts/mailmake view on Meta::CPAN
Signing key fingerprint or ID (required when C<--gpg-sign> is used).
=item B<--gpg-passphrase> PASSPHRASE
Passphrase to unlock the secret key. When omitted, C<gpg-agent> is expected to handle passphrase prompting.
=item B<--gpg-recipients> ADDRESS [ADDRESS ...]
Recipient key IDs or e-mail addresses for encryption. Defaults to C<--to> when not specified.
view release on metacpan or search on metacpan
script/manwrap-pm view on Meta::CPAN
'names-only' => $noop,
'all|a' => $noop,
'update|u' => $noop,
'no-subpages' => $noop,
'pager|P=s' => $noop,
'prompt|r=s' => $noop,
'ascii|7' => $noop,
'encoding|E=s' => $noop,
'no-hyphenation|nh' => $noop,
'no-justification|nj' => $noop,
'preprocessor|p=s' => $noop,
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_metasyn 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__
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
view release on metacpan or search on metacpan
[@Milla]
[MetaProvides::Package]
[Substitute]
code = s/^(This document describes \S+ version |VERSION=['"])([^'"\r\n]*)/my($s,$v)=($1,$2);my%h=%Term::ReadLine::Gnu::Attribs;$s.($h{prompt}?($h{line_buffer}||$h{prompt}=~m{ \[(.*)\]})[0]:$v)/e
[AssertOS]
bundle = 0
os = -MicrosoftWindows
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD';
package Module::Build;use if $] >= 5.019,'deprecate';use 5.006;use strict;use warnings;use File::Spec ();use File::Path ();use File::Basename ();use Perl::OSType ();use Module::Build::Base;our@ISA=qw(Module::Build::Base);our$VERSION='0.03';$VERSION...
MODULE_BUILD
$fatpacked{"Module/Build/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_BASE';
package Module::Build::Base;use 5.006;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Carp;use Cwd ();use File::Copy ();use File::Find ();use File::Path ();use File::Basename ();use File::Spec 0.82 ();use File::Compare ();use M...
ERRORS/WARNINGS FOUND IN PREREQUISITES. You may wish to install the versions
of the modules indicated above before proceeding with this installation
EOF
mimi.fatpack view on Meta::CPAN
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
require ExtUtils::MakeMaker;
my $yn = ExtUtils::MakeMaker::prompt
(' Install Module::Build now from CPAN?', 'y');
unless ($yn =~ /^y/i) {
die " *** Cannot install without Module::Build. Exiting ...\n";
}
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]/;
}
view release on metacpan or search on metacpan
lib/App/module/version.pm view on Meta::CPAN
$VERSION = eval $VERSION;
sub new {
my $class = shift;
return bless {
prompt => 0,
prompted => [],
list => [],
}, $class;
}
sub parse_options {
lib/App/module/version.pm view on Meta::CPAN
GetOptionsFromArray(\@a,
'help|?' => sub { pod2usage(-exitstatus => 0, -verbose => 0); },
'man' => sub { pod2usage(-exitstatus => 0, -verbose => 2); },
'usage' => sub { _usage(); },
'version' => sub { _version(); exit(1); },
'prompt' => \$self->{prompt},
) or pod2usage(-verbose => 2);
if (0 == scalar @a) {
$self->{prompt} = 1;
}
else {
@{$self->{list}} = @a;
}
}
sub do_job {
my $self = shift;
if ($self->{prompt}) {
_version();
print "\nPlease type in a space-separated list of modules you want to find\nthe installed versions for below.\n> ";
my $cmd = <STDIN>;
@{$self->{prompted}} = split m{\s+}, $cmd;
}
print "\n";
my $version_info;
MODULE:
for my $module (@{$self->{list}}, @{$self->{prompted}}) {
if ('perl' eq lc($module)) {
print "The version of perl is $PERL_VERSION on $OSNAME ($Config{archname})\n";
next MODULE;
}
lib/App/module/version.pm view on Meta::CPAN
}
}
print "\n";
if ($self->{prompt}) {
require Term::ReadKey;
my $char = undef;
print "Press any key to exit.\n";
$char = Term::ReadKey::ReadKey(-1) until $char;
}
lib/App/module/version.pm view on Meta::CPAN
print <<"EOF";
This is $script, version $VERSION, which checks the
installed version of the modules named on the command line.
Usage: $script [ --help ] [ --usage ] [ --man ] [ --version ] [ -? ]
[--prompt] Module::To::Check ...
For more assistance, run $script --help.
EOF
exit(1);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
require ExtUtils::MakeMaker;
my $yn = ExtUtils::MakeMaker::prompt
(' Install Module::Build now from CPAN?', 'y');
unless ($yn =~ /^y/i) {
die " *** Cannot install without Module::Build. Exiting ...\n";
}
view release on metacpan or search on metacpan
lib/App/orgadb/Select/Shell.pm view on Meta::CPAN
while (1) {
my $line;
{
no warnings 'once';
local $Signal::Safety = 0; # limit the use of unsafe signals
$line = $o->readline($o->prompt_str);
}
last unless defined($line);
my $time1 = time();
$o->cmd($line);
my $time2 = time();
lib/App/orgadb/Select/Shell.pm view on Meta::CPAN
my $self = shift;
print "\n";
$self->save_history;
}
sub prompt_str {
my $self = shift;
"> ";
}
view release on metacpan or search on metacpan
$term->addhistory($line);
}
close $hist;
}
my $prompt = $alias.' $ ';
# For autocomplete
my @words = qw(exit help count
list search delete
text text_to_file html
html_to_file revcount authors
infos writeconf use
alist current open);
my @commands;
while (defined($_ = $term->readline($prompt))) {
chomp;
@commands = split(' ', $_);
my $command = shift @commands || '';
_addtohistory($_) unless ($command eq 'exit');
if (!$ec->check_token()) {
print STDERR 'ERROR: Unable to bind with the etherpad instance.', "\n";
exit 5;
}
$prompt = $alias.' $ ';
} else {
print 'ERROR: Bad instance alias. Unable to get configuration for instance alias ', $alias, "\n";
}
} else {
print 'ERROR: no alias given!', "\n";
view release on metacpan or search on metacpan
required.
INITIAL SET-UP
$ passmanager init
Call the initialisation command as shown, and you will be prompted for
your own passphrase (twice) and the master passphrase for the store
(also twice). Then the Git repository will be initialised and you are
shown the password management interface.
Subsequently, run the application with the "open" command and you will
be prompted for your own passphrase:
$ passmanager open
Use the "--help" flag to see what options are available. In general you
can set the location of the Git repository, the name of the password
view release on metacpan or search on metacpan
lib/App/pepper.pm view on Meta::CPAN
our $term;
$term = Term::ReadLine->new('pepper') if (-t STDIN && -t STDOUT);
my $outfh = ($term ? \*STDOUT : \*STDERR);
my $prompt = 'pepper> ';
my $histfile = $ENV{'HOME'}.'/.pepper_history';
my $xml = XML::LibXML->new;
lib/App/pepper.pm view on Meta::CPAN
#
# main loop
#
my $last;
while (1) {
$prompt = sprintf('pepper (%s@%s)> ', $epp->{'user'}, $epp->{'host'}) if ($epp->authenticated);
my $command;
if ($term) {
$command = $term->readline($prompt);
} else {
$command = <STDIN>;
chomp($command);
lib/App/pepper.pm view on Meta::CPAN
Pepper supports two usage modes:
=over
=item 1. B<Interactive mode:> this is the default mode. Pepper will provide a command prompt (with history and line editing capabilities) allowing you to input commands manually.
=item 2. B<Script mode:> if Pepper's C<STDIN> is fed a stream of text (ie, it's not attached to a terminal) then commands will be read from C<STDIN> and executed sequentially. Pepper will exit once EOF is reached.
=back
view release on metacpan or search on metacpan
perlall.txt view on Meta::CPAN
perlall=5.15.* perlall cpanm -f --sudo YAML
perlall init      # installs e.g. Bundle::CPANReporter2
                          # wait and prompt for the next 2hrs
cd ~/Perl/B-Generate
view release on metacpan or search on metacpan
lib/App/perlbrew.pm view on Meta::CPAN
my $out = $self->root->bin($program_name);
if ( -f $out && !$self->{force} && !$self->{yes} ) {
require ExtUtils::MakeMaker;
my $ans = ExtUtils::MakeMaker::prompt( "\n$out already exists, are you sure to override ? [y/N]", "N" );
if ( $ans !~ /^Y/i ) {
print "\n$program_name installation skipped.\n\n" unless $self->{quiet};
return;
}
lib/App/perlbrew.pm view on Meta::CPAN
push @dir_to_delete, $to_delete->{dir};
my $ans = ( $self->{yes} ) ? "Y" : undef;
if ( !defined($ans) ) {
require ExtUtils::MakeMaker;
$ans = ExtUtils::MakeMaker::prompt(
"\nThe following perl+lib installation(s) will be deleted:\n\n\t"
. join( "\n\t", @dir_to_delete )
. "\n\n... are you sure ? [y/N]",
"N"
);
view release on metacpan or search on metacpan
lib/App/perlrdf/Command/StoreTruncate.pm view on Meta::CPAN
Note that because multiple stores may share a database, the 'nuke' option
does not currently drop the database; it just removes the table which holds
RDF quads.
When one or more graph URIs are specified, the 'nuke' option is ignored,
and prompts are skipped.
DESCRIPTION
use constant opt_spec => (
__PACKAGE__->store_opt_spec,
[]=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>,
[ 'graph|g=s@', 'Graph(s) to delete (default: all graphs)' ],
[ 'yes', 'Answer "yes" to prompts' ],
[ 'nuke', 'Delete the entire store' ],
);
sub execute
{
lib/App/perlrdf/Command/StoreTruncate.pm view on Meta::CPAN
if $opt->{nuke};
}
else
{
if ($opt->{yes} or prompt_yn("Really delete all data from this store?"))
{
$model->remove_statements((undef)x4);
}
if ($opt->{nuke})
{
if ($opt->{yes} or prompt_yn("Really nuke this store?"))
{
$store->nuke;
}
}
}
view release on metacpan or search on metacpan
lib/App/perluse.pm view on Meta::CPAN
$ wget -O- http://git.io/dXVJCg | sh
=head1 ENVIRONMENT
The script sets C<VIRTUAL_ENV> and C<debian_chroot> environment variables so
shell prompt line should mark current Perl environment used.
=head1 SEE ALSO
L<http://github.com/dex4er/perluse>, perluse(1).
view release on metacpan or search on metacpan
lib/App/Phoebe/Chat.pm view on Meta::CPAN
The URL will look something like this:
C<gemini://localhost/do/chat/listen> or
C<gemini://localhost/space/do/chat/listen>
The I<Say URL> is where you post things you want to say: point your client at
the URL, it prompts your for something to say, and once you do, it redirects you
to the same URL again, so you can keep saying things.
The URL will look something like this: C<gemini://localhost/do/chat/say> or
C<gemini://localhost/space/do/chat/say>