view release on metacpan or search on metacpan
lib/SVG/TT/Graph.pm view on Meta::CPAN
sub _get_template_fh_sr {
my ($self) = @_;
my $ns_ref = \%main::;
for my $node ( split m<::>, ref $self ) {
$ns_ref = $ns_ref->{"${node}::"};
}
return *{$ns_ref->{'TEMPLATE_FH'}}{'SCALAR'};
}
view release on metacpan or search on metacpan
lib/SVK/Path.pm view on Meta::CPAN
$found_at_rev = $rev < $revision? $revision : $rev;
return 0;
}
return 0 if $rev < $revision;
my @target = split m{/}, $self->path_target;
return 1 if @target < 2;
my @left = (shift @target);
my @right = (@target);
view release on metacpan or search on metacpan
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
for my $match (@matches)
{
# Hack: downgrade unicode to ascii
$match =~ s/\0//gxms;
next if q{} eq $match;
my @search_paths = split m/;/xms, $match;
require File::Spec;
for my $path (@search_paths)
{
if (!File::Spec->file_name_is_absolute($path))
{
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
$imp =~ s/\0//gxms;
_log(2, "import $imp from $checkfile");
my $found = 0;
foreach my $dir (@{$fla_path_ref}, as_classpath())
{
my $f = File::Spec->catdir(File::Spec->splitdir($dir), split m/[.]/xms, $imp);
if ($f =~ m/[*]\z/xms)
{
my @d = File::Spec->splitdir($f);
pop @d;
$f = File::Spec->catdir(@d);
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
else
{
$f .= '.as';
if (-f $f)
{
my @p = split m/[.]/xms, $imp;
$imported_file_ref->{$p[-1] . '.as'} = 1;
_log(2, " import $f from $checkfile");
push @deps, $f;
$found = 1;
last;
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
# Is this class implemented in this very file?
next if any { $_ eq $imp || m/[.]\Q$imp\E\z/xms } @classes;
my $found = 0;
foreach my $dir (@{$fla_path_ref}, as_classpath())
{
my $f = File::Spec->catdir(File::Spec->splitdir($dir), split m/[.]/xms, $imp);
$f .= '.as';
if (-f $f)
{
_log(2, " instance $f from $checkfile");
push @deps, $f;
view release on metacpan or search on metacpan
# repair last line without \n
ok(
! ( $text =~ s{([^\x0D\x0A]) \z}{$1\x0D\x0A}xms ),
"$file_name has newline at EOF",
);
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
ContextGraph.pm view on Meta::CPAN
} else {
my $code = sub {
my $txt = shift;
$txt =~ s/\W/ /g;
my @toks = split m/\s+/, $txt;
\@toks;
};
$ref = $code->($content);
}
ContextGraph.pm view on Meta::CPAN
#warn "Calculating distance\n";
my $sum1 = 0;
my $sum2 = 0;
foreach my $next ( @shared ) {
my ( undef, $lcount1) = split m/,/, $self->{neighbors}{$node1}{$next};
my ( undef, $lcount2) = split m/,/, $self->{neighbors}{$node2}{$next};
my $degree = $self->degree( $next );
#warn "\t degree of $next is $degree\n";
my $elem1 = $lcount1 / $degree;
$sum1 += $elem1;
ContextGraph.pm view on Meta::CPAN
if ( exists $n->{$t} ){
# Update the local count, if necessary
my $curr_val = $n->{$t};
my ( undef, $loc ) = split m/,/, $curr_val;
unless ( $loc == $words->{$term} ) {
$n->{$t} = join ',', 1, $words->{$term};
$must_reweight++;
}
ContextGraph.pm view on Meta::CPAN
my $row_count = scalar keys %{$n};
print $fh $row_count;
foreach my $t ( sort keys %{$doc} ) {
my $index = $lookup{$t};
my ( $weight, undef ) = split m/,/, $n->{$t};
print $fh ' ', $index, ' ', $weight;
}
print $fh "\n";
}
}
ContextGraph.pm view on Meta::CPAN
=cut
sub simple_search {
my ( $self, $query ) = @_;
my @words = map { s/\W+//g; lc($_) }
split m/\s+/, $query;
my @nodes = _nodeify( 'T', @words );
my $results = $self->raw_search( @nodes );
my ($docs, $words) = _partition( $results );
my @sorted_docs = sort { $docs->{$b} <=> $docs->{$a} } keys %{$docs};
return @sorted_docs;
ContextGraph.pm view on Meta::CPAN
if ( exists $self->{neighbors}{$target}{$n} ) {
#print "\t\t$n has link to $bad_node\n";
# combine the local counts for the term members of the edge
my $curr_val = $tnode->{$n};
my $aug_val = $self->{neighbors}{$bad_node}{$n};
my ($w1, $c1) = split m/,/, $curr_val;
my ($w2, $c2) = split m/,/, $aug_val;
my $new_count = $c1 + $c2;
$curr_val =~ s/,\d+$/,$new_count/;
$tnode->{$n} = $curr_val;
view release on metacpan or search on metacpan
commit e65a57776eb40898f3039ec564d5404d53e6adb7
Author: nadim khemir <nkh@cpan.org>
Date: Thu Feb 19 20:39:20 2009 +0100
CHANGED: split main module to allow proper documentation generation
commit bcfb8295e79f69d081a8ba53aeffb345def94f00
Author: nadim khemir <nkh@cpan.org>
Date: Wed Feb 18 21:24:07 2009 +0100
view release on metacpan or search on metacpan
zstd/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
zstd/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
}
if (!wantarray)
XPUSHs(sv_2mortal(newSViv(cnt)));
} /* end splitchar */
else { /* strsplit main */
I32 numLastEmpty = 0;
cnt = 0;
p = anc = s;
e = s + byte;
if (wantarray)
XPUSHs(sv_2mortal(newSVpvn((char*)anc, e - anc)));
}
if (!wantarray)
XPUSHs(sv_2mortal(newSViv(cnt)));
} /* end strsplit main */
}
SV*
view release on metacpan or search on metacpan
lib/Shipment/SOAP/WSDL.pm view on Meta::CPAN
$LOADED_OF{ $self->{ class_resolver } } = 1;
}
sub get_type_class {
my ($self, $name) = @_;
my ($prefix,$localname) = split m{:}x , $name;
my $namespace;
if ($localname) {
$namespace = $self->{ parser }->expand_ns_prefix($prefix);
}
else {
view release on metacpan or search on metacpan
lib/Esjis.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
lib/Slovo/Controller/Celini.pm view on Meta::CPAN
# ANY /<page_alias:str>/<paragraph_alias:cel>.html
# Display a content element in a page in the site.
sub execute ($c, $page, $user, $l, $preview) {
# TODO celina breadcrumb
#my $path = [split m|/|, $c->stash->{'paragraph'}];
#my $path = $c->celini->breadcrumb($p_alias, $path, $l, $user, $preview);
my $stash = $c->stash;
my $alias = $stash->{'paragraph_alias'};
my $celina = $c->celini->find_for_display($alias, $user, $l, $preview,
{page_id => $page->{id}, box => $stash->{boxes}[0]});
view release on metacpan or search on metacpan
lib/Smart/Comments.pm view on Meta::CPAN
;
return if !$env; # i.e. if no filtering
if ($env !~ m{\A \s* 1 \s* \Z}xms) {
unshift @_, split m{\s+|\s*:\s*}xms, $env;
}
}
else {
push @intros, $arg;
}
view release on metacpan or search on metacpan
bin/stemmer-no.pl view on Meta::CPAN
$VERSION = 1.2;
my $stemmer = Lingua::Stem::Snowball::No->new(use_cache => 1);
while (my $line = <>) {
chomp $line;
foreach my $word ((split m/\s+/xms, $line)) {
my $stemmed = $stemmer->stem($word);
print "$stemmed\n";
}
}
view release on metacpan or search on metacpan
bin/stemmer-se.pl view on Meta::CPAN
$VERSION = 1.2;
my $stemmer = Lingua::Stem::Snowball::Se->new(use_cache => 1);
while (my $line = <>) {
chomp $line;
foreach my $word ((split m/\s+/xms, $line)) {
my $stemmed = $stemmer->stem($word);
print "$stemmed\n";
}
}
view release on metacpan or search on metacpan
lib/Socket/GetAddrInfo/Emul.pm view on Meta::CPAN
if( !defined $node ) {
return _makeerr( EAI_NONAME ) if $flag_namereqd;
$node = inet_ntoa( $inetaddr );
}
elsif( $flag_nofqdn ) {
my ( $shortname ) = split m/\./, $node;
my ( $fqdn ) = gethostbyname $shortname;
$node = $shortname if defined $fqdn and $fqdn eq $node;
}
}
view release on metacpan or search on metacpan
examples/arp.pl view on Meta::CPAN
my $mac_addr = ( unpack_sockaddr_ll $sock->sockname )[4];
my $arp_request = pack(
"n n C C n A6 A4 A6 A4",
1, 0x800, 6, 4, 1, $mac_addr, "\0\0\0\0", "\0\0\0\0\0\0", pack("CCCC", split m/\./, $IP),
);
$sock->send( $arp_request, 0, $broadcast_addr )
or die "Cannot send - $!";
view release on metacpan or search on metacpan
if( !defined $node ) {
return fake_makeerr( EAI_NONAME() ) if $flag_namereqd;
$node = Socket::inet_ntoa( $inetaddr );
}
elsif( $flag_nofqdn ) {
my ( $shortname ) = split m/\./, $node;
my ( $fqdn ) = gethostbyname $shortname;
$node = $shortname if defined $fqdn and $fqdn eq $node;
}
}
view release on metacpan or search on metacpan
lib/Data/Sofu/SofuML.pm view on Meta::CPAN
$string =~ s/\</</g;
$string =~ s/\>/>/g;
$string =~ s/\"/"/g;
$string =~ s/\'/'/g;
$string=~s"^([\s\n\x0A]+)"join '',map {sprintf('&#x%X;' ,ord($_))} split //,$1"emg;
$string=~s/([\s\n\x0A]+)$/join '',map {sprintf('&#x%X;' ,ord($_))} split m##,$1/emg;
$string =~ s/([\s]+)/$self->whiteescape($1)/eg;
$string=~s/([\ ]{2,})/join '',map {sprintf('&#x%X;' ,ord($_))} split m##,$1/eg;
$string=~s/\n/"\n".$self->indent($level)/eg;
#$string=~s/\n/$self->indent($level)."\n"/eg;
return $string;
#return $self->indent($level).$string; #makes bad Juju with XSLT
}
lib/Data/Sofu/SofuML.pm view on Meta::CPAN
$string =~ s/\</</g;
$string =~ s/\>/>/g;
$string =~ s/\"/"/g;
$string =~ s/\'/'/g;
$string=~s"^([\s\n\x0A]+)"join '',map {sprintf('&#x%X;' ,ord($_))} split //,$1"emg;
$string=~s/([\s\n\x0A]+)$/join '',map {sprintf('&#x%X;' ,ord($_))} split m##,$1/emg;
$string =~ s/([\s\n\x0A]+)/$self->whiteescape($1)/eg;
#$string=~s/\n/$self->indent($level)."\n"/eg;
return $string;
#return $self->indent($level).$string; #makes bad Juju with XSLT
}
view release on metacpan or search on metacpan
lib/Solution/Block.pm view on Meta::CPAN
$self->{'conditions'} = (
$args->{'tag_name'} eq 'else' ?
[1]
: sub { # Oh, what a mess...
my @conditions
= split m[\s+\b(and|or)\b\s+],
$args->{parent}->{tag_name} eq 'for' ?
1
: (defined $args->{'attrs'} ? $args->{'attrs'} : '');
my @equality;
while (my $x = shift @conditions) {
view release on metacpan or search on metacpan
lib/Spike/Site/Request.pm view on Meta::CPAN
my $self = shift;
if (!defined $self->env->{'spike.request.safe_path'}) {
my @parts;
for my $part (grep { defined && length } split m!/+!, $self->path_info) {
$part =~ s!\0!!g;
if ($part eq '.') {
# do nothing
}
view release on metacpan or search on metacpan
lib/Spreadsheet/Edit/IO.pm view on Meta::CPAN
my sub determine_input_encoding() {
# If one encoding was specified by the user or implied by a BOM, use it;
# otherwise try multiple encodings specified by the user or defaulted
# until one seems to work.
$opts->{input_encoding} //= $default_input_encodings;
my @enclist = split m#,#, $opts->{input_encoding};
return
if @enclist == 1;
_slurp_ifnotslurped($fh, $ref2octets, $debug);
for my $enc (@enclist) {
eval { _decode_slurped_data($enc, $ref2octets, $start_pos) };
view release on metacpan or search on metacpan
# forcing a parser should still check the version
my $ok;
my $has = $preset->VERSION;
$has =~ s/_[0-9]+$//; # Remove beta-part
if ($min_version =~ m/^v([0-9.]+)/) { # clumsy versions
my @min = split m/\./ => $1;
$has =~ s/^v//;
my @has = split m/\./ => $has;
$ok = (($has[0] * 1000 + $has[1]) * 1000 + $has[2]) >=
(($min[0] * 1000 + $min[1]) * 1000 + $min[2]);
}
else { # normal versions
$ok = $has >= $min_version;
active => 1,
hidden => 0,
},
);
for (split m/\s*[\r\n]\s*/, $txt) {
if (m/^dimension.*of ([0-9]+) rows.*of ([0-9]+) columns/i) {
@{$data[1]}{qw(maxrow maxcol)} = ($1, $2);
next;
}
s/^r([0-9]+)c([0-9]+)\s*=\s*// or next;
view release on metacpan or search on metacpan
lib/Stancer/Core/Object.pm view on Meta::CPAN
if ($data) {
$this->hydrate(decode_json $data);
}
my @parts = split m/::/sm, ref $this;
my $class = $parts[-1];
$log->info(sprintf '%s %s deleted', $class, $this->id);
$this->clear_id;
lib/Stancer/Core/Object.pm view on Meta::CPAN
$this->hydrate(decode_json $data);
}
$this->_reset_modified();
my @parts = split m/::/sm, ref $this;
my $class = $parts[-1];
$log->info(sprintf '%s %s %s', $class, $this->id, $verb);
return $this;
view release on metacpan or search on metacpan
ast/src/fitschan.c view on Meta::CPAN
astInvert( map );
lbnd_in += ins[ 0 ];
ubnd_in += ins[ 0 ];
coord_out = 0;
/* If the output was fed by more than one input, annul the split mapping
and use the supplied nmapping. */
} else {
(void) astAnnul( map );
map = astClone( smap );
}
view release on metacpan or search on metacpan
lib/Statocles/App/Perldoc.pm view on Meta::CPAN
}
my $source_path = "$module/source.html";
$source_path =~ s{::}{/}g;
my ( @parts ) = split m{::}, $module;
my @crumbtrail;
for my $i ( 0..$#parts ) {
my $trail_module = join "::", @parts[0..$i];
if ( $modules{ $trail_module } ) {
push @crumbtrail, {
view release on metacpan or search on metacpan
lib/Store/Digest/HTTP.pm view on Meta::CPAN
$path =~ s!^$base!!;
$path =~ s!^/*!!;
#warn $path;
my @segments = split m!/+!, $path, -1;
#warn join('/', @segments);
# here's the all-important resource type
my $type;
view release on metacpan or search on metacpan
lib/Stow.pm view on Meta::CPAN
sub parent_link_scheduled_for_removal {
my $self = shift;
my ($target_path) = @_;
my $prefix = '';
for my $part (split m{/+}, $target_path) {
$prefix = join_paths($prefix, $part);
debug(5, 4, "| parent_link_scheduled_for_removal($target_path): prefix $prefix");
if (exists $self->{link_task_for}{$prefix} and
$self->{link_task_for}{$prefix}->{action} eq 'remove') {
debug(4, 4, "| parent_link_scheduled_for_removal($target_path): link scheduled for removal");
view release on metacpan or search on metacpan
lib/String/Tagged/Terminal.pm view on Meta::CPAN
$self->append_tagged( $1, %tags );
}
elsif( $s =~ m/\G\e\[($CSI_args)m/gc || $s =~ m/\G\x9b($CSI_args)m/gc ) {
my $args = $1;
length $args or $args = "0";
foreach my $arg ( split m/;/, $args ) {
my ( $a0, @arest ) = map { int $_ } split m/:/, $arg;
# Reset
if( $a0 == 0 ) { %tags = () }
# Simple boolean attributes
view release on metacpan or search on metacpan
* Fix for ->substr for length of copied tags that start elsewhere
than offset 0 in the copied chunk (RT100409)
0.11 2014/11/14 17:40:35
[CHANGES]
* Added ->split method
* Allow ->apply_tag/->unapply_tag/->delete_tag to take an Extent
object instead of two integers for position
* Added ->clone method with tag set restriction and conversion
* Document the String::Tagged::Formatting spec