Result:
found more than 817 distributions - search limited to the first 2001 files matching your query
( run in 1.881 )
App-pimpd
view release on metacpan or search on metacpan
lib/App/Pimpd/Playlist.pm view on Meta::CPAN
Parameters: @playlists
Tries hard to find valid, existing playlists based on input.
If a playlist doesn't exist, tries to match the strings against the existing
ones (using B<get_valid_lists()> from B<App::Pimpd::Validate>), presenting
the user with a prompt.
get_valid_lists() returns a list of valid playlists which we add to the current
playlist.
=item play_pos_from_playlist()
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
bin/plx-packed view on Meta::CPAN
--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
-M,--from Use only this mirror base URL and its index file
--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
--self-contained Install all non-core modules, even if they're already installed.
--auto-cleanup Number of days that cpanm's work directories expire in. Defaults to 7
bin/plx-packed view on Meta::CPAN
cpanm --mirror http://cpan.cpantesters.org/ DBI # use the fast-syncing mirror
cpanm -M https://cpan.metacpan.org App::perlbrew # use only this secure mirror and its index
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
!
bin/plx-packed view on Meta::CPAN
=item --cpanfile
B<EXPERIMENTAL>: Specified an alternate path for cpanfile to search for,
when C<--installdeps> command is in use. Defaults to C<cpanfile>.
=item --prompt
Prompts when a test fails so that you can skip, force install, retry
or look in the shell to see what's going wrong. It also prompts when
one of the dependency failed if you want to proceed the installation.
Defaults to false, and you can say C<--no-prompt> to override if it's
set in the default options in C<PERL_CPANM_OPT>.
=item --dev
B<EXPERIMENTAL>: search for a newer developer release as well. Defaults to false.
bin/plx-packed view on Meta::CPAN
directory.
If you try to uninstall a module in C<perl> directory (i.e. core
module), an error will be thrown.
A dialog will be prompted to confirm the files to be deleted. If you pass
C<-f> option as well, the dialog will be skipped and uninstallation
will be forced.
=item --cascade-search
App-pmodinfo
view release on metacpan or search on metacpan
lib/App/pmodinfo.pm view on Meta::CPAN
push( @need_update, $module );
}
if ( scalar(@need_update) ) {
my $ans = lc $self->prompt( "Do you need to update this modules now ? (y/n)", "n" );
$self->update_modules(@need_update) if $ans eq 'y';
}
else {
print "already up to date.";
}
exit 0;
}
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 : "";
lib/App/pmodinfo.pm view on Meta::CPAN
L<Module::Metadata>, L<Module::CoreList>, L<Module::Build>,
L<Parse::CPAN::Meta>, L<ExtUtils::Installed>.
=head1 ACKNOWLEDGE
L<cpanminus>, for the check_module, prompt function and inspiration. :-)
=head1 AUTHOR
Thiago Rondon <thiago@nsms.com.br>
App-pmuninstall
view release on metacpan or search on metacpan
lib/App/pmuninstall.pm view on Meta::CPAN
}
$self->puts;
$default = 'n';
}
return lc($self->prompt("Are you sure you want to uninstall $dist?", $default)) eq 'y';
}
sub find_deps {
my ($self, $vname, $module) = @_;
lib/App/pmuninstall.pm view on Meta::CPAN
}
return @deps;
}
sub prompt {
my ($self, $msg, $default) = @_;
require ExtUtils::MakeMaker;
ExtUtils::MakeMaker::prompt($msg, $default);
}
sub fixup_packlist {
my ($self, $packlist) = @_;
my @target_list;
lib/App/pmuninstall.pm view on Meta::CPAN
Usage:
pm-uninstall [options] Module [...]
options:
-v,--verbose Turns on chatty output
-f,--force Uninstalls without prompts
-c,--checkdeps Check dependencies (defaults to on)
-n,--no-checkdeps Don't check dependencies
-q,--quiet Suppress some messages
-h,--help This help message
-V,--version Show version
lib/App/pmuninstall.pm view on Meta::CPAN
=over
=item -f, --force
Uninstalls without prompts
$ pm-uninstall -f App::pmuninstall
=item -v, --verbose
App-podispell
view release on metacpan or search on metacpan
bin/podispell view on Meta::CPAN
podispell [ -d <dictionary> ] [ -b ] lib/My/Library.pm lib/My/SecondLibrary.pm
=head1 DESCRIPTION
This is an interactive Pod spell checker, modeled after the ispell interface.
It will prompt for corrections on any spelling mistakes it finds, and overwrite
the original file when complete.
Requires C<hunspell>.
=head1 OPTIONS
App-powerdiff
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
[GitHubREADME::Badge]
badges = travis
badges = coveralls
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_ppgrep 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-prepare4release
view release on metacpan or search on metacpan
xt/author/cpants.t view on Meta::CPAN
}
my $make = $ENV{MAKE} || 'make';
if ( -e $tb_path ) {
unlink $tb_path
or BAIL_OUT("Cannot remove stale tarball $tb_path (gzip would prompt): $!");
}
{
my $rc = system( $make, 'tardist' );
BAIL_OUT("make tardist failed (exit $rc)") if $rc != 0;
}
App-psst
view release on metacpan or search on metacpan
lib/App/psst.pm view on Meta::CPAN
}
=head1 NAME
App::psst - prompt string setting tool
=head1 VERSION
version 0.09
App-ptimeout
view release on metacpan or search on metacpan
inc/Devel/CheckOS.pm view on Meta::CPAN
=head1 AUTHOR
David Cantrell E<lt>F<david@cantrell.org.uk>E<gt>
Thanks to David Golden for the name and ideas about the interface, and
to the cpan-testers-discuss mailing list for prompting me to write it
in the first place.
Thanks to Ken Williams, from whose L<Module::Build> I lifted some of the
information about what should be in the Unix family.
App-redisp
view release on metacpan or search on metacpan
lib/App/redisp.pm view on Meta::CPAN
my $short_server = $self->host =~ /[0-9]$/
? $self->host # IP address
: ($self->host =~ /^([^.]+)/)[0];
my $read = Term::ReadLine->new($short_server);
my $prompt = "$short_server> ";
while(1) {
my $line = $read->readline($prompt);
exit unless defined $line;
$read->addhistory($line) if $line =~ /\S/;
if($line =~ /^(?:\?|help)$/) {
print <DATA>;
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
"solarized-dark":".hljs-solarized-dark .hljs{display:block;overflow-x:auto;padding:.5em;background:#002b36;color:#839496}.hljs-solarized-dark .hljs-comment,.hljs-solarized-dark .hljs-quote{color:#586e75}.hljs-solarized-dark .hljs-keyword,.hljs-solari...
containerLayout:'<div class="remark-notes-area">\n <div class="remark-top-area">\n <div class="remark-toolbar">\n <a class="remark-toolbar-link" href="#increase">+</a>\n <a class="remark-toolbar-link" href="#decrease">-</a>\n <span...
App-rename
view release on metacpan or search on metacpan
bin/rename.PL view on Meta::CPAN
GetOptions(
'b|backup' => \$opt_backup, # [make a backup of each existing destionation file]
'c|copy' => \$opt_copy, # [copy files instead of rename]
'C|cmd|command=s' => \$opt_command, # [specify command to use instead of rename]
'B|prefix=s' => \$opt_prefix, # [set backup filename prefix]:backup filename prefix
'f|force' => \$opt_force, # [do not prompt before overwriting]
'g|git' => sub { $opt_command = 'git mv' }, # [use git to move files instead of rename]
'h|help' => \$opt_help, # -[display help and exit]
'i|interactive' => \$opt_interactive, # [prompt before overwrite]
'l|link-only' => \$opt_linkonly, # [hard link files instead of rename]
'n|just-print|dry-run' => \$opt_dryrun, # [don't rename, implies --verbose]
's|stdin!' => \$opt_stdin, # [read filenames from standard input]
'version' => \$opt_version, # -[output version information and exit]
'v|verbose' => \$opt_verbose, # [explain what is being done]
bin/rename.PL view on Meta::CPAN
-b, --backup make backup before removal
-c, --copy copy file instead of rename
-C, --commmand=COMMAND use COMMAND instead of rename
-B, --prefix=SUFFIX set backup filename prefix
-f, --force remove existing destinations, never prompt
-g, --git use 'git mv' instead of rename
-i, --interactive prompt before overwrite
-l, --link-only link file instead of rename
-n, --just-print, --dry-run don't rename, implies --verbose
-v, --verbose explain what is being done
-V, --version-control=METHOD override the usual version control
-Y, --basename-prefix=PREFIX set backup filename basename prefix
bin/rename.PL view on Meta::CPAN
given filename is not modified by the expression, it will not be renamed.
If no filenames are given on the command line, filenames will be read via
standard input (unless B<--no-stdin> is supplied on the command line).
If a destination file is unwritable, the standard input is a tty, and the
B<-f> or B<--force> option is not given, rename prompts the user for whether
to overwrite the file. If the response does not begin with `y' or `Y', the
file is skipped.
=head1 OPTIONS
bin/rename.PL view on Meta::CPAN
original filename, the second with the new. Without any {}'s, the old
and new filename will be appended to the I<command>.
=item B<-f>, B<--force>
Remove existing destination files and never prompt the user.
=item B<-g>, B<--git>
Shortcut for B<--command "git mv">.
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
script/_reposdb-inline 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-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
App-riap
view release on metacpan or search on metacpan
lib/App/riap.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/riap.pm view on Meta::CPAN
my $self = shift;
print "\n";
$self->save_history;
}
sub prompt_str {
my $self = shift;
join(
"",
$self->colorize("riap", "4169e1"), " ", # royal blue
$self->colorize($self->state("pwd"), "2e8b57"), " ", # seagreen
App-rs
view release on metacpan or search on metacpan
And with all these preparations done the rest was really easy and smooth, I
uploaded the iso file and booted the VPS, did disk partition first, formatted
the filesystems after that, and then installed the bootloader, finally tranferred
the root filesystem tarball using C<scp> and extracted it. I rebooted the
VPS and saw a login prompt as a indication of success, the installation is done!
=head1 PERFORMANCE
B<rs> is actually pretty efficient, all the serializations routines are
written in C<C>, the first C<diff> operation will probably take some
all together and use the GUI of C<qemu> if you happen to like it.
For simplicity, I used a Perl one liner as the init system, it's a poor
man's init but it does the job, it starts twelve virtual consoles from
C<tty1> to C<tty12> but it doesn't restart them, so don't be confused
if you logged out but a new login prompt is not displayed, just restart
the VT mannually using C<setsid /sbin/agetty ttyX>. Feel free to change the
init system to whatever you like, the whole point of RSLinux is to go
for it instead of doing meaningless arguing with others.
The B<rs> profile is already properly written under the home of C<root>, it's
App-sbozyp
view release on metacpan or search on metacpan
-b FILE Use FILE as blacklist instead of /etc/sbozyp/sbozyp.blacklist
-f Force install/update even if package is up to date or blacklisted
-k Keep the built package (resides in TMPDIR)
-n Skip md5sum verification of downloaded sources
-r Install package dependencies recursively
-y No interactive prompt
-z Keep and reuse downloaded sources (reside in SRCDIR)
Examples:
sbozyp install --help
Options are:
-h|--help Print help message and exit
-f Force rebuilding the package even if it's already built
-n Skip md5sum verification of downloaded sources
-y No confirmation prompt
-z Keep and reuse downloaded sources (reside in SRCDIR)
Examples:
sbozyp build --help
Options are:
-h|--help Print help message and exit
-f Disable removal safety check (DANGEROUS)
-r Recursively remove package dependencies that are safe to remove
-y No confirmation prompt
Examples:
sbozyp remove --help
sbozyp rm xclip mu system/password-store
App-scriptdist
view release on metacpan or search on metacpan
lib/App/scriptdist.pm view on Meta::CPAN
);
$VERSION = '1.006';
@EXPORT_OK = qw(
prompt find_files copy gitify content
script_template
%Content
);
%EXPORT_TAGS = (
'all' => [ @EXPORT_OK ],
lib/App/scriptdist.pm view on Meta::CPAN
=head1 FUNCTIONS
=over 4
=item prompt( QUERY )
Provide a prompt, get the response, chomp the neewline, and return
the answer.
=cut
sub prompt {
my( $query ) = shift;
print $query;
chomp( my $reply = <STDIN> );
App-sersh
view release on metacpan or search on metacpan
$hist_file->spew(\@histfile_lines);
}
@histfile_lines = map {chomp($_); $_;} @histfile_lines;
my $run_cv = AnyEvent->condvar;
my $prompt_prefix = $serial_fn . "> ";
my $serial_ae = AnyEvent::SerialPort->new(
serial_port => [
$serial_fn,
[baudrate => $baudrate],
$hdl->rbuf = '';
}
);
my $term_rl = AnyEvent::ReadLine::Gnu->new(
prompt => $prompt_prefix,
on_line => sub {
my ($line) = @_;
# EOF
if (!defined($line)) {
my $old_text = $term_rl->Attribs->{line_buffer};
$term_rl->modifying;
$term_rl->delete_text;
$term_rl->Attribs->{point} = $term_rl->Attribs->{end} = 0;
$term_rl->redisplay;
AnyEvent::ReadLine::Gnu->print($prompt_prefix . $old_text . "^C\n");
};
AnyEvent::ReadLine::Gnu->print(
'connected to ', $serial_fn, ', baudrate: ', $baudrate, ', databits: ', $databits,
', parity: ', $parity, ', stobits: ', $stopbits, ', handshake: ', $handshake,
App-sh2p
view release on metacpan or search on metacpan
lib/App/sh2p/Builtins.pm view on Meta::CPAN
########################################################
sub do_read {
my %args;
my $prompt = 'undef';
my $ntok;
local @ARGV;
# First argument is 'read'
shift @_;
lib/App/sh2p/Builtins.pm view on Meta::CPAN
}
getopts ('p:rsu:nAa', \%args);
if (exists $args{p} && which_shell() eq 'bash') {
# Bash syntax for prompt
$prompt = $args{p}
}
elsif ($ARGV[0] =~ /^(\w*)\?(.*)$/) { # ksh syntax for prompt
$ARGV[0] = $1 || 'REPLY';
$prompt = $2;
}
# Default variable
@ARGV = ('REPLY') if ! @ARGV;
lib/App/sh2p/Builtins.pm view on Meta::CPAN
if (defined $heredoc) {
my $filename = App::sh2p::Here::gen_filename($heredoc);
if (Register_variable('$IFS', '$')) {
pre_out "my \$IFS=".get_special_var('IFS').";\n";
}
iout "sh2p_read_from_file ('$filename', \"\$IFS\", $prompt, ".
'\\'.(join ',\\', @ARGV).")";
App::sh2p::Here::store_sh2p_here_subs();
}
else {
if (exists $args{u} && $args{u} ne 0) {
lib/App/sh2p/Builtins.pm view on Meta::CPAN
}
my $filename = App::sh2p::Handlers::Query_redirection('r');
if (defined $filename) {
iout 'sh2p_read_from_handle ($sh2p_handle,"$IFS",'."$prompt,".
'\\'.(join ',\\', @ARGV).")";
}
else {
iout "sh2p_read_from_stdin (\"\$IFS\", $prompt, ".
'\\'.(join ',\\', @ARGV).")";
}
if (!App::sh2p::Compound::get_context()) {
out ";\n";
App-size-dir-diff
view release on metacpan or search on metacpan
script/size-dir-diff view on Meta::CPAN
sub print_help {
print "\nsize-dir-diff - find differences between two directories\n\n";
print "Usage: size-dir-diff [OPTION] PATH1 PATH2\n\n";
print "Options:\n";
print "\t-d\tprint duplicates\n";
print "\t-e\tprompt if duplicates should be deleted (in PATH2)\n";
print "\t-n\tprint files in PATH2 that do not exist in PATH1\n";
print "\t-h\tprints this help\n";
exit 0;
}
App-spaceless
view release on metacpan or search on metacpan
Update the PATH in the current shell (works with both sh and csh):
cygwin% eval `spaceless PATH`
Same thing from cmd.exe or command.com prompt:
C:\> spaceless PATH -f path.bat
C:\> path.bat
DESCRIPTION
App-timecalc
view release on metacpan or search on metacpan
script/timecalc view on Meta::CPAN
}
}
sub help_msg {
join("",
"Type time expression into the prompt, e.g.: '19:10-20:45' (or '1910-2045'), '+02:05 -00:15' (or '+205 -0015').\n",
"For more details on available features, 'man timecalc'.\n",
"\n",
);
}
script/timecalc view on Meta::CPAN
require File::HomeDir;
require IO::Stty;
require Term::ReadLine;
my $term = Term::ReadLine->new('timecalc');
my $prompt = "> ";
my $OUT = $term->OUT || \*STDOUT;
my $histfile = File::HomeDir->my_home . "/.timecalc_history";
# load history from file
script/timecalc view on Meta::CPAN
#$term->ornaments(0);
#$attribs->{term_set} = ["", "", "", ""];
}
print help_msg();
while ( defined ($_ = $term->readline($prompt)) ) {
my $res;
if ($_ eq 'help' || $_ eq '?') {
print help_msg();
next;
} elsif ($_ eq 'exit' || $_ eq 'quit') {
App-tldr
view release on metacpan or search on metacpan
lib/App/tldr.pm view on Meta::CPAN
my $SUSHI = "\N{U+1F363}";
sub _render {
my ($self, $content, $query) = @_;
my ($check, $prompt) = $self->{unicode} ? ($CHECK, $SUSHI) : ('*', '$');
my $width = $ENV{COLUMNS} || (Term::ReadKey::GetTerminalSize())[0];
$width -= 4;
my @line = split /\n/, $content;
lib/App/tldr.pm view on Meta::CPAN
} elsif ($line =~ /`([^`]+)`/) {
my $code = $1;
$code =~ s/\b$query\b/
"\e[32m$query\e[m"
/eg;
$out->print(" $prompt $code\n\n");
}
}
}
1;
App-txtnix
view release on metacpan or search on metacpan
[ VersionFromModule ]
[ LicenseFromModule ]
override_author = 1
[ ReversionOnRelease ]
prompt = 1
[ NextRelease ]
format = %v %{yyyy-MM-dd HH:mm:ss VVV}d
[ Git::Check ]
App-vaporcalc
view release on metacpan or search on metacpan
lib/App/vaporcalc/Cmd/Result.pm view on Meta::CPAN
isa => CommandAction,
builder => sub {
my ($self) = @_;
$self->has_recipe ? 'recipe'
: $self->has_resultset ? 'display'
: $self->has_prompt ? 'prompt'
: 'print'
},
);
lib/App/vaporcalc/Cmd/Result.pm view on Meta::CPAN
predicate => 1,
builder => sub { '' },
);
has prompt => (
lazy => 1,
is => 'ro',
isa => Str,
predicate => 1,
builder => sub { '(undef)' },
);
has prompt_callback => (
lazy => 1,
is => 'ro',
isa => CodeRef,
predicate => 1,
builder => sub { sub {} }
);
has prompt_default_ans => (
lazy => 1,
is => 'ro',
isa => Str,
predicate => 1,
builder => sub { '' },
);
method run_prompt_callback (Str $answer = '') {
chomp $answer;
$self->prompt_callback->(
local $_ = $answer || $self->prompt_default_ans || undef
)
}
has recipe => (
lib/App/vaporcalc/Cmd/Result.pm view on Meta::CPAN
=head3 action
The action the controller should take; must be a
L<App::vaporcalc::Types/"CommandAction">.
=head3 prompt
The prompt to display when L</action> eq 'prompt'
=head3 prompt_callback
An optional callback that should be run with the answer given to L</prompt> (or
L</prompt_default_ans> if no answer is given).
See L</run_prompt_callback>.
=head3 prompt_default_ans
A default answer for use by L</run_prompt_callback> if none is given.
=head3 recipe
The L<App::vaporcalc::Recipe> to attach for L</action> eq 'recipe'
lib/App/vaporcalc/Cmd/Result.pm view on Meta::CPAN
The L<App::vaporcalc::RecipeResultSet> to attach for L</action> eq 'display'
=head2 METHODS
=head3 run_prompt_callback
Runs L</prompt_callback> with C<$_> and C<$_[0]> set to either the given
argument or L</prompt_default_ans> if none given.
=head1 AUTHOR
Jon Portnoy <avenj@cobaltirc.org>
App-wordlist-blossom
view release on metacpan or search on metacpan
script/wordlist-blossom view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
App-wordlist
view release on metacpan or search on metacpan
script/wordlist view on Meta::CPAN
# code => {},
# is_flag => {},
# },
# },
# cmdline_on_getopt => {},
# cmdline_prompt => {},
# completion => {},
# index_completion => {},
# element_completion => {},
# cmdline_src => {},
# meta => 'fix',
( run in 1.881 second using v1.01-cache-2.11-cpan-6aa56a78535 )