view release on metacpan or search on metacpan
lib/ParseCron.pm view on Meta::CPAN
}
elsif (!$posix and $crontab =~ m/^\@(\w+)[ \t]+(.*)/s and exists $atword{lc $1}) {
$english = process_command($crontab, $atword{lc $1}, $2);
}
# for adding commands to be run to cron lines:
#elsif ((@bits = split m/[ \t]+/, $crontab, 6) and @bits == 6) {
elsif ((@bits = split m/[ \t]+/, $crontab, 5) and @bits == 5) {
$english = process_command($crontab, @bits);
}
else {
$english = 'ERROR';
}
view release on metacpan or search on metacpan
t/90ex_expr.t view on Meta::CPAN
my $parser = ExprParser->new;
while( <DATA> ) {
chomp;
my ( $str, $expect ) = split m/=/;
is( $parser->from_string( $str ), $expect, $str );
}
done_testing;
view release on metacpan or search on metacpan
lib/Path/Abstract/Underload.pm view on Meta::CPAN
}
sub list {
my $self = shift;
Path::Abstract->_0_093_warn if $Path::Abstract::_0_093_warn;
return grep { length $_ } split m/\//, $$self;
}
for (qw()) { no strict 'refs'; *$_ = \&list }
sub split {
my $self = shift;
Path::Abstract->_0_093_warn if $Path::Abstract::_0_093_warn;
my @split = split m/(?<=.)\/(?=.)/, $$self;
return @split;
}
sub first {
my $self = shift;
view release on metacpan or search on metacpan
lib/Path/AttrRouter.pm view on Meta::CPAN
}
sub match {
my ($self, $path, $condition) = @_;
my @path = split m!/!, $path;
unshift @path, '' unless @path;
my ($action, @args, @captures);
DESCEND:
while (@path) {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
return $_[1];
};
}
{
map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
Test::Lazy 0.03
_END_
map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Path::Class
Path::Abstract
Scalar::Util
Class::Accessor::Fast
_END_
}
if (-e 'inc/.author') {
my $all_from = join '/', 'lib', split m/-/, name . '.pm';
`perldoc -tF $all_from > README` if ! -e 'README' || (stat $all_from)[9] > (stat 'README')[9];
}
auto_install;
view release on metacpan or search on metacpan
lib/File/Spec/OS2.pm view on Meta::CPAN
}
sub splitdir {
my ($self,$directories) = @_ ;
split m|[\\/]|, $directories, -1;
}
sub catpath {
my ($self,$volume,$directory,$file) = @_;
view release on metacpan or search on metacpan
lib/Pcore/API/Docker/Hub.pm view on Meta::CPAN
desc => $EMPTY,
full_desc => $EMPTY,
%args
);
my ( $namespace, $name ) = split m[/]sm, $repo_id;
return $self->_req(
'POST',
'/repositories/',
{ namespace => $namespace,
lib/Pcore/API/Docker/Hub.pm view on Meta::CPAN
active => 1,
build_tags => undef,
%args,
);
my ( $namespace, $name ) = split m[/]sm, $repo_id;
my $build_tags;
# prepare build tags
if ( !$args{build_tags} ) {
lib/Pcore/API/Docker/Hub.pm view on Meta::CPAN
return $res;
}
sub create_autobuild_tag ( $self, $repo_id, $tag_name, $source_name, $source_type, $dockerfile_location ) {
my ( $namespace, $name ) = split m[/]sm, $repo_id;
return $self->_req(
'POST',
"/repositories/$repo_id/autobuild/tags/",
{ name => $tag_name,
view release on metacpan or search on metacpan
lib/Peptide/Pubmed.pm view on Meta::CPAN
sub parse_slashes {
$_ = $_[0];
return $_ unless m!/!;
if (m!/X|X/! or has_repeats_at_slashes($_) ) {
my $str = '';
for (split m!/+!) {
$str = $_ if length($str) < length($_); # change PXXP/PXPXP to PXPXP
}
return $str;
} else {
s!(\w(/\w)+)!($1)!g; # change PXXP/GXPXP to PXX(P/G)XPXP
view release on metacpan or search on metacpan
lib/Plack/Middleware/PeriAHS/ParseRequest.pm view on Meta::CPAN
last unless $meta;
last unless $meta->{args};
my $pi = $env->{PATH_INFO} // "";
$pi =~ s!^/+!!;
my @pi = map {uri_unescape($_)} split m!/+!, $pi;
$res = get_args_from_array(array=>\@pi, meta=>$meta);
return errpage(
$env, [500, "Bad metadata for function $rreq->{uri}: ".
"Can't get arguments: $res->[0] - $res->[1]"])
unless $res->[0] == 200;
view release on metacpan or search on metacpan
lib/Perinci/Access/Simple/Client.pm view on Meta::CPAN
($path, $args) = (uri_unescape($1), $2);
} elsif ($srvpath =~ m!(.+)!) {
$path = uri_unescape($1);
$args = '';
}
$args = [map {uri_unescape($_)} split m!/!, $args // ''];
unless ($which eq 'parse0') {
if (defined($path)) {
my $apath = abs_path($path) or
return [500, "Can't find absolute path for $path"];
$cache_key = "pipe:$apath ".join(" ", @$args);
view release on metacpan or search on metacpan
0.20 2014-12-10 Released-By: PERLANCAR
- No functional changes.
- Use new name of renamed/split module SHARYANTO::String::Util ->
String::Trim::More.
0.19 2014-11-07 Released-By: PERLANCAR
view release on metacpan or search on metacpan
0.42 2014-12-10 Released-By: PERLANCAR
- No functional changes.
- Use new name of renamed/split module SHARYANTO::Locale::Util ->
Locale::Set.
0.41 2014-09-17 Released-By: PERLANCAR
view release on metacpan or search on metacpan
lib/Perinci/Sub/GetArgs/WebForm.pm view on Meta::CPAN
my $form = shift;
my $args = {};
for (keys %$form) {
if (m!/!) {
my @p = split m!/!, $_;
next if @p > 10; # hardcode limit
my $a0 = $args;
for my $i (0..@p-2) {
$a0->{$p[$i]} //= {};
$a0 = $a0->{$p[$i]};
view release on metacpan or search on metacpan
0.67 2014-12-10 Released-By: PERLANCAR
- No functional changes.
- Use new name of renamed/split module SHARYANTO::String::Util ->
String::LineNumber.
0.66 2014-10-29 Released-By: PERLANCAR
view release on metacpan or search on metacpan
t/20_policies.t view on Meta::CPAN
my $expected_failures = $subtest->{failures};
# If any optional modules are NOT installed, then there should be no failures.
if ($subtest->{optional_modules}) {
MODULE:
for my $module (split m/,\s*/, $subtest->{optional_modules}) {
eval "require $module"; ## no critic (ProhibitStringyEval)
if ($EVAL_ERROR) {
$expected_failures = 0;
last MODULE;
}
view release on metacpan or search on metacpan
t/Community/SplitQuotedPattern.run view on Meta::CPAN
## name SplitRegex
## failures 0
## cut
split /foo/, $bar;
split m/foo/, $bar;
split qr/foo/, $bar;
split /./, $bar;
split / /, $bar;
split //, $bar;
t/Community/SplitQuotedPattern.run view on Meta::CPAN
split '', $bar;
split "", $bar;
split q{}, $bar;
split qq{}, $bar;
split //, $bar;
split m//, $bar;
split qr//, $bar;
## name SplitUnquoted
## failures 4
## cut
view release on metacpan or search on metacpan
lib/Perl/Critic/Policy/logicLAB/RequireSheBang.pm view on Meta::CPAN
}
sub _parse_formats {
my ( $self, $config_string ) = @_;
my @formats = split m{ \s* [||]+ \s* }xsm, $config_string;
return \@formats;
}
1;
view release on metacpan or search on metacpan
lib/Perl/Critic/Policy/logicLAB/RequireVersionFormat.pm view on Meta::CPAN
}
sub _parse_formats {
my ( $self, $config_string ) = @_;
my @formats = split m{ \s* [||] \s* }xms, $config_string;
return \@formats;
}
sub initialize_if_enabled {
view release on metacpan or search on metacpan
lib/Perl/Critic/Annotation.pm view on Meta::CPAN
# Compose the specified modules into a regex alternation. Wrap each
# in a no-capturing group to permit "|" in the modules specification.
my @policy_name_patterns = grep { $_ ne $EMPTY }
split m{\s *[,\s] \s*}xms, $patterns_string;
my $re = join $PIPE, map {"(?:$_)"} @policy_name_patterns;
my @site_policy_names = Perl::Critic::PolicyFactory::site_policy_names();
@disabled_policy_names = grep {m/$re/ixms} @site_policy_names;
# It is possible that the Policy patterns listed in the annotation do not
view release on metacpan or search on metacpan
lib/Perl/Dist/Strawberry/Step.pm view on Meta::CPAN
return @filelist;
}
sub _convert_name {
my $name = shift;
my @paths = split m{\/}ms, $name;
my $filename = pop @paths;
$filename //= '';
my $local_dirs = @paths ? catdir(@paths) : '';
my $local_name = catpath('', $local_dirs, $filename);
$local_name = rel2abs($local_name);
view release on metacpan or search on metacpan
lib/Perl/Dist/WiX/Asset/PAR.pm view on Meta::CPAN
# Download the file.
# Do it here for consistency instead of letting PAR::Dist do it
my $file = $self->_mirror( $url, $download_dir, );
# Set the appropriate installation paths
my @module_dirs = split m{::}ms, $name;
my $perldir = catdir( $image_dir, 'perl' );
my $libdir = catdir( $perldir, 'vendor', 'lib' );
my $bindir = catdir( $perldir, 'bin' );
my $cdir = catdir( $image_dir, 'c' );
view release on metacpan or search on metacpan
lib/Perl/LanguageServer/DebuggerInterface.pm view on Meta::CPAN
require Cwd;
$abs_path = Cwd::cwd()."/$abs_path";
}
}
my @elems = split m{/}, $abs_path;
my $ptr = 1;
while($ptr <= $#elems){
if($elems[$ptr] eq '' ){
splice @elems, $ptr, 1;
}
view release on metacpan or search on metacpan
t/Policy/ValuesAndExpressions/require_interpolation_of_metachars.t view on Meta::CPAN
$VERSION = q<$Revision$>;
($VERSION) = q<$Revision$> =~ m/(\d+)/mx;
our $VERSION = substr(q/$Revision$/, 10);
our ($VERSION) = q<$Revision$> =~ m/(\d+)/mx;
our ($VERSION) = (q<$Revision$> =~ m/(\d+)/mx);
our (undef, $AUTHOR, undef, undef, $VERSION) = split m/\s+/, q<$Author$ $Revision$>;
# Yes, silly example, but still need to check it.
if ( ($VERSION) = q<$Revision$> =~ m/(\d+)/mx ) {}
===
t/Policy/ValuesAndExpressions/require_interpolation_of_metachars.t view on Meta::CPAN
$VERSION = q<$Revision$>;
($VERSION) = q<$Revision$> =~ m/(\d+)/mx;
our $VERSION = substr(q/$Revision$/, 10);
our ($VERSION) = q<$Revision$> =~ m/(\d+)/mx;
our ($VERSION) = (q<$Revision$> =~ m/(\d+)/mx);
our (undef, $AUTHOR, undef, undef, $VERSION) = split m/\s+/, q<$Author$ $Revision$>;
# Yes, silly example, but still need to check it.
if ( ($VERSION) = q<$Revision$> =~ m/(\d+)/mx ) {}
===
view release on metacpan or search on metacpan
lib/Perl/PrereqScanner/NotQuiteLite/Parser/Syntax.pm view on Meta::CPAN
my $feature_name = $tokens->[0];
my $name =
join '::',
map ucfirst,
split m{/},
join '',
map ucfirst,
split qr{_}, $feature_name;
my $feature_module = "Syntax::Feature::$name";
view release on metacpan or search on metacpan
scripts/apc2svn view on Meta::CPAN
sub svn_mkdir_minus_p ($$) {
my($root,$mkdir) = @_;
die "mkdir no value" unless $mkdir;
my $ipath = "";
for my $idir (split m|/|, $mkdir) {
$ipath = $ipath ? "$ipath/$idir" : $idir;
my $urlipath = "$root/$ipath";
unless (myls $urlipath) {
mysystem(svn => "mkdir",
"-m" => "mkdir $ipath", $urlipath) or die;
view release on metacpan or search on metacpan
lib/Perl/Tidy/Formatter.pm view on Meta::CPAN
push @{ $common_hash{$key}->{direct_calls} }, $rcall_item;
}
}
#----------------------------------------------
# Now split method calls into self and external
#----------------------------------------------
my @debug_warnings;
foreach my $seqno (@method_call_seqnos) {
my $rcall_item = $rsub_call_paren_info_by_seqno->{$seqno};
my $package = $rcall_item->{package};
view release on metacpan or search on metacpan
lib/Perl/ToPerl6/Annotation.pm view on Meta::CPAN
# Compose the specified modules into a regex alternation. Wrap each
# in a no-capturing group to permit "|" in the modules specification.
my @transformer_name_patterns = grep { $_ ne $EMPTY }
split m{\s *[,\s] \s*}xms, $patterns_string;
my $re = join $PIPE, map {"(?:$_)"} @transformer_name_patterns;
my @site_transformer_names = Perl::ToPerl6::TransformerFactory::site_transformer_names();
@disabled_transformer_names = grep {m/$re/ixms} @site_transformer_names;
# It is possible that the Transformer patterns listed in the annotation do not
view release on metacpan or search on metacpan
t/corpus-stack/PSGI-Handy/lib/PSGI/Handy/Router.pm view on Meta::CPAN
# anything else -> quotemeta (literal, dots are NOT wildcards)
# The whole thing is anchored with \A ... \z so matching is exact.
# --------------------------------------------------------------------
sub _compile {
my ($pattern) = @_;
my @segs = split m{/}, $pattern, -1; # -1 keeps trailing empty fields
my @names;
my @parts;
my $last = $#segs;
my $i;
for ($i = 0; $i <= $last; $i++) {
view release on metacpan or search on metacpan
share/Apocalypse/A05.pod view on Meta::CPAN
C<//> is no longer a short form of C<m//>, but rather a short form of
C<rx//>. If you want to add modifiers to a C<//>, you have to turn it
into an C<rx//>, not an C<m//>. It's now I<wrong> to call C<split> like
this:
split m/.../
(That is, it's wrong unless you actually want the return value of the
pattern match to be used as the literal split delimiter.)
The old C<?...?> syntax is gone. Indeed, it has to go for us to get the
share/Apocalypse/A05.pod view on Meta::CPAN
But I think I like the OO notation better here anyway:
@array = $string.split;
In fact, split may not be a function at all. The default split might
just be a string method and use unary dot:
@array = .split;
We still have the third argument to deal with, but that's likely to be