view release on metacpan or search on metacpan
lib/App/perlfind/Plugin/Functions.pm view on Meta::CPAN
# perlfind -- -r
# shows the -X entry in perlfunc
=head1 DESCRIPTION
This plugin for L<App::perlfind> checks whether the search term looks like a
built-in function and if so, adds C<perlfunc> to the match results.
view release on metacpan or search on metacpan
lib/App/perlimports/Include.pm view on Meta::CPAN
"\L$A" cmp "\L$B";
} @list;
return @sorted;
}
# This looks a little weird, but basically we want to maintain a stable sort
# order with lists that look like (foo, $foo, @foo, %foo). We use "-" to begin
# the suffix because it comes earliest in a sorted list of letters and digits.
sub _transform_before_cmp {
my $thing = shift;
if ( $thing =~ m{\A[\$]} ) {
view release on metacpan or search on metacpan
lib/App/perlminlint/Plugin/LintT.pm view on Meta::CPAN
(my MY $plugin, my $fn) = @_;
my @opts = $plugin->SUPER::gather_opts($fn);
#
# Add -Ilib if $fn looks like t/.../*.t
#
if (my ($basedir) = $fn =~ m{^(.*/|)t/}) {
my $libdir = $basedir . "lib";
push @opts, "-I$libdir" if -d $libdir;
}
view release on metacpan or search on metacpan
lib/App/perlmv/scriptlet/add_prefix_datestamp.pm view on Meta::CPAN
date => {
summary => "Use this date instead of file's modification time",
schema => 'date*',
},
avoid_duplicate_prefix => {
summary => 'Avoid adding prefix when filename already has prefix that looks like datestamp (1xxxxxxx- to 2xxxxxxx)',
schema => 'bool*',
},
prefix_regex => {
summary => 'Specify how existing datestamp prefix should be recognized',
schema => 're_from_str',
lib/App/perlmv/scriptlet/add_prefix_datestamp.pm view on Meta::CPAN
Arguments can be passed using the C<-a> (C<--arg>) L<perlmv> option, e.g. C<< -a name=val >>.
=head2 avoid_duplicate_prefix
Avoid adding prefix when filename already has prefix that looks like datestamp (1xxxxxxx- to 2xxxxxxx).
=head2 date
Use this date instead of file's modification time.
view release on metacpan or search on metacpan
lib/App/perlrdf/Command/Prefix.pm view on Meta::CPAN
use namespace::clean;
use constant abstract => q (Look up the full URIs for customary prefixes);
use constant command_names => qw( prefix prefixes pfx );
use constant description => <<'DESCRIPTION';
Given one or more prefixes such as "foaf", "dc", looks up the most
commonly used full URI.
DESCRIPTION
use constant opt_spec => (
[ 'format|f=s' => 'Output format ("turtle", "xmlns", "sparql", "text")' ],
);
view release on metacpan or search on metacpan
--wiki_token=Elrond \
--wiki_token=Thranduil \
--wiki_page=Welcome \
--wiki_page=About
Here's what my `phoebe.service` file actually looks like:
[Unit]
Description=Phoebe
After=network.target
[Install]
This is what you're reading right now.
**phoebe-ctl update-changes**
This command looks at all the pages in the `page` directory and generates new
entries for your changes log into `changes.log`.
**phoebe-ctl erase-page**
This command removes pages from the `page` directory, removes all the kept
view release on metacpan or search on metacpan
pod/examples.pod view on Meta::CPAN
=over
=item Heads ...
I<People say the back of my head looks really nice -- but I don't see it. :-)>
If you want just I<n>, e.g. 10, lines from the head of each file, use the
optional number argument to B<-p>, along with B<-r> to reset the count. The
program can be empty, but must be present, unless you're reading from stdin:
pod/examples.pod view on Meta::CPAN
> ...
=item Diff ELF Executables by Loaded Dependencies
You get the idea: you can do this for any command that outputs records with a
unique key. This one looks at the required libraries and which file they came
from. For a change, loop with B<-O> and C<$A(RGV)> to avoid the previous
examples' confusion between outer C<$_> which were the cli args, and the inner
one, which were the read lines:
pl -O 'piped {
view release on metacpan or search on metacpan
pod/examples.pod view on Meta::CPAN
=over
=item Heads ...
I<People say the back of my head looks really nice -- but I don't see it. :-)>
If you want just I<n>, e.g. 10, lines from the head of each file, use the
optional number argument to B<-p>, along with B<-r> to reset the count. The
program can be empty, but must be present, unless you're reading from stdin:
pod/examples.pod view on Meta::CPAN
} "tar", "-tvf", $_' *.tar *.tgz *.txz
=item Diff ELF Executables by Loaded Dependencies
You get the idea: you can do this for any command that outputs records with a
unique key. This one looks at the required libraries and which file they came
from. For a change, loop with B<-O> and C<$A(RGV)> to avoid the previous
examples' confusion between outer C<$_> which were the cli args, and the inner
one, which were the read lines:
pltest -O 'piped {
view release on metacpan or search on metacpan
lib/App/plx.pm view on Meta::CPAN
=head2 --init
plx --init # resolve 'perl' in $PATH
plx --init perl # (ditto)
plx --init 5.28.0 # looks for perl5.28.0 in $PATH
# or perl-5.28.0 in perlbrew
plx --init /path/to/some/perl # uses the absolute path directly
Initializes the layout.
If a perl name is passed, attempts to resolve it via C<$PATH> and C<perlbrew>
and sets the result as the layout perl; if not looks for just C<perl>.
Creates the following libspec config:
25-local.ll local
50-devel.ll devel
view release on metacpan or search on metacpan
bin/pm-deps view on Meta::CPAN
=item --local
--local /path/to/your/awesome/module
It extracts and shows the dependencies of the local module.
It looks META.json or MYMETA.json (It gives priority to META.json).
=item --perl-version
--perl-version version
view release on metacpan or search on metacpan
script/podweaver view on Meta::CPAN
licence and version. If no META file is found then it will issue a warning,
but still run, which may result in some sections being missing from the
final POD, it is recommended that you run L<podweaver> again after you've
generated your META file.
Currently L<podweaver> looks in the C<lib>, C<bin> and C<script> dirs for
modules or scripts that should be woven.
This should probably be configurable.
Please see the documentation in L<App::podweaver> for bugs and issues.
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
#
#=head2 COMPLETE_BASH_SUMMARY_ALIGN
#
#String. Either C<left> (the default) or C<right>.
#
#The C<left> align looks something like this:
#
# --bar Summary about the bar option
# --baz Summary about the baz option
# --foo Summary about the foo option
# --schapen Summary about the schapen option
script/_ppgrep view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Scalar::Util qw(looks_like_number blessed reftype refaddr);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw(dd dmp);
#
script/_ppgrep view on Meta::CPAN
#
# my $ref = ref($val);
# if ($ref eq '') {
# if (!defined($val)) {
# return "undef";
# } elsif (looks_like_number($val) && !$OPT_STRINGIFY_NUMBERS &&
# # perl does several normalizations to number literal, e.g.
# # "+1" becomes 1, 0123 is octal literal, etc. make sure we
# # only leave out quote when the number is not normalized
# $val eq $val+0 &&
# # perl also doesn't recognize Inf and NaN as numeric
script/_ppgrep view on Meta::CPAN
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
script/_ppgrep view on Meta::CPAN
#
## Check whether or not a scalar should be emitted as an plain scalar.
#sub is_valid_plain {
# my $self = shift;
# return 0 unless length $_[0];
# return 0 if $self->quote_numeric_strings and Scalar::Util::looks_like_number($_[0]);
# # refer to YAML::Old::Loader::parse_inline_simple()
# return 0 if $_[0] =~ /^[\s\{\[\~\`\'\"\!\@\#\>\|\%\&\?\*\^]/;
# return 0 if $_[0] =~ /[\{\[\]\},]/;
# return 0 if $_[0] =~ /[:\-\?]\s/;
# return 0 if $_[0] =~ /\s#/;
script/_ppgrep view on Meta::CPAN
# }
# else {
# $self->die('YAML_LOAD_ERR_BAD_SEQ_ELEMENT');
# }
#
# # Check whether the preface looks like a YAML mapping ("key: value").
# # This is complicated because it has to account for the possibility
# # that a key is a quoted string, which itself may contain escaped
# # quotes.
# my $preface = $self->preface;
# if ( $preface =~ /^ (\s*) ( \w .*? \: (?:\ |$).*) $/x or
view release on metacpan or search on metacpan
xt/metacpan-live.t view on Meta::CPAN
local $ENV{PREPARE4RELEASE_PERL_MAX};
delete $ENV{PREPARE4RELEASE_PERL_MAX};
my $v = App::prepare4release->fetch_latest_perl_release_version;
like( $v, qr/\A5\.\d+\z/, 'fetch_latest_perl_release_version looks like 5.xx' );
my $got = eval { version->parse($v) };
ok( $got, 'ceiling parses as a Perl version' )
or diag $@;
view release on metacpan or search on metacpan
lib/App/ptimeout.pm view on Meta::CPAN
if($waited == -1) { # it's all gone wrong
die("Error waiting for child process\n");
}
if(time >= $deadline) { # still running, but been running too long
# looks like dpulicate code, but it avoids a race condition
$waited = waitpid($pid, WNOHANG);
if($waited == $pid) {
$child_status = $?;
last;
}
view release on metacpan or search on metacpan
before actually editing the ~/.tmux.conf. That is, rainbarf --bright
--tmux is guaranteed to work despite the outdated Term::ANSIColor!
Another option is skipping the system colors altogether and use the RGB
palette (rainbarf --rgb). This fixes the issue 1, but doesn't affect
the issue 2. It still looks better, though.
Persistent storage
CPU utilization stats are persistently stored in the ~/.rainbarf.dat
file. Every rainbarf execution will update and rotate that file. Since
view release on metacpan or search on metacpan
script/redis-traffic-stats view on Meta::CPAN
=head1 DESCRIPTION
redis-traffic-stats is a query analyzer for Redis.
The output looks as follows:
=over 4
=item Total network traffic and average of bytes/sec
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
#
#=head2 COMPLETE_BASH_SUMMARY_ALIGN
#
#String. Either C<left> (the default) or C<right>.
#
#The C<left> align looks something like this:
#
# --bar Summary about the bar option
# --baz Summary about the baz option
# --foo Summary about the foo option
# --schapen Summary about the schapen option
script/_reposdb-inline view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Scalar::Util qw(looks_like_number blessed reftype refaddr);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT = qw(dd dmp);
#our @EXPORT_OK = qw(dd_ellipsis dmp_ellipsis);
script/_reposdb-inline view on Meta::CPAN
#
# my $ref = ref($val);
# if ($ref eq '') {
# if (!defined($val)) {
# return "undef";
# } elsif (looks_like_number($val) && !$OPT_STRINGIFY_NUMBERS &&
# # perl does several normalizations to number literal, e.g.
# # "+1" becomes 1, 0123 is octal literal, etc. make sure we
# # only leave out quote when the number is not normalized
# $val eq $val+0 &&
# # perl also doesn't recognize Inf and NaN as numeric
script/_reposdb-inline view on Meta::CPAN
# for (@_) {
# my $ref = ref($_);
# if ($ref eq 'ARRAY') { $prev = $_ }
# elsif ($ref eq 'HASH') { $meta = $_ }
# elsif (!$ref) {
# if (Scalar::Util::looks_like_number($_)) {
# $status = $_;
# } else {
# $msg = $_;
# }
# }
script/_reposdb-inline view on Meta::CPAN
#
## Check whether or not a scalar should be emitted as an plain scalar.
#sub is_valid_plain {
# my $self = shift;
# return 0 unless length $_[0];
# return 0 if $self->quote_numeric_strings and Scalar::Util::looks_like_number($_[0]);
# # refer to YAML::Old::Loader::parse_inline_simple()
# return 0 if $_[0] =~ /^[\s\{\[\~\`\'\"\!\@\#\>\|\%\&\?\*\^]/;
# return 0 if $_[0] =~ /[\{\[\]\},]/;
# return 0 if $_[0] =~ /[:\-\?]\s/;
# return 0 if $_[0] =~ /\s#/;
script/_reposdb-inline view on Meta::CPAN
# }
# else {
# $self->die('YAML_LOAD_ERR_BAD_SEQ_ELEMENT');
# }
#
# # Check whether the preface looks like a YAML mapping ("key: value").
# # This is complicated because it has to account for the possibility
# # that a key is a quoted string, which itself may contain escaped
# # quotes.
# my $preface = $self->preface;
# if ( $preface =~ /^ (\s*) ( \w .*? \: (?:\ |$).*) $/x or
view release on metacpan or search on metacpan
1.007 2025-04-14T17:43:12Z
* require a newer version.pm for v5.10.1 tests
1.006 2025-01-08T03:05:31Z
* first release of a little program I use instead of which(1).
My version takes a regex and looks in all the directories.
1.006 2022-01-08T08:56:01Z
* First release, I guess? I use this as a pattern-aware which(1)-like
utility.
view release on metacpan or search on metacpan
script/riap view on Meta::CPAN
Number of seconds to cache Riap results from server, to speed up things like tab
completion.
=head1 FAQ
=head2 The prompt looks rather garbled (e.g. extra " m >" character)!
It looks to be an issue with L<Term::ReadLine::Perl>. Try installing
L<Term::ReadLine::Gnu> instead.
=head2 How do I redirect output to files?
B<riap> is meant to be a simple shell, not a full-blown Unix shell. Besides, a
view release on metacpan or search on metacpan
corpus/generate_scripts.pl view on Meta::CPAN
# FindBin::Bin is a dir, so set $no_file to true for reliability
my ($vol, $dirs, $file) = splitpath($FindBin::Bin, 1);
my @base = splitdir($dirs);
my @inc;
# this looks more complicated than it really is
my $bin = pop @base;
# ./lib
my @sets = [ [$bin, qw(lib)] ];
view release on metacpan or search on metacpan
=item profile
This is a configuration file which collects options that you always need
to specifiy. The keys of the hash are option names while the values are,
well, corresponding values. A typical profile looks like:
{db => '<file>',
build => '<file>',
ign => '<file>',
pool => '<dir>',
Adopt all the orphans, binary packages of them and their entries in the
reference counting database will all be removed, there will be no sign
that they ever existed once this command finishes. A typical pattern would be:
# Module A::B::C looks interesting, install it and have a try.
$ rs install A::B::C
# Don't want it anymore.
$ rs uninstall A::B::C
view release on metacpan or search on metacpan
script stops. You can either move or delete the directory
and start again.
=item * Look for template files
The program looks in F<.scriptdistrc> for files to copy into
the target script distribution directory. After that, it
adds more files unless they already exist (i.e. the script
found them in the template directory). The script replaces
strings matching C<%%SCRIPTDIST_FOO%%> with the internal
value of FOO. The defined values are currently SCRIPT, which
view release on metacpan or search on metacpan
script/sdif view on Meta::CPAN
=item B<-V>, B<--parallel>
=item B<-V3>, B<--parallel=3>
B<sdif> processes only looks-like-diff-output data and print anything
else as is to standard out. Option C<-V> or C<--parallel> makes
unknown text as common to old and new data. This is useful to see
file including conflict marker data compatible with L<git(1)>.
This option takes an optional number parameter and 2 is assumed when
view release on metacpan or search on metacpan
lib/App/sdview/Output/Formatted.pm view on Meta::CPAN
my @lines = $text->split( qr/\n/ );
@lines or @lines = ( String::Tagged->new ) if defined $leader;
# If there's a background set, then space-pad every line to the same width
# so it looks neater on the terminal
# https://rt.cpan.org/Ticket/Display.html?id=140536
if( defined $typestyle{bg} ) {
my $width = max map { length $_ } @lines;
$_ .= " " x ( $width - length $_ ) for @lines;
}
view release on metacpan or search on metacpan
lib/App/starbucksloginator.pm view on Meta::CPAN
my ( $connected, $response );
( $connected, $response ) = $self->try_to_get_out;
if ( $connected ) {
say "It looks like you can already get out -- Cancelling login";
exit 0;
}
else {
say "Unable to get out -- Attempting to login";
}
view release on metacpan or search on metacpan
script/tchart view on Meta::CPAN
use strict;
use warnings;
#use App::chart;
use Getopt::Long qw(:config no_ignore_case bundling);
use Scalar::Util qw(looks_like_number);
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-02-06'; # DATE
our $DIST = 'App-tchart'; # DIST
our $VERSION = '0.062'; # VERSION
script/tchart view on Meta::CPAN
my @lines = <>;
my $fmt = $Opts{input};
if (!$fmt) {
if (looks_like_number($lines[0]) || $lines[0] =~ /\t/) {
$fmt = "tsv";
} else {
$fmt = "json";
}
}
view release on metacpan or search on metacpan
lib/App/td.pm view on Meta::CPAN
my $sums = [map {0} @$cols];
for my $i (0..$#{$rows_as_aoaos}) {
my $row = $rows_as_aoaos->[$i];
for my $j (0..@$cols-1) {
$sums->[$j] += $row->[$j]
if Scalar::Util::looks_like_number($row->[$j]);
}
}
my $avgs;
my $results;
if ($action =~ /avg/) {
view release on metacpan or search on metacpan
Use ANSI-colors for the I<pretty> layout. Defaults to true.
=item display_layout
In which format to display your timeline. I<txtnix> defines two different
layout: I<simple> is a line oriented very basic layout. I<pretty> looks
less dense and supports ANSI colors and text wrapping. Defaults to simple.
=item wrap_text
If to wrap text in pretty display. Defaults to true.
view release on metacpan or search on metacpan
script/ucpan view on Meta::CPAN
=over 2
=item * L<cpanm> can take more than one mirror, but L<cpan-outdated> only enables last one.
=item * L<cpan-outdated> only looks at the modules list of the mirror looking for outdated modules. It does not reference metacpan's database like L<cpanm>.
=back
=item --configure-timeout