view release on metacpan or search on metacpan
lib/LWP/ConsoleLogger.pm view on Meta::CPAN
);
sub _build_headers_to_redact {
my $self = shift;
return $ENV{LWPCL_REDACT_HEADERS}
? [ split m{,}, $ENV{LWPCL_REDACT_HEADERS} ]
: [];
}
sub _build_params_to_redact {
my $self = shift;
return $ENV{LWPCL_REDACT_PARAMS}
? [ split m{,}, $ENV{LWPCL_REDACT_PARAMS} ]
: [];
}
sub request_callback {
my $self = shift;
view release on metacpan or search on metacpan
0.9_03 Sun Aug 23 16:59:26 CEST 2009
- Initialize user options by calling a lexical subroutine.
- Replace calls to not existant copyTree/splitTextNode subs
with calls to the copy/split methods.
- Populate the config data hashes with true values at runtime.
- Remove the superfluous use of 'defined' when checking booleans.
view release on metacpan or search on metacpan
bin/ltpretty view on Meta::CPAN
# uncomment original input
_say( join q{}, map {"\n % $_"} ( $paramline, @input ) );
# create rows/column array[array_ref], remove leading and trailing spaces
@input = map {
[ map { m{\A \s* (.*) \s* \z}xms ? $1 : $_ } split m{ & }xms ]
} @input;
# store the paramline in a hash
my %params = map { _parse_param($_) } split m{ ; }xms, $paramline;
my $table = LaTeX::Table->new(
{ header => [ $input[0] ],
data => [ @input[ 1 .. $#input ] ],
%params,
view release on metacpan or search on metacpan
lib/LaTeXML/Package/footmisc.sty.ltxml view on Meta::CPAN
use LaTeXML::Package;
#**********************************************************************
foreach my $option (qw(perpage para side ragged symbol symbol* bottom
marginal flushmargin hang norule splitrule
split multiple)) {
DeclareOption($option, undef); }
ProcessOptions();
# could define & use these, but...
DefMacro('\DefineFNsymbols OptionalMatch:* {}{}', '');
view release on metacpan or search on metacpan
lib/Language/Basic/Statement.pm view on Meta::CPAN
# Take everything up to ELSE into a separate Token::Group &
# call parsing with that so that other parse routines can complain if
# there's something left in their token_group. Right now, they'll have
# problem with ELSE token
# TODO need a Token::Group::split method or some such
my $t1 = new Language::Basic::Token::Group;
$t1->slurp($token_group, "ELSE");
# Call new with an extra arg so it knows it's parsing a THEN/ELSE.
# That way, "THEN 20" gets parsed like "THEN GOTO 20"
view release on metacpan or search on metacpan
lib/Language/Zcode/Runtime/IO.pm view on Meta::CPAN
=pod
# So [ADK] split to a SECOND window. This split will be internal to
# the Z-machine emulator: the Z-machine isn't able to split to more
# than one window (in v5), but presumably any I/O that can split once
# can split more than once. Put status in that window.
#
# Tk already does that. Just use manual_status_line for
# everything.
=cut
view release on metacpan or search on metacpan
lib/Elatin1.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/Elatin10.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/Elatin2.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/Elatin3.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/Elatin4.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/Elatin5.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/Elatin6.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/Elatin7.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/Elatin8.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/Elatin9.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/Lingua/Any/Numbers.pm view on Meta::CPAN
sub _get_lang_from_locale {
require I18N::LangTags::Detect;
my @user_wants = I18N::LangTags::Detect::detect();
my $lang = $user_wants[0] || return;
($lang,undef) = split m{\-}xms, $lang; # tr-tr
return $lang;
}
sub _is_silent { return defined &SILENT && SILENT() }
lib/Lingua/Any/Numbers.pm view on Meta::CPAN
(my $inc = $class) =~ s{::}{/}xmsg;
$inc .= q{.pm};
if ( ! $INC{ $inc } ) {
my $file = File::Spec->catfile( split m{::}xms, $class ) . '.pm';
eval {
require $file;
$class->import;
1;
} or do {
view release on metacpan or search on metacpan
etc/walden.txt view on Meta::CPAN
four or five inches distant from the heart. With axe and shovel you
explore this mine, and follow the marrowy store, yellow as beef
tallow, or as if you had struck on a vein of gold, deep into the
earth. But commonly I kindled my fire with the dry leaves of the
forest, which I had stored up in my shed before the snow came. Green
hickory finely split makes the woodchopper's kindlings, when he has
a camp in the woods. Once in a while I got a little of this. When
the villagers were lighting their fires beyond the horizon, I too gave
notice to the various wild inhabitants of Walden vale, by a smoky
streamer from my chimney, that I was awake.
view release on metacpan or search on metacpan
etc/walden.txt view on Meta::CPAN
four or five inches distant from the heart. With axe and shovel you
explore this mine, and follow the marrowy store, yellow as beef
tallow, or as if you had struck on a vein of gold, deep into the
earth. But commonly I kindled my fire with the dry leaves of the
forest, which I had stored up in my shed before the snow came. Green
hickory finely split makes the woodchopper's kindlings, when he has
a camp in the woods. Once in a while I got a little of this. When
the villagers were lighting their fires beyond the horizon, I too gave
notice to the various wild inhabitants of Walden vale, by a smoky
streamer from my chimney, that I was awake.
view release on metacpan or search on metacpan
etc/walden.txt view on Meta::CPAN
four or five inches distant from the heart. With axe and shovel you
explore this mine, and follow the marrowy store, yellow as beef
tallow, or as if you had struck on a vein of gold, deep into the
earth. But commonly I kindled my fire with the dry leaves of the
forest, which I had stored up in my shed before the snow came. Green
hickory finely split makes the woodchopper's kindlings, when he has
a camp in the woods. Once in a while I got a little of this. When
the villagers were lighting their fires beyond the horizon, I too gave
notice to the various wild inhabitants of Walden vale, by a smoky
streamer from my chimney, that I was awake.
view release on metacpan or search on metacpan
}
plan tests => scalar(@tests) * 2;
for (@tests) {
my ($latin, @pronunciation) = split m!\.!;
my $s = $lep->phoneme($latin) || 'NOT IN DICTIONARY';
my @a = $lep->phoneme($latin);
is_deeply (\@a, \@pronunciation, "$latin array");
is ($s, join(' ', @pronunciation), "$latin scalar");
view release on metacpan or search on metacpan
examples/ignore_addresses.pl view on Meta::CPAN
# my $orthographic = $converter->convert($various);
# We cannot convert correctly this string at once,
# because "SX" will be converted!
my @words = split m{(\s+)}, $x_systematic;
WORD:
foreach my $word (@words) {
next WORD
if $word =~ m{
(?:
view release on metacpan or search on metacpan
lib/Lingua/Guess.pm view on Meta::CPAN
}
sub find_runs
{
my ($raw) = @_;
my @chars = split m//, $raw;
my $prev = '';
my @c;
my @runs;
my @run_types;
my $current_run = -1;
view release on metacpan or search on metacpan
lib/Lingua/IdSplitter.pm view on Meta::CPAN
my $splitter = Lingua::IdSplitter->new;
$splitter->split($identifier);
=head1 DESCRIPTION
This module implements and algorithm to identify and split multi-word
identifier in their individual words. For example, "UserFind" in "user"
and "find", or "timesort" in "time" and "sort".
For more details on the algorithm check the following
L<article|http://www.sciencedirect.com/science/article/pii/S0164121214002179>
view release on metacpan or search on metacpan
lib/Lingua/Norms/SUBTLEX.pm view on Meta::CPAN
if ( hascontent( $args{'regex'} ) ) {
$patterns{'regex'} = qr/$args{'regex'}/xms;
}
if ( hascontent( $args{'cv_pattern'} ) ) {
my $tmp = q{};
my @c = split m//ms, uc( $args{'cv_pattern'} );
foreach (@c) {
$tmp .= $_ eq 'C' ? '[BCDFGHJKLMNPQRSTVWXYZ]' : '[AEIOU]';
}
$patterns{'cv_pattern'} = qr/^$tmp$/ixms;
}
lib/Lingua/Norms/SUBTLEX.pm view on Meta::CPAN
my @list = ();
open my $fh, q{<}, $self->{'_PATH'} or croak $OS_ERROR;
LINES:
while (<$fh>) {
next if $INPUT_LINE_NUMBER == 1; # skip column heading line
my @line = split m/\Q$self->{'_DELIM'}\E/xms;
next if !_in_range( length( $line[0] ), @{ $args{'length'} } );
for ( keys %patterns ) {
next LINES if unidecode( $line[0] ) !~ $patterns{$_};
}
for (qw/frq_count frq_opm frq_log frq_zipf cd_count cd_pct cd_log/) {
lib/Lingua/Norms/SUBTLEX.pm view on Meta::CPAN
croak 'Need to install and access module File::RandomLine' if $EVAL_ERROR;
my $rl =
File::RandomLine->new( $self->{'_PATH'}, { algorithm => 'uniform' } );
my @ari = ();
while ( not scalar @ari or $ari[0] eq 'Word' ) {
@ari = split m/\Q$self->{'_DELIM'}\E/xms, $rl->next;
}
return wantarray ? @ari : $ari[0];
}
*random_word = \&random_string;
lib/Lingua/Norms/SUBTLEX.pm view on Meta::CPAN
next if $INPUT_LINE_NUMBER == 1; # skip column heading line
my $file_str =
_get_file_str( $_, $delim ); # have to declare as can be empty (!)
next if nocontent($file_str);
if ( $eq_fn->( $str, $file_str ) ) {
my @line = split m/\Q$delim\E/xms;
for my $col_i ( @{$col_i_aref} ) {
push @{$val}, _clean_value( $line[$col_i] );
}
last;
}
lib/Lingua/Norms/SUBTLEX.pm view on Meta::CPAN
next if $INPUT_LINE_NUMBER == 1; # skip column heading line
my $file_str =
_get_file_str( $_, $delim ); # have to declare as can be empty (!)
next if nocontent($file_str);
if ( my $found = first { $eq_fn->( $_, $file_str ) } @usr_strings ) {
my @line = split m/\Q$delim\E/xms; # split the line
for my $col_i ( keys %{$col_i_href} ) {
$string_vals{$file_str}->{ $col_i_href->{$col_i} } =
_clean_value( $line[$col_i] );
}
last if scalar keys %string_vals == scalar @{$str_aref};
view release on metacpan or search on metacpan
lib/Lingua/Ogmios/Annotations.pm view on Meta::CPAN
# warn "\t" . $start_position . "\n";
}
warn "\n[LOG] Identifying end position of the sections\n";
@canonicalDocument_sections = split m!</section>|</list>|</item>!, $canonicalDocumentString;
foreach $section (@canonicalDocument_sections) {
if ($section eq "") {
# warn "empty section content ($end_position)\n";
if ($end_position != 0) {
view release on metacpan or search on metacpan
@s = qw(-8 6);
while(<DATA>){
# print $_.$/;
chomp;
next unless $_;
my ($a,$b) = map{eval "[qw($_)]"} split m'/';
next if $@;
$n->align($a, $b);
# print Dumper $n;
# $n->dump_table;
view release on metacpan or search on metacpan
lib/Lingua/RU/Detect.pm view on Meta::CPAN
sub remove_ambiguity {
my $paths = shift;
my $text = shift;
my @paths = split m{\|}, $paths;
my %stats = ();
for my $path (@paths) {
$stats{$path} = () = $text =~ /$ambiguities{$path}/g;
}
view release on metacpan or search on metacpan
NameParse.pm view on Meta::CPAN
use utf8;
# voodo to set the string's UTF8 flag
$testme = pack 'U*', unpack( 'U*', $testme );
my ( $w1, $w2 ) = split m/\s+/, $testme;
##################
# ACCUSATIVE
##################
view release on metacpan or search on metacpan
lib/Lingua/TR/ASCII.pm view on Meta::CPAN
# Convert a string with ASCII-only letters into one with Turkish letters.
sub _deasciify {
my($self) = @_;
my $s = \$self->{turkish};
my @chars = split m{}xms, ${$s};
for my $i ( 0 .. $#chars ) {
my $c = $chars[$i];
next if ! $self->_needs_correction( $c, $i );
substr ${$s}, $i, 1, $TOGGLE_ACCENT->{ $c } || $c;