view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
repository => 'http://github.com/sshaw/output-as-format',
homepage => 'http://github.com/sshaw/output-as-format'} }) : ())
);
# Create README.pod for a repo's GitHub page. Unlike CPAN, GitHub won't
# display the module's POD, it looks for a README.*
sub MY::postamble
{
my $self = shift;
return if -r 'README' or ! -r $self->{VERSION_FROM};
return<<END_MAKE;
view release on metacpan or search on metacpan
Where multiple matching combinations of entities are identical in all
the attributes selected for display and sorting, they are merged into one
line. As a result, if all the sorting is on attributes being displayed,
all the output lines are necessarily different. (Sorting on attributes
that are algebraically distant from all those being displayed can result
in many identical output lines, which looks strange. The ability to do
this may be curtailed in the future.) Any item where all the display
and sort attributes have only B<!!!> exceptions (unmatched entities)
is suppressed.
Most attribute values are intended to be parseable by computer programs,
view release on metacpan or search on metacpan
lib/App/optex/pingu.pm view on Meta::CPAN
use File::Share qw(dist_dir);
use List::Util qw(first pairmap);
use Time::HiRes qw(usleep);
use Scalar::Util;
use Hash::Util qw(lock_keys);
*is_number = \&Scalar::Util::looks_like_number;
use App::optex::pingu::Picture;
my $image_dir = $ENV{OPTEX_PINGU_IMAGEDIR} //= dist_dir 'App-optex-pingu';
view release on metacpan or search on metacpan
lib/App/optex/scroll.pm view on Meta::CPAN
use IO::Handle;
use Term::ReadKey;
use Term::ANSIColor::Concise qw(:all);
use List::Util qw(first pairmap);
use Scalar::Util;
*is_number = \&Scalar::Util::looks_like_number;
our $VERSION = "0.9902";
use App::optex::util::filter qw(interval);
view release on metacpan or search on metacpan
t/org2ical-usage-version.t view on Meta::CPAN
{
my $res = run [@full_script, '--version'], '>', \my $stdout;
ok $res, 'script run ok';
if ($stdout =~ m{org2ical ([\d\.]+)}) {
pass 'looks like a version';
} else {
fail "'$stdout' does not look like a version";
}
}
view release on metacpan or search on metacpan
lib/App/p5stack.pm view on Meta::CPAN
specific to this project. Including a specific perl version if required. This
allows to constrain all the required elements to run your application to live
inside the application directory. And thus not clashing to system wide perl
installations.
Configuration files are written in YAML, an example configuration looks
like:
---
perl: 5.20.3
deps: dzil
view release on metacpan or search on metacpan
bin/part.pl view on Meta::CPAN
=item B<--filename-sep> - set the separator for the filenames
If you prefer a different separator for the filenames
than a newline, this option allows you to set it. If
the separator looks like an octal number (three digits)
it is interpreted as such. Otherwise it will
be taken literally. A common
use is to set the separator to C<000> to separate the
files by the zero character if you suspect that your
filenames might contain newlines.
view release on metacpan or search on metacpan
0.39 2015-07-05 Released-By: PERLANCAR
- [build] Now use depak (datapack) to pack script instead of fatpack
(slightly reduce startup overhead, and hope it can now be viewed in
MetaCPAN, previously MetaCPAN complains that the script is too big.)
UPDATE: nope, still can't display it. UPDATE 2015-07-27: looks like
MetaCPAN now can display bin/pause's POD, yay.
- Bundle Perinci::CmdLine::pause to reduce dependencies (this should've
been done earlier but was not due to fatten's misconfiguration).
view release on metacpan or search on metacpan
lib/App/perl/distrolint/Check/Pod.pm view on Meta::CPAN
is checked to ensure it is a bareword function/method name, optionally
followed by other clarifying text after whitespace.
After every C<=head2> the next paragraph must be a verbatim paragraph,
presumed to contain the function's minsynopsis code. The contents of this
are also checked, to see that the first line looks like an example calling
the named function or method, that ends in a semicolon.
The function name can optionally be preceeded by a variable assignment to
indicate the return value (C<$var = ...> or C<($list, $of, @vars) = ...>),
optionally prefixed with C<my>. It can optionally be preceeded by a variable
view release on metacpan or search on metacpan
script/perlall view on Meta::CPAN
# testvm logs back from forks
# fix testvm forked and --fork arg
# 'perlall=5.8* perlall do -m' should filter only main 5.8*
# testvm max balancing
# init is unstable (IO::Tee in IPC::Run) - refactored
# --as explicit and implicit - looks good, but no test
# non-critical TODO:
# 5.8.8 (centos5) fails with Attribute::Handler 0.78_02. monkeypatch or fail?
# build: test perlbrew and HOME friendly (no hardcoded paths)
# windows support (paths, tee, tools), die on other non-POSIX exots (VMS)...
# CPAN::Shell->expand("Devel::*"), not easy todo with metacpan.
script/perlall view on Meta::CPAN
p=$perl
echo $p $*
$p $*
done
The output depends on your perl installations, and looks like this:
perl5.12.2-nt -E'say "Hello from $]"'
Hello from perl-5.012002
perl5.12.3-m -E'say "Hello from $]"'
view release on metacpan or search on metacpan
lib/App/Perlbrew/Util.pm view on Meta::CPAN
use Exporter 'import';
our @EXPORT = qw( uniq min editdist files_are_the_same perl_version_to_integer );
our @EXPORT_OK = qw(
find_similar_tokens
looks_like_url_of_skaji_relocatable_perl
looks_like_sys_would_be_compatible_with_skaji_relocatable_perl
make_skaji_relocatable_perl_url
);
sub uniq {
my %seen;
lib/App/Perlbrew/Util.pm view on Meta::CPAN
}
return \@similar_tokens;
}
sub looks_like_url_of_skaji_relocatable_perl {
my ($str) = @_;
# https://github.com/skaji/relocatable-perl/releases/download/5.40.0.0/perl-linux-amd64.tar.gz
my $prefix = "https://github.com/skaji/relocatable-perl/releases/download";
my $version_re = qr/(5\.[0-9][0-9]\.[0-9][0-9]?.[0-9])/;
my $name_re = qr/perl-(linux|darwin)-(amd64|arm64)\.tar\.gz/;
lib/App/Perlbrew/Util.pm view on Meta::CPAN
i386 => "amd64",
};
return $compat->{$arch} || $arch;
}
sub looks_like_sys_would_be_compatible_with_skaji_relocatable_perl {
my ($detail, $sys) = @_;
return (
($detail->{os} eq $sys->os)
&& (_arch_compat($detail->{arch}) eq _arch_compat($sys->arch))
view release on metacpan or search on metacpan
DESCRIPTION
If you want to know which debian package has to be installed to have a
Perl module readily available this tool is for you.
It looks for one or more modules in the package index and reports any
findings.
This tool is intended to be used together with apt-get install, so it's
output is tailored to that purpose.
view release on metacpan or search on metacpan
bin/perldolicious view on Meta::CPAN
helper setup_modules_file => sub {
my $cache_file = app->config('modules_cache_file');
my $limit = app->config('auto_download');
die "Configuration auto_download: $limit doesn't look like number\n"
unless Scalar::Util::looks_like_number($limit);
# file does not exist or file exists but it's older than the
# specified limit (in days)
if (not -f $cache_file
or -f $cache_file and -M $cache_file > $limit)
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
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.