view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Docker/API/Client.pm view on Meta::CPAN
my ($self, $image_ref) = @_;
# Strip ":tag" or "@sha256:..." suffix from the image part.
my $name = $image_ref;
$name =~ s/\@sha256:.*$//;
my @parts = split m{/}, $name;
# If the first component does NOT look like a registry host
# (no dot, no colon, not "localhost"), it's an implicit Docker Hub repo.
if (@parts < 2 || ($parts[0] !~ /[.:]/ && $parts[0] ne 'localhost')) {
return 'https://index.docker.io/v1/';
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/InsertExample/FromMojoTemplates.pm view on Meta::CPAN
my $what = $2;
$what =~ s{ }{}g;
$what =~ s{,,+}{,}g;
my @configs = split m/,/ => $what;
my @wanted = ();
my @unwanted = ();
my $all = 0;
my $want_all_examples = 0;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/JSAN/Shotenjin.pm view on Meta::CPAN
my @params;
foreach my $entry (keys(%copy)) {
my %options = map { $_ => 1 } (split m/,/, $copy{ $entry });
my $keep_whitespace = $options{ kw } || $options{ keep_whitespace };
my $cwd_as_base = $options{ absolute } || $options{ cwd_as_base };
push @params, { regex => qr/$entry/, keep_whitespace => $keep_whitespace, cwd_as_base => $cwd_as_base };
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/MapMetro/MakeGraphViz/Map.pm view on Meta::CPAN
if($graphvizfile) {
my $settings = $graphvizfile->slurp;
$settings =~ s{^#.*$}{}g;
$settings =~ s{\n}{ }g;
for my $custom (split m/ +/ => $settings) {
if($custom =~ m{^(\d+)-(\d+):([\d\.]+)$}) {
my $origin_station_id = $1;
my $destination_station_id = $2;
my $len = $3;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Module/Features.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$self->_load_modules;
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/NextRelease/Grouped.pm view on Meta::CPAN
isa => Str,
default => '%{ (TRIAL RELEASE)}T',
);
has groups => (
is => 'ro',
isa => (ArrayRef[Str])->plus_coercions(Str, sub { [split m{\s*,\s*}, $_] }),
traits => ['Array'],
coerce => 1,
default => sub { ['API Changes', 'Bug Fixes', 'Enhancements', 'Documentation'] },
handles => {
all_groups => 'elements',
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Perinci/CmdLine.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
my $abstract = $self->_get_abstract_from_meta_summary($filename);
return unless $abstract;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Rinci/AbstractFromMeta.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
open my $fh, '<', $filename or die "File ${filename} cannot open: $!";
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/ScriptX.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
#open my $fh, '<', $filename or die "File ${filename} cannot open: $!";
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Sort/Sub.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
#open my $fh, '<', $filename or die "File ${filename} cannot open: $!";
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Sorter.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
#open my $fh, '<', $filename or die "File ${filename} cannot open: $!";
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/SurgicalPodWeaver.pm view on Meta::CPAN
if ( $content =~ m/^\s*#+\s*(?:Dist::Zilla):\s*(.+)$/m ) {
%hint = map {
m/^([\+\-])(.*)$/ ?
( $1 eq '+' ? ( $2 => 1 ) : ( $2 => 0 ) ) :
()
} split m/\s+/, $1;
}
return \%hint;
}
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/perlmv.pm view on Meta::CPAN
sub before_build {
my $self = shift;
my $name = $self->zilla->name;
my $class = $name; $class =~ s{ [\-] }{::}gmx;
my $filename = $self->zilla->_main_module_override ||
catfile( 'lib', split m{ [\-] }mx, "${name}.pm" );
$filename or die 'No main module specified';
-f $filename or die "Path ${filename} does not exist or not a file";
my $abstract = $self->_get_abstract_from_scriptlet_summary($filename);
return unless $abstract;
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/Author/AMON.pm view on Meta::CPAN
=cut
sub configure_meta {
my ($self) = @_;
my ($gh_user, $gh_repo) = split m(/), scalar $self->github, 2;
unless (length $gh_user and length $gh_repo) {
die "Github repo of the form <user>/<repo> required!";
}
$self->add_plugins(
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/PrereqsClean.pm view on Meta::CPAN
# remove any obvious split potentials
if ($self->removal_level <= RL_DIST_NO_SPLIT) {
my ($non_ns, $new_mods) = part { /^\Q$main_module\E(?:\:\:|$)/ } @modules;
@modules = $new_mods ? @$new_mods : ();
# Add split modules to a "new" distro for further processing
# (This will clean up both Dist::A::* and Dist::B::* from Dist-A)
if ($non_ns && $new_mods) {
@$non_ns = sort { length($a) <=> length($b) } @$non_ns;
unshift @distros, [ $non_ns->[0], @$non_ns ];
}
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/ROKR.pm view on Meta::CPAN
if ( $content =~ m/^\s*#+\s*(?:Dist::Zilla):\s*(.+)$/m ) {
%hint = map {
m/^([\+\-])(.*)$/ ?
( $1 eq '+' ? ( $2 => 1 ) : ( $2 => 0 ) ) :
()
} split m/\s+/, $1;
}
return \%hint;
}
view release on metacpan or search on metacpan
t/file_has_string.t view on Meta::CPAN
't/test-distros/module-install-autoinstall/Makefile.PL' => 'auto_install'
};
foreach my $file ( sort keys %$pass_tests )
{
my $name = File::Spec->catfile( split m|/|, $file );
ok( -e $name, "Passing file [$name] exists" );
ok( $class->_file_has_string( $name, $pass_tests->{$file} ) );
}
}
t/file_has_string.t view on Meta::CPAN
't/test-distros/module-install/Makefile.PL' => 'auto_install'
};
foreach my $file ( sort keys %$fail_tests )
{
my $name = File::Spec->catfile( split m|/|, $file );
ok( -e $name, "Passing file [$name] exists" );
ok( ! $class->_file_has_string( $name, $fail_tests->{$file} ) );
}
}
view release on metacpan or search on metacpan
lib/Dita/PCD.pm view on Meta::CPAN
}
elsif ($l =~ m(\A\S)) # Description
{push @p, newDitaPcdDescription(description=>$l);
}
else # Method
{if (my ($method, @context) = split m/\s+/, trim($l)) # Parse command string invoking method
{push @p, newDitaPcdMethod(method=>$method, context=>[@context]);
}
}
}
lib/Dita/PCD.pm view on Meta::CPAN
sub compilePcdString($;$) #P Compile the specified L<pcd> directives in the supplied B<$string> optionally associated with B<$file>.
{my ($string, $file) = @_; # Input string, optional name of file associated with string
my $if = $file // q(); # Nominal file
my @l = split m/\n/, $string;
my @blocks;
for my $i(keys @l) # Each line==row a pcd file
{my $l = $l[$i];
my $j = $i + 1;
lib/Dita/PCD.pm view on Meta::CPAN
if ($l =~ m(\A\S)s) # Change description
{push @blocks, [[trim($l), $i+1, $if], []];
}
else # Change command block
{if (my ($cmd, @Keys) = split m/\s+/, trim($l)) # Parse command
{my @keys;
for my $key(@Keys) # Transforms keys into Perl strings
{if ($key =~ m(undef)) {push @keys, "undef"} # Undef for anything
elsif ($key =~ m/\Aqr(.*)\Z/s) {push @keys, $key} # Words wrapped with qr(.*) are regular expressions
view release on metacpan or search on metacpan
lib/Data/Object/String.pm view on Meta::CPAN
=head2 split
split(RegexpRef $arg1, Num $arg2) : ArrayObject
The split method splits the string into a list of strings, separating each
chunk by the argument (string or regexp object), and returns that list as an
array reference. This method optionally takes a second argument which would be
the limit (number of matches to capture). Note, this operation expects the 1st
argument to be a Regexp object or a String. This method returns a
array object.
view release on metacpan or search on metacpan
lib/Doc/Simply/Assembler.pm view on Meta::CPAN
my (@blocks, @block);
my $normalizer = $self->normalizer;
for my $comment (@$comments) {
my ($type, $content) = @$comment;
my @content = split m/\n/, $content;
if ($type eq "line") {
@content = map { $normalizer->($_) } @content;
push @block, @content;
}
else {
view release on metacpan or search on metacpan
examples/site/src/docs/2.0/os/win32/Changes.pod view on Meta::CPAN
The most recent changes are listed first.
=head1 Thu May 30 16:44:02 SGT 2002
* split modperl2 into config and install
[Randy Kobes E<lt>randy@theoryx5.uwinnipeg.caE<gt>]
=head1 Thu May 30 12:20:02 SGT 2002
* win32::modperl2 initial docs
view release on metacpan or search on metacpan
lib/Document/Stembolt.pm view on Meta::CPAN
$self->content->write($self->file);
}
sub _editor {
return [ split m/\s+/, ($ENV{VISUAL} || $ENV{EDITOR}) ];
}
sub _edit_file {
my $file = shift;
die "Don't know what editor" unless my $editor = _editor;
view release on metacpan or search on metacpan
lib/Document/TriPart/Cabinet/Document.pm view on Meta::CPAN
# return $self->{_modified_datetime};
#}
#sub _extract_datetime {
# my $self = shift;
# return unless my $datetime = $self->header->{datetime};
# my ($created, $modified) = split m/\s*|\s*/, $datetime, 2;
# $self->{_created_datetime} = $created;
# $self->{_modified_datetime} = $modified;
#
#}
#sub created_datetime {
view release on metacpan or search on metacpan
lib/Document/TriPart.pm view on Meta::CPAN
$string =~ s/^---\s*//;
return $string;
}
sub _editor {
return [ split m/\s+/, ($ENV{VISUAL} || $ENV{EDITOR}) ];
}
sub _edit_file {
my $file = shift;
die "Don't know what editor" unless my $editor = _editor;
view release on metacpan or search on metacpan
lib/Dpkg/Vendor.pm view on Meta::CPAN
my $vendor = shift || get_current_vendor() || 'Default';
my $vendor_key = lc $vendor =~ s{$vendor_sep_regex}{}gr;
state %OBJECT_CACHE;
return $OBJECT_CACHE{$vendor_key} if exists $OBJECT_CACHE{$vendor_key};
my @vendor_parts = split m{$vendor_sep_regex}, $vendor;
my @names;
push @names, join q{}, map { ucfirst } @vendor_parts;
push @names, join q{}, map { ucfirst lc } @vendor_parts;
view release on metacpan or search on metacpan
lib/EBI/FGPT/FuzzyRecogniser.pm view on Meta::CPAN
# to signal sections irrespective of actual line endings
# this is a major headache to resolve, the parser doesn't
# do this and we're not going to bother with it either
$alt =~ s/;;//g;
$alt =~ s/INCLUDED//g; # remove INCLUDED as it screws up scoring
my @synonyms = split m!\n!, $alt;
# if alt doesn't start with ;; it's an overspill from the
# title (go figure!)
if ( $alt ne ''
&& $omim_entry->alternative_titles_and_symbols() !~ /^;;/ )
view release on metacpan or search on metacpan
lib/EBook/Tools/Unpack.pm view on Meta::CPAN
attribute C<opffile>, then the object attribute is updated to match.
=item * C<textfile> (optional)
The file containing the main text of the document. If specified, the
method will attempt to split metadata out of the file and add whatever
remains to the manifest of the OPF.
=item * C<mediatype> (optional)
The media type (mime type) of the document specified via C<textfile>.
view release on metacpan or search on metacpan
t/04_queue_group.t view on Meta::CPAN
}
close $sock;
plan tests => 3;
# Two subscribers in same queue group should split messages
my $nats;
$nats = EV::Nats->new(
host => $host,
port => $port,
on_error => sub { diag "error: @_"; EV::break },
view release on metacpan or search on metacpan
lib/EWS/Calendar/Item.pm view on Meta::CPAN
@{$params->{'RequiredAttendees'}->{Attendee}} ];
$params->{'Body'} = $params->{'Body'}->{'_'};
# rework semicolon separated list into array, and also remove Organizer
$params->{'DisplayTo'} = [ grep {$_ ne $params->{'Organizer'}->{'Name'}}
split m/; /, $params->{'DisplayTo'} ];
# set Perl's encoding flag on all data coming from Exchange
# also strip HTML tags from incoming data
my $hs = HTML::Strip->new(emit_spaces => 0);
view release on metacpan or search on metacpan
lib/Email/Abuse/Investigator.pm view on Meta::CPAN
# Returns 1 (true) if the IP is within the CIDR block, 0 otherwise.
sub _ip_in_cidr :Private {
my ($self, $ip, $cidr) = @_;
return $ip eq $cidr unless $cidr =~ m{/};
my ($net_addr, $prefix) = split m{/}, $cidr;
return 0 if !defined($prefix) || $prefix !~ /^\d+$/ || $prefix > 32;
# Compute the network mask and compare masked network addresses
my $mask = ~0 << (32 - $prefix);
my $net_n = unpack 'N', (inet_aton($net_addr) // return 0);