view release on metacpan or search on metacpan
}
$self->{'_dsn'} = shift @ARGV;
$self->{'_schema_data_module'} = shift @ARGV;
$self->{'_variables'} = {
map {
my ($k, $v) = split m/=/ms, decode_utf8($_), 2;
($k => $v);
} @ARGV
};
eval "require $self->{'_schema_data_module'}";
print "Schema data ${print_version}from '$self->{'_schema_data_module'}' was ".
"inserted to '$self->{'_dsn'}'.\n";
my @plugins;
if (defined $self->{'_opts'}->{'l'}) {
@plugins = split m/:/ms, $self->{'_opts'}->{'l'};
}
foreach my $plugin (@plugins) {
# Load plugin object.
my $plugin_module = "$self->{'_schema_data_module'}::Plugin::$plugin";
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
@{ $self->rscan_dir($dir, $self->file_qr("\\.$type\$")) } };
}
sub localize_file_path {
my ($self, $path) = @_;
return File::Spec->catfile( split m{/}, $path );
}
sub localize_dir_path {
my ($self, $path) = @_;
return File::Spec->catdir( split m{/}, $path );
}
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = ref($self) ? $self->{config} : 'Module::Build::Config';
view release on metacpan or search on metacpan
lib/SVN/Analysis.pm view on Meta::CPAN
$sth_node->fetch() and die "more than one node for $path r$rev";
# Traverse to the new node.
my $iter = $tree;
my @segments = split m!/!, $path;
my $final = pop(@segments);
foreach (@segments) {
$iter = $iter->children()->{$_} or die(
"segment $_ from $path r$rev not found"
);
view release on metacpan or search on metacpan
lib/App/Spec.pm view on Meta::CPAN
unshift @keys, sort keys %keys;
}
for my $name (@keys) {
my $cmd_spec = $subcmds->{ $name };
my $summary = $cmd_spec->summary;
my @lines = split m/\n/, $summary;
push @table, [$name, $lines[0] // ''];
push @table, ['', $_] for map { s/^ +//; $_ } @lines[1 .. $#lines];
if (length $name > $maxlength) {
$maxlength = length $name;
}
lib/App/Spec.pm view on Meta::CPAN
$multi = '[]';
}
my $flags = $self->_param_flags_string($param);
my @lines = split m/\n/, $summary;
push @table, [$name, $req, $multi, ($lines[0] // '') . $flags];
push @table, ['', ' ', ' ', $_] for map { s/^ +//; $_ } @lines[1 .. $#lines];
if (length $name > $maxlength) {
$maxlength = length $name;
}
lib/App/Spec.pm view on Meta::CPAN
$multi = '[]';
}
my $flags = $self->_param_flags_string($opt);
my @lines = split m/\n/, $summary;
push @table, [$string, $req, $multi, ($lines[0] // '') . $flags];
push @table, ['', ' ', ' ', $_ ] for map { s/^ +//; $_ } @lines[1 .. $#lines];
}
my $options_string = $colored->([qw/ bold /], "Options:");
$body .= "\n$options_string\n";
view release on metacpan or search on metacpan
print $out;
exit 0;
} # pod_text
sub pod_nroff {
first { -x "$_/nroff" } grep { -d } split m/:+/ => $ENV{PATH} or pod_text ();
require Pod::Man;
my $p = Pod::Man->new ();
open my $fh, "|-", "nroff", "-man";
$p->parse_from_file ($0, $fh);
sub servers {
my %list = get_servers ();
if (my $iid = $config->{"server-config"}{ignoreids}) {
$opt_v > 3 and warn "Removing servers $iid from server list\n";
delete @list{split m/\s*,\s*/ => $iid};
}
$opt_a or delete @list{grep { $list{$_}{cc} ne $opt_c } keys %list};
%list or die "No servers in $opt_c found\n";
for (values %list) {
$_->{dist} = distance ($client->{lat}, $client->{lon},
view release on metacpan or search on metacpan
lib/App/Sqitch/Plan/Change.pm view on Meta::CPAN
isa => ArrayRef[Str],
lazy => 1,
clearer => 1, # Creates _clear_path_segments().
default => sub {
my $self = shift;
my @path = split m{/} => $self->name;
my $ext = '.' . $self->target->extension;
if (my @rework_tags = $self->rework_tags) {
# Determine suffix based on the first one found in the deploy dir.
my $dir = $self->deploy_dir;
my $bn = pop @path;
view release on metacpan or search on metacpan
lib/App/Table2YAML/CLI.pm view on Meta::CPAN
foreach (q(field_offset)) {
if ( exists $opt{$_} ) {
my $values = delete $opt{$_};
my @value;
foreach my $value ( @{$values} ) {
push @value, split m{[\s,]+}msx, $value;
}
@value = grep { defined && $_ ne q() } @value;
$self->opts->{$_} = [@value];
}
else {
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
@{ $self->rscan_dir($dir, $self->file_qr("\\.$type\$")) } };
}
sub localize_file_path {
my ($self, $path) = @_;
return File::Spec->catfile( split m{/}, $path );
}
sub localize_dir_path {
my ($self, $path) = @_;
return File::Spec->catdir( split m{/}, $path );
}
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = ref($self) ? $self->{config} : 'Module::Build::Config';
view release on metacpan or search on metacpan
sub _match_lines {
my ($self, $string) = @_;
my @ret;
foreach my $line (split m/\n/ms, $string) {
if ($line =~ /$self->{'_opts'}->{'m'}/) {
push @ret, $line;
}
}
view release on metacpan or search on metacpan
lib/App/Test/Generator/LCSAJ.pm view on Meta::CPAN
}
sub _save_lcsaj {
my ($file,$dir,$paths)=@_;
make_path($dir) unless -d $dir;
my $out = File::Spec->catfile($dir, (split m{/}, $file)[-1] . '.lcsaj.json');
open my $fh, '>', $out or die $!;
print $fh encode_json($paths);
close $fh;
}
sub _save_dot {
my ($file,$dir,$dot)=@_;
make_path($dir) unless -d $dir;
my $out = File::Spec->catfile($dir, (split m{/}, $file)[-1] . '.lcsaj.dot');
open my $fh, '>', $out or die $!;
print $fh $dot;
close $fh;
}
view release on metacpan or search on metacpan
MixNMatch.pm view on Meta::CPAN
if (! defined $print_options) {
return;
}
my $opts_hr = {};
foreach my $print_option (split m/,/, $print_options) {
$opts_hr->{$print_option} = 1;
}
return $opts_hr;
}
view release on metacpan or search on metacpan
bin/zofcms_helper view on Meta::CPAN
warn "Failed to open $template [$!]\n";
}
else {
my $body_file = File::Spec->catfile( @dirs );
my $title = join ' - ', map do { s/-(.)/ \u$1/g; $_ },
map ucfirst, grep length, reverse split m{/}, $page;
print $fh_template <<"END";
use strict;
use warnings;
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
# true $cli_color is the default for ccdiff
!$cli_color || !-t and $no_colors = 1;
}
unless (caller) {
$ENV{CCDIFF_OPTIONS} and unshift @ARGV, split m/\s+/ => $ENV{CCDIFF_OPTIONS};
GetOptions (
"help|?" => sub { usage (0); },
"V|version" => sub { say "$CMD [$VERSION]"; exit 0; },
"man" => sub { pod_nroff (); },
"info" => sub { pod_text (); },
lib/App/ccdiff.pm view on Meta::CPAN
print $out;
exit 0;
} # pod_text
sub pod_nroff {
first { -x "$_/nroff" } grep { -d } split m/:+/ => $ENV{PATH} or pod_text ();
require Pod::Man;
my $p = Pod::Man->new ();
open my $fh, "|-", "nroff", "-man";
$p->parse_from_file ($0, $fh);
lib/App/ccdiff.pm view on Meta::CPAN
<$fh>;
};
if ($opt_H) {
my $hc = "";
if ($opt_H =~ m/^\w\w+/) {
my ($hfg, $hbg) = split m/_?(?=on_)/ => lc $opt_H =~ s/\s+/_/gr;
$hfg && defined $clr{$hfg} and $hc .= $clr{$hfg};
$hbg && defined $clr{$hbg} and $hc .= $clr{$hbg};
}
my $nl = max length $f1, length $f2, 7;
my $sl = $hc ? ($ENV{COLUMNS} || 80) - 4 - $nl : 1;
lib/App/ccdiff.pm view on Meta::CPAN
}
} # ccdiff
sub subdiff {
my ($old, $new, $heu) = @_;
my $d = $diff_class->new (map { [ map { split m// } @$_ ] } $old, $new);
my ($d1, $d2, $x1, $x2, @h1, @h2) = ("", "", "", "");
my ($cml, $cmr) = $opt_v < 2 ? ("", "") : ($chr_cml, $chr_cmr);
my ($cmd, $cma) = ($chr_old, $chr_new);
@{$heu}{qw( old new same )} = (1, 1, 1); # prevent div/0
while ($d->Next) {
lib/App/ccdiff.pm view on Meta::CPAN
$heu->{same} += scalar @co;
my $e = $chr_eli;
my $c = join "" => @co;
if ($opt_e) {
my $join = "";
foreach my $sc (split m/\n/ => $c) {
$_ .= $join for $d1, $d2, $x1, $x2;
$join = "\n";
my $l = length $sc; # The length of this "same" chunck
my $le = $l - 2 * $opt_e; # The length of the text replaces with ellipsis
my $ee = $opt_v <= 1 ? $e : $e =~ s/^.\K(?=.$)/$le/r;
lib/App/ccdiff.pm view on Meta::CPAN
$x2 .= $_ for map { s/[^\t\r\n]/$cma/gr } @cn;
$opt_v and push @h2, map { $opt_U ? charnames::viacode (ord) : unpack "H*"; } @cn;
}
}
$heu->{pct} = ($heu->{old} + $heu->{new}) / (2 * $heu->{same});
my @d = map { [ split m/(?<=\n)/ => s/\n*\z/\n/r ] } $d1, $d2;
if ($opt_m) {
$opt_v > 1 and s/(\S+)/ $1 /g for $x1, $x2;
s/[ \t]*\n*\z/\n/ for $x1, $x2;
my @x = map { /\S/ ? [ split m/(?<=\n)/ ] : [] } $x1, $x2;
foreach my $n (0, 1) {
@{$x[$n]} and $d[$n] = [ map {( $d[$n][$_], $x[$n][$_] // "" )} 0 .. (scalar @{$d[$n]} - 1) ];
}
}
if ($opt_v) {
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
next;
}
# Check that package name matches case of file name
{
my (undef, $module) = split m{/lib/}, $self->{PMFILE}, 2;
if ($module) {
$module =~ s{\.pm\z}{};
$module =~ s{/}{::}g;
if (lc $module eq lc $package && $module ne $package) {
view release on metacpan or search on metacpan
lib/App/cryp/arbit.pm view on Meta::CPAN
# list pairs on all exchanges
for my $e (sort keys %{ $r->{_stash}{account_exchanges} }) {
my $pair_recs = _get_exchange_pairs($r, $e);
for my $pair_rec (@$pair_recs) {
my $pair = $pair_rec->{name};
my ($basecur, $quotecur) = split m!/!, $pair;
# consider all fiat currencies as a single ":fiat" because we
# assume fiat currencies can be converted from one to the aother
# at a stable rate.
my $key;
if (_is_fiat($quotecur)) {
lib/App/cryp/arbit.pm view on Meta::CPAN
# list pairs on all exchanges
for my $e (sort keys %{ $r->{_stash}{account_exchanges} }) {
my $pair_recs = _get_exchange_pairs($r, $e);
for my $pair_rec (@$pair_recs) {
my $pair = $pair_rec->{name};
my ($basecur, $quotecur) = split m!/!, $pair;
next unless grep { $_ eq $quotecur } @{ $r->{_stash}{quote_currencies} };
$basecur_exchanges{$basecur}{$e} = 1;
}
}
lib/App/cryp/arbit.pm view on Meta::CPAN
push @pairs, $set;
}
PAIR:
for my $pair (@pairs) {
my ($basecur, $quotecur) = split m!/!, $pair;
next unless grep { $_ eq $pair } @{ $pairs_for{$exchange} };
my $time = time();
log_debug "Getting orderbook %s on %s ...", $pair, $exchange;
my $res = $client->get_order_book(pair => $pair);
view release on metacpan or search on metacpan
lib/App/csvtool.pm view on Meta::CPAN
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my @FIELDS = split m/,/, $opts->{fields};
# 1-indexed
$_ eq "u" || $_-- for @FIELDS;
while( my $row = $reader->() ) {
view release on metacpan or search on metacpan
lib/App/eachperl.pm view on Meta::CPAN
grey => Convert::Color->new( "xterm:grey(70%)" ),
);
# Allow conversion of signal numbers into names
use Config;
my @SIGNAMES = split m/\s+/, $Config{sig_name};
=head1 NAME
C<App::eachperl> - a wrapper script for iterating multiple F<perl> binaries
lib/App/eachperl.pm view on Meta::CPAN
$_ .= ".999" if \$_ == \$_until_version and $_ !~ m/\.\d+\./;
$_ = version->parse( $_ )->stringify;
}
if( my $perlnames = $_perls ) {
foreach my $perl ( split m/\s+/, $perlnames ) {
chomp( my $fullpath = `which $perl` );
$? and warn( "Can't find perl at $perl" ), next;
my ( $ver, $usethreads, $ccflags ) = split m/\n/,
scalar `$fullpath -MConfig -e 'print "\$]\\n\$Config{usethreads}\\n\$Config{ccflags}\\n"'`;
$ver = version->parse( $ver )->normal;
my $threads = ( $usethreads eq "define" );
my $debug = $ccflags =~ m/-DDEBUGGING\b/;
lib/App/eachperl.pm view on Meta::CPAN
? $_io_term->more_partial( "$BOLD$perl:$RESET " )
: $_io_term->print_line( "\n$BOLD --- $perl --- $RESET" );
my $has_partial = $opts{oneline};
IPC::Run::run [ $path, @argv ], ">pty>", sub {
my @lines = split m/\r?\n/, $_[0], -1;
if( $has_partial ) {
my $line = shift @lines;
if( $line =~ s/^\r// ) {
view release on metacpan or search on metacpan
lib/App/geoip.pm view on Meta::CPAN
print $out;
exit 0;
} # pod_text
sub pod_nroff {
first { -x "$_/nroff" } grep { -d } split m/:+/ => $ENV{PATH} or pod_text ();
require Pod::Man;
my $p = Pod::Man->new ();
open my $fh, "|-", "nroff", "-man";
$p->parse_from_file ($0, $fh);
lib/App/geoip.pm view on Meta::CPAN
# Simplistic IPv4
push @ARGV => $eh;
}
elsif ($eh =~ m/^\w[-.\w]{0,252}\z/) { # Skip invalid clipboard content
# https://en.wikipedia.org/wiki/Hostname#Syntax
for (split m/\./ => $eh) {
m/^\w[-\w]{0,62}$/ or die "$eh is not a valid hostname or IPv4\n";
}
push @ARGV => $eh;
}
}
lib/App/geoip.pm view on Meta::CPAN
my $sti = $dbh->prepare ("insert into ipv4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
my $rec = {
cidr => $cidr,
id => $_{geoname_id} || undef,
ip_from => $f,
lib/App/geoip.pm view on Meta::CPAN
my $sti = $dbh->prepare ("insert into provider values (?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
my $rec = {
cidr => $cidr,
id => $_{autonomous_system_number} || undef, # All NULL
name => $_{autonomous_system_organization},
lib/App/geoip.pm view on Meta::CPAN
my $sti = $dbh->prepare ("insert into ipc4 values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
csv (in => \$c, headers => "auto", out => undef, on_in => sub {
++$n % 1000 or print STDERR " $n\r";
my $cidr = $_{network};
my @rng = Net::CIDR::cidr2range ($cidr);
my ($f, $t) = split m/\s*-\s*/ => $rng[0];
my ($F, $T) = map { unpack "L>", inet_aton $_ } $f, $t;
my $rec = {
cidr => $cidr,
id => $_{geoname_id} || undef,
ip_from => $f,
lib/App/geoip.pm view on Meta::CPAN
$ip = inet_ntoa (shift @addr);
$seen{$ip}++;
$seen{$host}++;
push @ARGV, grep { $_ && !$seen{$_}++ }
(map { inet_ntoa $_ } @addr),
split m/\s+/ => $aliases;
}
$found{$ip} and next;
my $in = unpack "L>" => inet_aton ($ip);
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Videolectures.pm view on Meta::CPAN
my $streamer = ($browser->content =~ /streamer:\s*["']([^"']+)/)[0];
my $playpath = ($browser->content =~ /file:\s*["']([^"']+)/)[0];
$playpath =~ s/\.flv$//;
my $data = {
app => (split m{/}, $streamer)[-1],
rtmp => $streamer,
playpath => $playpath,
flv => title_to_filename("$author - $title")
};
view release on metacpan or search on metacpan
lib/App/gh/Command/Pullreq/Send.pm view on Meta::CPAN
my $remote_branch = shift ||'master';
my $base = shift;
my ($user,$repo,$uri_type);
if( $base ) {
($user,$repo) = split m{[/:]},$base;
} else {
my $remote = $self->get_remote();
die "Remote not found\n." unless $remote;
($user, $repo, $uri_type ) = parse_uri( $remote->{url} );
view release on metacpan or search on metacpan
lib/App/grepurl.pm view on Meta::CPAN
sub uncommify {
my( $self, $option ) = @_;
return {} unless defined $option;
return { map { $_, 1 } split m/,/, $option };
}
sub debug_summary {
my( $self ) = @_;
no warnings;
view release on metacpan or search on metacpan
lib/App/indodax.pm view on Meta::CPAN
our @Markets = qw(idr btc);
our @Market_Pairs = (map {
my $canon = $_->{name};
my ($basecur, $quotecur) = split m!/!, $canon;
lc($basecur) . '_' . lc($quotecur);
} @{ App::cryp::Exchange::indodax->data_pairs });
our @Currencies = do {
my %res;
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBD/ExampleP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_EXAMPLEP';
{package DBD::ExampleP;use strict;use Symbol;use DBI qw(:sql_types);require File::Spec;our (@EXPORT,$VERSION,@statnames,%statnames,@stattypes,%stattypes,@statprec,%statprec,$drh,);@EXPORT=qw();$VERSION="0.03";@statnames=qw(dev ino mode nlink uid gi...
DBD_EXAMPLEP
$fatpacked{"DBD/File.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_FILE';
require 5.008;use strict;use warnings;use DBI ();package DBD::File;use strict;use warnings;use base qw(DBI::DBD::SqlEngine);use Carp;use vars qw(@ISA $VERSION $drh);$VERSION="0.03";$drh=undef;sub driver ($;$) {my ($class,$attr)=@_;$drh->{$class}and...
DBD_FILE
$fatpacked{"DBD/Gofer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_GOFER';
{package DBD::Gofer;use strict;require DBI;require DBI::Gofer::Request;require DBI::Gofer::Response;require Carp;our$VERSION="0.03";our%xxh_local_store_attrib=map {$_=>1}qw(Active CachedKids Callbacks DbTypeSubclass ErrCount Executed FetchHashKeyNa...
DBD_GOFER
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
view release on metacpan or search on metacpan
lib/App/module/version.pm view on Meta::CPAN
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:
view release on metacpan or search on metacpan
lib/App/PassManager/Role/Git.pm view on Meta::CPAN
sub cleanup {
my $self = shift;
if ($self->data) {
$self->encrypt_file($self->store_file, $self->master,
split m/\n+/, XML::Simple::XMLout($self->data));
}
if ($self->git->status->is_dirty) {
$self->git->add($self->git_home);
$self->git->commit({ all => 1, message => "Updated by ". $self->username });
view release on metacpan or search on metacpan
lib/App/perl/distrolint/Check/Pod.pm view on Meta::CPAN
$ok &= $meth->( $self, $file, $contentnode );
}
if( ( $command // "" ) eq "=for" and $content =~ s/^highlighter// ) {
$content =~ s/^\s+//;
my @args = split m/\s+/, $content;
$args[0] = "language=$args[0]" if @args and $args[0] !~ m/=/;
$highlighter = ""; # empty string is still defined
m/^language=(.*)$/ and $highlighter = $1, last
for @args;
lib/App/perl/distrolint/Check/Pod.pm view on Meta::CPAN
my $contentnode = first { $_->type eq "content" } $node->child_nodes;
if( $type eq "command_paragraph" and $node->child_by_field_name( "command" )->text eq "=head2" ) {
$last_head2 = $contentnode;
my $funcname = ( split m/\s+/, $last_head2->text )[0];
# Having just switched to a new head2 we immediately expect a verbatim paragraph
# Though it's possible we might have more head2s first to give multiple headings
while( @nodes and $nodes[0]->type eq "command_paragraph" and
view release on metacpan or search on metacpan
lib/App/perlimports/CLI.pm view on Meta::CPAN
grep { defined $self->_opts->$_ } @config_options;
for my $list (@config_option_lists) {
my $val = $self->_opts->$list;
if ( defined $val ) {
$args{$list} = [ split m{,}, $val ];
}
}
return App::perlimports::Config->new( %config, %args );
}
view release on metacpan or search on metacpan
pl -n '...' *.pm
pl -nA '<*.pm>' -A '{ (stat)[7] < 1000 }' '...'
=item C<-a>
I<perl:> Autosplit mode with B<-n>/B<-p> (splits C<$_> into C<@F(IELD)>).
=item C<-bI<prog>>
Run program before reading a new file in B<-n>/B<-p>.
view release on metacpan or search on metacpan
0.06 2014-12-10 (PERLANCAR)
- No functional changes.
- Use new name of renamed/split module SHARYANTO::String::Util ->
String::PerlQuote.
0.05 2014-06-24 (SHARYANTO)
view release on metacpan or search on metacpan
pltest -n '...' *.pm
pltest -nA '<*.pm>' -A '{ (stat)[7] < 1000 }' '...'
=item C<-a>
I<perl:> Autosplit mode with B<-n>/B<-p> (splits C<$_> into C<@F(IELD)>).
=item C<-bI<prog>>
Run program before reading a new file in B<-n>/B<-p>.