view release on metacpan or search on metacpan
lib/Etis620.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Etis620.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Euhc.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Euhc.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Eusascii.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Eusascii.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Eutf2.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Eutf2.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Ewindows1252.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Ewindows1252.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Ewindows1258.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif (/\G \b (m) \b /oxgc) {
if (/\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { return e_split ($e.'qr',$1,$3,$2,$4); } # m# # --> qr # #
else {
while (not /\G \z/oxgc) {
if (/\G ((?>\s+)|\#.*) /oxgc) { $e .= $1; }
lib/Ewindows1258.pm view on Meta::CPAN
}
die __FILE__, ": Can't find string terminator anywhere before EOF\n";
}
}
# split m//
elsif ($string =~ /\G \b (m) \b /oxgc) {
if ($string =~ /\G (\#) ((?:$qq_char)*?) (\#) ([cgimosxpadlunbB]*) /oxgc) { $e_string .= e_split ($e.'qr',$1,$3,$2,$4); next E_STRING_LOOP; } # m# # --> qr # #
else {
while ($string !~ /\G \z/oxgc) {
if ($string =~ /\G ((?>\s+)|\#.*) /oxgc) { $e_string .= $e . $1; }
view release on metacpan or search on metacpan
lib/Chart/Base.pm view on Meta::CPAN
$self->{sum} = 0;
# Don't sort the data unless they ask
$self->{'sort'} = 'false';
# The Interval for drawing the x-axes in the split module
$self->{'interval'} = undef;
# The start value for the split chart
$self->{'start'} = undef;
view release on metacpan or search on metacpan
lib/Class/DBI/AsXML.pm view on Meta::CPAN
=cut
use base qw[Exporter];
use vars qw[@EXPORT $VERSION];
$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.2 $)[1];
@EXPORT = qw[to_xml create_from_xml _to_xml_stringify];
use XML::Simple;
use overload;
view release on metacpan or search on metacpan
- third argument to has_many is now optional, defaulting to our
'class-name' (undocumented)
- provide normalised method names if appropriate (i.e. a Film column
will give us methods $obj->Film and $obj->film). This previously
happened inconsistently.
- split most of the column related code to Class::DBI::Columns
- remove dependency on Class::Fields
- reference the new Class::DBI mailing lists
- Give better errors if no database connection set up
(thanks to Simon Cozens)
- A failed create now calls $class->on_failed_create, which by
view release on metacpan or search on metacpan
lib/Class/DBI/UUID.pm view on Meta::CPAN
=cut
use base qw[Exporter Class::Data::Inheritable];
use vars qw[@EXPORT $VERSION];
$VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1];
@EXPORT = qw[uuid_columns uuid_columns_type];
use Data::UUID;
=head2 uuid_columns
view release on metacpan or search on metacpan
- third argument to has_many is now optional, defaulting to our
'class-name' (undocumented)
- provide normalised method names if appropriate (i.e. a Film column
will give us methods $obj->Film and $obj->film). This previously
happened inconsistently.
- split most of the column related code to Class::DBI::Columns
- remove dependency on Class::Fields
- reference the new Class::DBI mailing lists
- Give better errors if no database connection set up
(thanks to Simon Cozens)
- A failed create now calls $class->on_failed_create, which by
view release on metacpan or search on metacpan
devel/curversion view on Meta::CPAN
$version = $v->numify;
}
if ($options->{'-i'}) {
my $v = version->new($version);
my @digits = split m/\./, $v->stringify;
$digits[-1]++;
$v = version->new( join q{.}, @digits );
$version = $v->stringify;
}
view release on metacpan or search on metacpan
devel/curversion view on Meta::CPAN
$version = $v->numify;
}
if ($options->{'-i'}) {
my $v = version->new($version);
my @digits = split m/\./, $v->stringify;
$digits[-1]++;
$v = version->new( join q{.}, @digits );
$version = $v->stringify;
}
view release on metacpan or search on metacpan
# differ clear & reset; define behaviour in terms of storage (therefore, tie)
# finish & document array
# finish array.t (check test notes at end)
# tie scalars
# split methods into files in their own directory
# split methodmaker further; turn V1 opts into own class hierarchy?
# ; remove bits that are needed only for class
# manufacture (OPTEXT, more?)
# document 'new'
view release on metacpan or search on metacpan
devel/curversion view on Meta::CPAN
$version = $v->numify;
}
if ($options->{'-i'}) {
my $v = version->new($version);
my @digits = split m/\./, $v->stringify;
$digits[-1]++;
$v = version->new( join q{.}, @digits );
$version = $v->stringify;
}
view release on metacpan or search on metacpan
lib/Class/Usul/Config.pm view on Meta::CPAN
sub _build_pathname {
my $name = ('-' eq substr $PROGRAM_NAME, 0, 1) ? $EXECUTABLE_NAME
: $PROGRAM_NAME;
return rel2abs( (split m{ [ ][\-][ ] }mx, $name)[ 0 ] );
}
sub _build_phase {
my $verdir = basename( $_[ 0 ]->inflate_path( $_[ 1 ], 'appldir' ) );
my ($phase) = $verdir =~ m{ \A v \d+ \. \d+ p (\d+) \z }msx;
lib/Class/Usul/Config.pm view on Meta::CPAN
}
sub _build_prefix {
my $appclass = $_[ 0 ]->inflate_symbol( $_[ 1 ], 'appclass' );
return (split m{ :: }mx, lc $appclass)[ -1 ];
}
sub _build_root {
my $dir = $_[ 0 ]->inflate_path( $_[ 1 ], 'vardir', 'root' );
view release on metacpan or search on metacpan
SyncTree.pm view on Meta::CPAN
my $txt = src_rlink($src);
my $sbase = $self->srcbase;
return $txt unless $self->{ST_RELLINKS} and ($txt =~ /^$sbase/);
$txt =~ s%^$sbase/(.*)%$1%;
$src =~ s%^$sbase/(.*)%$1%;
my @t = split m%/%, $txt;
my @s = split m%/%, $src;
my $i = 0;
while ($t[$i] eq $s[$i]) {
$i++;
shift @t;
shift @s;
SyncTree.pm view on Meta::CPAN
my $cmp = $self->no_cmp ? undef : $self->cmp_func;
my @keys = sort $d? grep m%^\Q$d\E%, keys %{$self->{ST_ADD}}
: keys %{$self->{ST_ADD}};
for my $e (@keys) {
my $edst = join '/', $self->dstbase, $e;
my @intdir = split m%/%, $e;
pop @intdir;
if (@intdir) {
my $dd = $self->dstbase;
my $pf = '';
while (my $id = shift @intdir) {
view release on metacpan or search on metacpan
$l =~ s/^(.*)_[\d.]+$/$1/;
}
my $trim = sub {
if ($_ and m%^element\s+(\S+)\s+(?:\.\.\.)?[/\\](\S+)[/\\]LATEST\b.*$%) {
my $vb = ($1 eq '*'? '' : $1);
my @bt = split m%[/\\]%, $2;
if ($vb) {
$vb =~ s%^(.*?)[/\\]\.\.\.%$1%;
$vb = $CT->des(['-s'], "vob:$vb")->stderr(0)->qx;
}
my $ext = $vb? "\@$vb" : '';
view release on metacpan or search on metacpan
cleartool.dbg view on Meta::CPAN
BEGIN {
# Helpful when discriminating between Windows and good OSes.
use constant MSWIN => $^O =~ /MSWin32|Windows_NT/i ? 1 : 0;
# Derive the name we were run as and make it available globally for msgs.
$prog = $ENV{CLEARCASE_WRAPPER_PROG} || (split m%[/\\]+%, $0)[-1];
$dieexit = sub { die @_, "\n" };
$dieexec = sub { die system(@_), "\n" }; #function
$diemexec = sub { #method: patch after loading
my $self = shift;
die $self->system(@_), "\n";
view release on metacpan or search on metacpan
t/headers/cgi-mode.t view on Meta::CPAN
my ($header_str, $content) = $response =~ m{^(.*?\n)\n(.*)$}smix;
my $headers = HTTP::Headers->new();
for my $line (split /\n/smx, $header_str) {
my ($k, $v) = split m{\s*:\s*}smx, $line, 2;
$headers->header($k, $v);
}
${$headers_ref} = $headers;
${$content_ref} = $content;
view release on metacpan or search on metacpan
lib/Code/ART.pm view on Meta::CPAN
"\@_" => { aliases => { "\@ARG" => 1 }, desc => "Subroutine arguments" },
"\@ARG" => { aliases => { "\@_" => 1 }, desc => "Subroutine arguments" },
"\@ARGV" => { aliases => {}, desc => "Command line arguments" },
"\@F" => {
aliases => {},
desc => "Fields of the current input line (under autosplit mode)",
},
"\@INC" => { aliases => {}, desc => "Search path for loading modules" },
"\@LAST_MATCH_START" => {
aliases => { "\@-" => 1 },
desc =>
view release on metacpan or search on metacpan
lib/Color/Library.pm view on Meta::CPAN
my @dictionaries = @dictionaries;
if ($query =~ m/:/) {
# Looks like the query contains at least one dictionary id
my ($dictionaries, $name) = split m/:/, $query, 2;
unless (defined $name) {
$name = $dictionaries;
undef $dictionaries
}
@dictionaries = split m/,/, $dictionaries if defined $dictionaries;
$query_ = $name;
}
my $color;
for my $dictionary_id (@dictionaries) {
view release on metacpan or search on metacpan
lib/Commandable/Command.pm view on Meta::CPAN
( $args{match_msg}, $args{matches} ) = @$typespec;
}
$args{mode} = "value" if $args{name} =~ s/[=:]$//;
$args{mode} = "multi_value" if $args{multi};
my @names = split m/\|/, delete $args{name};
$args{mode} //= "set";
$args{negatable} //= 1 if $args{mode} eq "bool";
bless [ \@names, @args{qw( description mode default negatable matches match_msg )} ], $class;
}
view release on metacpan or search on metacpan
t/app/Plack/App/Directory.t view on Meta::CPAN
my $url = $dir_url . $basename;
my $is_dir = -d $file;
my @stat = stat _;
$url = join '/', map {uri_escape($_)} split m{/}, $url;
if ($is_dir) {
$basename .= "/";
$url .= "/";
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
lib => catfile( 'bzlib-src', 'libbz2'.$Config{_a} ) );
my $dlflags = $Config{ccdlflags}; # RT 105096
if ($Config{ld} ne $Config{cc} and $Config{ld} =~ m{^(.*/)?\w*ld\w*$}) {
my @flags;
for (split m/\s+/ => $dlflags) {
s/^-Wl,(-+[-\w]+),/$1 / or s/^-Wl,//;
push @flags, $_;
}
$dlflags = join " " => @flags;
}
view release on metacpan or search on metacpan
ext/zstd/lib/compress/zstd_compress.c view on Meta::CPAN
matchLength = firstHalfMatchLength;
/* Flag that we split the last match - after storing the sequence, exit the loop,
but keep the value of endPosInSequence */
finalMatchSplit = 1;
} else {
/* Move the position in sequence backwards so that we don't split match, and break to store
* the last literals. We use the original currSeq.litLength as a marker for where endPosInSequence
* should go. We prefer to do this whenever it is not necessary to split the match, or if doing so
* would cause the first half of the match to be too small
*/
bytesAdjustment = endPosInSequence - currSeq.litLength;
view release on metacpan or search on metacpan
my ($self, $string_or_array_ref) = @_;
my @text;
if (ref $string_or_array_ref eq 'ARRAY') {
@text = @{$string_or_array_ref};
} else {
@text = split m/$INPUT_RECORD_SEPARATOR/ms,
$string_or_array_ref;
}
foreach my $line (@text) {
$self->{'count'}++;
$self->_parse($line);
if ($string =~ m/^\s*$/ms) {
return 0;
}
# Split.
my ($key, $val) = split m/=/ms, $string, 2;
# Not a key.
if (length $key < 1) {
return 0;
}
if ($key !~ m/^[-\w\.:,]+\+?$/ms) {
err "Bad key '$key' in string '$string' at line ".
"'$self->{'count'}'.";
}
my @tmp = split m/\./ms, $key;
hash_array($self, \@tmp, $val);
# Ok.
return 1;
}
view release on metacpan or search on metacpan
my ($self, $string_or_array_ref) = @_;
my @text;
if (ref $string_or_array_ref eq 'ARRAY') {
@text = @{$string_or_array_ref};
} else {
@text = split m/$INPUT_RECORD_SEPARATOR/sm,
$string_or_array_ref;
}
foreach my $line (@text) {
$self->{'count'}++;
$self->_parse($line);
if ($string =~ m/^\s*$/sm) {
return 0;
}
# Split.
my ($key, $val) = split m/=/sm, $string, 2;
# Not a key.
if (length $key < 1) {
return 0;
}
if ($key !~ m/^[-\w\.:,]+\+?$/sm) {
err "Bad key '$key' in string '$string' at line ".
"'$self->{'count'}'.";
}
my @tmp = split m/\./sm, $key;
hash($self, \@tmp, $val);
# Ok.
return 1;
}
view release on metacpan or search on metacpan
lib/Config/File/Simple.pm view on Meta::CPAN
chomp $line;
$line =~ s/ [^\\] \# .* //xms; # We don't need the comments
$line =~ s/ ^ \s+ //xms; # Delete all space at the beginnig
$line =~ s/ \s+ $//xms; # Delete all space at the end
next if $line !~ / ^ $variable \s* = /xms; # Is this the right variable?
$value = (split m/=/, $line)[1]; # We need the value
$value =~ s/ ^ \s+ //xms; # Delete all space at the beginnig of the value
$value =~ s/ \s+ $ //xms; # Delete all space at the end of the value
$value =~ s/\\#/#/g; # Unescape the escaped hashs
}
lib/Config/File/Simple.pm view on Meta::CPAN
$line =~ s/ \s+ $//xms; # Delete all space at the end
foreach my $variable (@variables) {
next if $line !~ / ^ $variable \s* = /xms; # Is this the right variable?
my $value; # This value will be added to the hash: $values{$variable} = $value
$value = (split m/=/, $line)[1]; # We need the value, not the variable
$value =~ s/ ^ \s+ //xms; # Delete all space at the beginnig of the value
$value =~ s/ \s+ $ //xms; # Delete all space at the end of the value
$value =~ s/\\#/#/g; # Unescape the escaped hashs
$values{$variable} = $value;
}
view release on metacpan or search on metacpan
lib/Config/Identity.pm view on Meta::CPAN
my $run;
# Old versions, please ignore
#$run = "$gpg $gpg_arguments -qd --no-tty --command-fd 0 --status-fd 1";
#$run = "$gpg $gpg_arguments -qd --no-tty --command-fd 0";
$run = "$gpg $gpg_arguments -qd --no-tty";
my @run = split m/\s+/, $run;
push @run, $file;
my $process = start( \@run, '>pipe', \*OUT, '2>pipe', \*ERR );
my $output = join '', <OUT>;
my $_error = join '', <ERR>;
finish $process;
lib/Config/Identity.pm view on Meta::CPAN
my $self = shift;
my $content = shift;
return unless $content;
my %content;
for ( split m/\n/, $content ) {
next if /^\s*#/;
next unless m/\S/;
next unless my ($key, $value) = /^\s*(\w+)\s+(.+)$/;
$content{$key} = $value;
}