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
t/mutant_killers.t view on Meta::CPAN
# Plain value must NOT be split
is($cfg->get('plain'), 'nocomma', 'non-comma value left as string');
};
subtest '_load_config() - key=val comma split creates sub-hash (COND_INV_644_9)' => sub {
# key=val pairs in comma-split must create a sub-hash.
# If the condition were inverted, key=val pairs would be treated as plain values.
my $dir = tempdir(CLEANUP => 1);
_write_file($dir, 'base.yaml', "settings: host=localhost,port=5432\n");
my $cfg = Config::Abstraction->new(config_dirs => [$dir]);
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;
}
view release on metacpan or search on metacpan
lib/Config/Model/Backend/Augeas.pm view on Meta::CPAN
# Likewise, hashes can be in the form
# /files/etc/ssh/sshd_config/Subsystem[2]/foo/ is-seq ditch idx
# /files/etc/ssh/sshd_config/Bar/foo/ non-seq
my @cm_steps = split m!/+!, $cm_p;
my $obj = $self->{node};
$obj = $obj->fetch_element( shift @cm_steps ) if $set_in;
while ( my $step = shift @cm_steps ) {
my ( $label, $idx ) = ( $step =~ /(\w+)(?:\[(\d+)\])?/ );
view release on metacpan or search on metacpan
lib/Config/Model/CursesUI.pm view on Meta::CPAN
my $str ;
if ($view_type eq 'tabular') {
$str =sprintf("%-28s | %-10s | %-30s", $name,$value,$node->name) ;
}
else {
my @level = split m/ +/ ,$loc ;
$str = ('. ' x scalar @level) . $name ;
$str .= " = '$value'" if @$_ == 4;
}
($idx++,$str) ;
} @good_leaves ;
view release on metacpan or search on metacpan
lib/App/Cme/Command/meta.pm view on Meta::CPAN
sub load_meta_model {
my ($self, $opt, $args) = @_;
my $root_model = $opt->{_root_model};
my $cm_lib_dir = path(split m!/!, $opt->{dir}) ; # replace with cm_lib_dir ???
if (! $cm_lib_dir->is_dir) {
$cm_lib_dir->mkdir();
}
view release on metacpan or search on metacpan
lib/Config/Model/AnyId.pm view on Meta::CPAN
my $path = delete $args{path};
my $autoadd = 1;
$autoadd = $args{autoadd} if defined $args{autoadd};
my $get_obj = delete $args{get_obj} || 0;
$path =~ s!^/!!;
my ( $item, $new_path ) = split m!/!, $path, 2;
my $dcm = $args{dir_char_mockup};
# $item =~ s($dcm)(/)g if $dcm ;
if ($dcm) {
lib/Config/Model/AnyId.pm view on Meta::CPAN
return $obj->get( path => $new_path, get_obj => $get_obj, %args );
}
sub set ($self, $path, @args) {
$path =~ s!^/!!;
my ( $item, $new_path ) = split m!/!, $path, 2;
return $self->fetch_with_id($item)->set( $new_path, @args );
}
sub copy ( $self, $from, $to ) {
view release on metacpan or search on metacpan
my $build = { %empty_build };
$pv =~ m{^\s+Compiled at\s+(.*)}m
and $build->{'stamp'} = $1;
$pv =~ m{^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)}ms
and $build->{'patches'} = [ split m{\n+\s*}, $1 ];
$pv =~ m{^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))}ms
and map { $build->{'options'}{$_} = 1 } split m{\s+|\n} => $1;
$build->{'osname'} = $config{'osname'};
$pv =~ m{^\s+Built under\s+(.*)}m
and $build->{'osname'} = $1;
$config{'osname'} ||= $build->{'osname'};
view release on metacpan or search on metacpan
lib/Config/YAML/Modern.pm view on Meta::CPAN
# this block for filename to hash key resolving
# et my.config.yaml -> { my => { config => { $data_here } } }
my ( $filename_for_hash, undef, $suffix ) =
fileparse( $filename, qr/\.[^.]*/ );
my @file_part = split m/\./, $filename_for_hash;
# I care about all of you, but it bad practice!!!
if ( defined $self->{'i_dont_use_suffix'} ) {
$suffix =~ s/^\.//;
view release on metacpan or search on metacpan
eg/config_creator.pl view on Meta::CPAN
my $config = '';
while( <> ) {
next if m/\s*#/;
chomp;
my( $directive, $description ) = split m/\s+/, $_, 2;
my $answer = prompt( $description );
$config .= "$directive $answer\n";
}
view release on metacpan or search on metacpan
examples/fatpacked.plackup 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
lib/Contenticious.pm view on Meta::CPAN
% }
</ul>
@@ navi.html.ep
% my $node = contenticious->root_node;
% my @names = split m|/| => $cpath;
% my $level = 1;
% LOOP: { do { # perldoc perlsyn: do-while isn't a loop
% last unless $node->can('children');
% my $name = shift(@names) // '';
% my $id_prefix = 'sub' x ($level - 1);
view release on metacpan or search on metacpan
lib/Convert/AnyBase/Converter.pm view on Meta::CPAN
$string = $normalize->();
}
my $number = 0;
my $offset = 1;
my @string = reverse split m//, $string;
for ( @string ) {
my $value = index $set, $_;
croak "Unknown character $_ in input \"$string\"\n" if -1 == $value;
$number += ( $value * $offset );
view release on metacpan or search on metacpan
lib/Convert/Color/Library.pm view on Meta::CPAN
my $color;
if( $name =~ m{^(.*)/(.*)$} ) {
( my $dicts, $name ) = ( $1, $2 );
$color = Color::Library->color( [ split m/,/, $dicts ], $name );
}
else {
$color = Color::Library->color( $name );
}
view release on metacpan or search on metacpan
lib/Crane.pm view on Meta::CPAN
sub get_package_path {
my ( $package ) = @_;
my @path = split m{::}si, $package;
$path[-1] .= '.pm';
return catdir(@path);
}
view release on metacpan or search on metacpan
lib/Crypt/Format.pm view on Meta::CPAN
return _do_base64('decode', $pem);
}
sub split_pem_chain {
return split m[(?<=-)[\x0d\x0a]+(?=-)], shift();
}
sub _do_base64 {
my $path = "$BASE64_MODULE.pm";
$path =~ s<::></>g;
view release on metacpan or search on metacpan
04-headers.patch:
* Updated matrixssl_win32_inline.
Original code was written for MatrixSSL-1.2.5 which has single .h file:
matrixSsl.h. Starting from version 1.7.3 MatrixSSL split matrixSsl.h into
two files: matrixSsl.h and matrixCommon.h. Part of code which
matrixssl_win32_inline fixes was left in matrixSsl.h, but another part of
code was moved into matrixCommon.h.
Also '#define SSLPUBLIC' was renamed to '#define MATRIXPUBLIC'.
I've updated it to process both .h-files, and #include both .h-files in .xs.
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
=cut
sub package2filename {
my ($self, $package) = @_;
my @components = split m/::/, $package;
$components[$#components] .= ".pm";
return catfile(@components);
}
=item I<process_Inline_C_file($filename, @preload_modules)>
inc/My/Module/Build.pm view on Meta::CPAN
my $meta_yml = YAML::LoadFile($metafile);
$meta_yml->{no_index} = $self->{properties}->{add_to_no_index} || {};
$meta_yml->{no_index}->{directory} ||= [];
unshift(@{$meta_yml->{no_index}->{directory}}, qw(examples inc t),
(map { File::Spec::Unix->catdir("lib", split m/::/) }
(@{$meta_yml->{no_index}->{namespace} || []})));
foreach my $package (keys %{$meta_yml->{provides}}) {
delete $meta_yml->{provides}->{$package} if
(grep {$package =~ m/^\Q$_\E/}
view release on metacpan or search on metacpan
t/Crypt-Perl-Ed25519-PrivateKey.t view on Meta::CPAN
sprintf('%v.02x', $key->get_public() ),
$pub_str,
'correct public key determined',
);
my $msg = join q<>, map { chr hex } split m<\.>, $msg_vec;
my $sig = $key->sign($msg);
is(
sprintf('%v.02x', $sig),
$sig_vec,
'expected signature',
);
my $real_sig = join q<>, map { chr hex } split m<\.>, $sig_vec;
ok( $key->verify($msg, $real_sig), 'verify()' );
}
#----------------------------------------------------------------------
t/Crypt-Perl-Ed25519-PrivateKey.t view on Meta::CPAN
}
#----------------------------------------------------------------------
my $private = Crypt::Perl::Ed25519::PrivateKey->new(
join( q<>, map { chr hex } split m<\.>, '9d.61.b1.9d.ef.fd.5a.60.ba.84.4a.f4.92.ec.2c.c4.44.49.c5.69.7b.32.69.19.70.3b.ac.03.1c.ae.7f.60' ),
);
my $thumbprint = $private->get_jwk_thumbprint('sha256');
is(
$thumbprint,
view release on metacpan or search on metacpan
lib/Cwd/Ext.pm view on Meta::CPAN
unless( $abs_path=~/^\// ){
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
lib/Ecyrillic.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; }
view release on metacpan or search on metacpan
0.4 2011-12-15
- removed DAIA::Error class
- support broader/narrower items
- support more RDF serialization formats
0.35 2011-12-13
- split messages and error
- moved to dist::Zilla
- started to implement DAIA/RDF
0.31 2011-01-06
- fixed service URIs (http://purl.org/ontology/daia/Service/*)
- fixed parsing from URL
view release on metacpan or search on metacpan
t/40-alltypes.t view on Meta::CPAN
$def .= <<DEF;
A_BOOLEAN BOOLEAN
DEF
}
for (split m/,[\r\n]+/ => $def) {
my ($f, $d) = m/^\s*(\S+)\s+(\S+)/;
push @{$expected{NAME}}, $f;
push @{$expected{NAME_lc}}, lc $f;
push @{$expected{NAME_uc}}, uc $f;
push @{$expected{DEF}}, $d;
view release on metacpan or search on metacpan
lib/DBD/PO/Locale/PO.pm view on Meta::CPAN
my $eol = $self->eol();
return join q{}, map {
"$leader$_$eol";
} split m{\Q$eol\E}xms, $comment;
}
# Quote a string properly
sub quote {
my $self = shift;
lib/DBD/PO/Locale/PO.pm view on Meta::CPAN
# reference
elsif ( ($value) = $line =~ m{\A \# : \s+ (.*)}xms ) {
last LINE if $is_new_entry->('comment');
$po ||= $class->new(eol => $eol, -loaded_line_number => $line_number);
# maybe more in 1 line
$value = join $eol, split m{\s+}xms, $value;
$po->reference(
defined $po->reference()
? $po->reference() . "$eol$value"
: $value
);
}
# flags
elsif ( ($value) = $line =~ m{\A \# , \s+ (.*)}xms) {
last LINE if $is_new_entry->('comment');
$po ||= $class->new(eol => $eol, -loaded_line_number => $line_number);
for my $flag ( split m{\s* , \s*}xms, $value ) {
$po->add_flag($flag);
}
}
# Translator comments
elsif (
view release on metacpan or search on metacpan
t/rt_26775_distinct.t view on Meta::CPAN
my $slurp;
while (my $line = <DATA>) {
$slurp .= $line;
}
QUERY:
for my $query (split m/ ; /xms, $slurp) {
# remove newline + leading and trailing whitespace.
chomp $query;
$query =~ s/^ \s+ //xms;
$query =~ s/ \s+ $//xms;
view release on metacpan or search on metacpan
t/rt_26775_distinct.t view on Meta::CPAN
while (my $line = <DATA>) {
$slurp .= $line;
}
QUERY:
for my $query (split m/ ; /xms, $slurp) {
# remove newline + leading and trailing whitespace.
chomp $query;
$query =~ s/^ \s+ //xms;
$query =~ s/ \s+ $//xms;
view release on metacpan or search on metacpan
t/rt_26775_distinct.t view on Meta::CPAN
my $slurp;
while (my $line = <DATA>) {
$slurp .= $line;
}
QUERY:
for my $query (split m/ ; /xms, $slurp) {
# remove newline + leading and trailing whitespace.
chomp $query;
$query =~ s/^ \s+ //xms;
$query =~ s/ \s+ $//xms;