view release on metacpan or search on metacpan
inc/inc_Archive-Extract/Archive/Extract.pm view on Meta::CPAN
# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
view release on metacpan or search on metacpan
lib/App/AllKnowingDNS/Config.pm view on Meta::CPAN
# vim:ts=4:sw=4:expandtab
package App::AllKnowingDNS::Config;
use Mouse;
use App::AllKnowingDNS::Zone;
use App::AllKnowingDNS::Util;
view release on metacpan or search on metacpan
inc/Inline/denter.pm view on Meta::CPAN
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
local $_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
while (s{^( *)(\t+)}
{' ' x (length($1) + length($2) * $tabwidth -
length($1) % $tabwidth)}e){}
croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
view release on metacpan or search on metacpan
inc/Inline/denter.pm view on Meta::CPAN
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
local $_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
while (s{^( *)(\t+)}
{' ' x (length($1) + length($2) * $tabwidth -
length($1) % $tabwidth)}e){}
croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
view release on metacpan or search on metacpan
inc/Inline/denter.pm view on Meta::CPAN
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
local $_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
while (s{^( *)(\t+)}
{' ' x (length($1) + length($2) * $tabwidth -
length($1) % $tabwidth)}e){}
croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
view release on metacpan or search on metacpan
lib/CWB/CL.pm view on Meta::CPAN
# Feature sets (used as values of CWB::CL::Attribute and CWB::CL::AttStruc)
$np_f = $corpus->attribute("np_feat", 's'); # p- and s-attributes can store feature sets
$fs_string = $np_f->cpos2str($cpos); # feature sets are encoded as strings
$fs = CL::set2hash($fs_string); # expand feature set into hash (reference)
if (exists $fs->{"paren"}) { ... {}
$fs1 = CWB::CL::make_set("|proper|nogen|"); # validate feature set or construct from string
$fs2 = CWB::CL::make_set("paren nogen proper", 'split');
$fs = CWB::CL::set_intersection($fs1, $fs2); # intersection of feature set values
$n = CWB::CL::set_size($fs); # size of feature set
view release on metacpan or search on metacpan
lib/CWB/CEQL.pm view on Meta::CPAN
A proximity query searches for combinations of words within a certain distance
of each other, specified either as a number of tokens (I<numeric distance>) or
as co-occurrence within an s-attribute region (I<structural distance>). The
C<proximity_query> rule splits its input into a sequence of token patterns,
distance operators and parentheses used for grouping. Shorthand notation for
word sequences is expanded (e.g. C<as long as> into C<<< as >>1>> long >>2>>
as >>>), and then the C<proximity_expression> rule is applied to each item in
turn. A shift-reduce algorithm in C<proximity_expression> reduces the
resulting list into a single CQP query (using the undocumented "MU" notation).
=cut
lib/CWB/CEQL.pm view on Meta::CPAN
my @items = split /\s*\t\s*/, $input; # split on TABs into proximity operators, parentheses, token expressions (removes extra whitespace)
# pre-process shorthand notation for word sequences (such as "as long as")
@items = map {
if (/\s/) {
my @shorthand = split " ";
my @expanded = ("(", $shorthand[0]);
foreach my $i (1 .. $#shorthand) {
push @expanded, ">>$i,$i>>", $shorthand[$i];
}
push @expanded, ")";
@expanded;
}
else {
$_; # single token expressions, distance operators and parentheses are passed through
}
} @items;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
view release on metacpan or search on metacpan
inc/Inline/denter.pm view on Meta::CPAN
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
local $_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
while (s{^( *)(\t+)}
{' ' x (length($1) + length($2) * $tabwidth -
length($1) % $tabwidth)}e){}
croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
view release on metacpan or search on metacpan
inc/Inline/denter.pm view on Meta::CPAN
my $o = shift;
$o->{done}++, $o->{level} = -1, return unless @{$o->{lines}};
my ($width, $tabwidth) = @{$o}{qw(width tabwidth)};
while (1) {
local $_ = $o->{lines}[0];
# expand tabs in leading whitespace;
$o->next_line, next if /^(\s*$|\#)/; # skip comments and blank lines
while (s{^( *)(\t+)}
{' ' x (length($1) + length($2) * $tabwidth -
length($1) % $tabwidth)}e){}
croak $o->M01_invalid_indent_width unless /^(( {$width})*)(\S.*)$/;
view release on metacpan or search on metacpan
examples/demo-gridbox.pl view on Meta::CPAN
$gridbox->add( $row, $col, Tickit::Widget::Static->new(
text => chr( 65 + rand 26 ) x ( 2 + rand 12 ),
align => 0.5, valign => 0.5,
bg => (qw( red blue green yellow ))[($row+$col) % 4],
),
row_expand => 1,
col_expand => 1,
);
}
}
Tickit->new( root => $gridbox )->run;
view release on metacpan or search on metacpan
BabelFish.pm view on Meta::CPAN
use IO::Redirect;
$ior = IO::Redirect->new();
$ior->redirect_stdout_stderr(\$cpan);
REDIRECT_END
my $mod = CPAN::Shell->expand('Module', 'AltaVista::BabelFish');
if(defined $mod) {
if($VERSION eq $mod->cpan_version) {
if(ref $ior) {
$ior->un_redirect_stdout_stderr();
view release on metacpan or search on metacpan
lib/Alvis/Convert.pm view on Meta::CPAN
$self->_set_err_state($ERR_ENCODING_WIZARD);
return undef;
}
$self->{wikipediaConverter}=
Alvis::Wikipedia::XMLDump->new(expandVariables=>1,
skipRedirects=>0,
dumpCategoryData=>1,
dumpTemplateData=>1);
if (!defined($self->{wikipediaConverter}))
{
lib/Alvis/Convert.pm view on Meta::CPAN
#
# opts: a hash of options with these possible fields:
#
# namespaces ref to a list of namespace identifiers whose
# records to extract
# expandTemplates flag for true template expansion
# templateDumpF template dump file
# outputFormat format for result records
# ($Alvis::Wikipedia::XMLDump::OUTPUT_*)
# categoryWord category namespace identifier (changes with
# language)
view release on metacpan or search on metacpan
bin/run_QF.pl view on Meta::CPAN
<AlvisDir>/resources/NEs : Lists (text-occurrence,canonical-form) for matching named entities.
<AlvisDir>/resources/onto_nodes : Lists (canonical-form,ontology-node) for matching lemmas, terms and named entities that are located in the ontology.
<AlvisDir>/resources/onto_paths : Lists (ontology-node,ontology-path) giving fully expanded path for each node.
<AlvisDir>/resources/terms : Lists (text-occurence,canonical-form) for matching terms.
<AlvisDir>/resources/types : Lists (canonical-form,type) for named entities. Types are short text items (e.g., 'species', 'company', 'person') used to categorise named entities when no ontology is in use.
view release on metacpan or search on metacpan
- Support for table attributes (with Alzabo 0.79_02 +).
- Support for functional indexes (with Alzabo 0.79_02 +).
- Improved the formatting of the front page's schema list when it
expands to two columns.
- Improved the formatting of the table and column name lists
- Tried to make the installation process a little clearer,
specifically in terms of saying what the component root is, since
view release on metacpan or search on metacpan
- Added Alzabo::MethodMaker module. This can be used to auto-generate
useful methods for your schema/table/row objects based on the
properties of your objects themselves.
- Reworking/expanding/clarifying/editing of the docs.
- Add order_by and limit options whenever creating a cursor.
- Method documentation POD from the Alzabo::* modules is merged into
the relevant Alzabo::Create::* and Alzabo::Runtime::* modules during
view release on metacpan or search on metacpan
t/05_presigned_post.t view on Meta::CPAN
],
expiration => '2019-11-01T01:00:00Z',
}),
'x-amz-signature' => '28baaf6392b4a747f1e65d9bb33f205342e025bf23f3d7ab37de880828ac0f52',
],
}, '${filename} expands starts-with condition';
is_deeply $client->generate_presigned_post($bucket, $key, [
'Content-Type' => 'image/png',
'x-amz-meta-foo' => 'bar',
]), {
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
Basilisk II => <reply> $who, An attempt at creating a free, portable 68k Mac emulator.. URL: http://www.Uni-Mainz.DE/~bauec002/B2Main.html
BASS => <reply> $who, Bulk Auditing Security Scanner. URL: http://www.securityfocus.com/data/tools/network/bass-1.0.7.tar.gz
Bastille Linux => <reply> $who, A comprehensive hardening program for Redhat Linux 6.0.. URL: http://bastille-linux.sourceforge.net/
Batalla Naval => <reply> $who, Networked BattleShip game. URL: http://www.pjn.gov.ar/~rquesada/batnav.html
BattleChat => <reply> $who, Chat interface for Blizzard's Battle.Net. URL: http://corvette.me.vt.edu/~ronelson/battlechat/
bawt => <reply> $who, A module-based multi-net/chan C bot expandable via perl.. URL: http://www.flame.org/~david/bawt.php3
Bazaar => <reply> $who, Threaded WWW Conferencing system with a MySQL backend. URL: http://www.icaap.org/Bazaar/
bb => <reply> $who, Audio visual demonstration for your text terminal. URL: http://www.ta.jcu.cz/aa/bb/
BBBS => <reply> $who, Full-featured BBS software with full FidoNet and InterNet support.. URL: http://www.bbbs.net
BBDB => <reply> $who, . URL: http://pw2.netcom.com/~simmonmt/bbdb/index.html
BBHeadlines => <reply> $who, Displays Web Headlines in the Blackbox Root menu.. URL: http://www.intelegenesis.com/bs/bbheadlines/
view release on metacpan or search on metacpan
- Fixed deps.
(Reported by andk)
0.12 2014-03-25T01:06:43Z
- Fix default DB name to expand environment name
(moznion)
- Fixed testing issues
(Kosuke Asami)
0.11 2013-10-08T23:29:10Z
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
#line 1
# vim: set ts=4 sts=4 sw=4 expandtab smarttab:
#
# This file is part of Pod-Markdown
#
# This software is copyright (c) 2004 by Marcel Gruenauer.
#
inc/Pod/Markdown.pm view on Meta::CPAN
}
sub verbatim {
my ($parser, $paragraph) = @_;
# NOTE: perlpodspec says parsers should expand tabs by default
# NOTE: Apparently Pod::Parser does not. should we?
# NOTE: this might be s/^\t/" " x 8/e, but what about tabs inside the para?
# POD verbatim can start with any number of spaces (or tabs)
# markdown should be 4 spaces (or a tab)
inc/Pod/Markdown.pm view on Meta::CPAN
my ($parser, $paragraph, $line_num) = @_;
my $data = $parser->_private;
# escape markdown characters in text sequences except for inline code
$paragraph = join '', $parser->parse_text(
{ -expand_text => '_escape_non_code' },
$paragraph, $line_num
)->raw_text;
# interpolate the paragraph for embedded sequences
$paragraph = $parser->interpolate($paragraph, $line_num);
view release on metacpan or search on metacpan
lib/Analizo/Model.pm view on Meta::CPAN
return $graph;
}
sub _file_to_module {
my ($filename) = @_;
$filename =~ s/\.r\d+\.expand$//;
return basename($filename);
}
sub _function_to_module {
my ($self, $function) = @_;
view release on metacpan or search on metacpan
lib/Driver/Compiler/Generate.pm view on Meta::CPAN
StmtForeach
),
);
# XXX For the purposes of things like Member, I need to be able to
# insert both expanded and nonexpanded versions of tokens.
# So I need to be able to insert "A", _A_ and @A@ tokens, for example.
sub gensub {
my ($self, $name, $code) = @_;
view release on metacpan or search on metacpan
xs/file/file_compat.h view on Meta::CPAN
(PERL_VERSION > (v) || (PERL_VERSION == (v) && PERL_SUBVERSION >= (s)))))
#endif
/* C89/C99/C23 bool compatibility
* - C89: no bool type, need typedef
* - C99: bool from <stdbool.h> (macro expanding to _Bool)
* - C23: bool is a keyword, cannot typedef over it
*
* Note: Old Perl defines 'bool' as a macro but not 'true'/'false'
*/
#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 202311L
view release on metacpan or search on metacpan
t/ansible-test1/dump.yml view on Meta::CPAN
# vim: tabstop=2 softtabstop=2 expandtab
---
- hosts: localhost
tasks:
view release on metacpan or search on metacpan
lib/Ansible.pm view on Meta::CPAN
}
else {
$old = $self;
}
print STDERR "\nOLD $old->{$debg}" if $debug_set;
my (@lines) = expand(grep (/./, split(/\n/, $new)));
if ( $lines[0] =~ /^(\s+)/ ) {
my $ls = $1;
my $m = 1;
map { substr($_, 0, length($ls)) eq $ls or $m = 0 } @lines;
map { substr($_, 0, length($ls)) = '' } @lines
view release on metacpan or search on metacpan
lib/Any/Daemon/HTTP/Directory.pod view on Meta::CPAN
=over 2
=item filter => CODE
For each of the selected names (see C<names> option) the lstat() is
called. That data is expanded into a HASH, but not all additional
fields are yet filled-in (only the ones which come for free).
=item hide_symlinks => BOOLEAN
=item names => CODE|Regexp
view release on metacpan or search on metacpan
lib/Any/Moose/Convert.pm view on Meta::CPAN
my @paths = @_ ? @_ : @ARGV;
my $dry_run;
$dry_run = !!(shift @paths) if $paths[0] eq '--dry-run';
foreach my $file(_expand(@paths)){
my $new_file = $file;
if($moose2mouse){
$new_file =~ s/Moose/Mouse/g;
}
lib/Any/Moose/Convert.pm view on Meta::CPAN
_do_moose2mouse_to_file($moose2mouse, $file, $new_file);
}
return;
}
sub _expand {
my @files;
foreach my $path(@_){
if(-e $path){
if(-f $path){
push @files, $path;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
view release on metacpan or search on metacpan
lib/AnyEvent/Log.pm view on Meta::CPAN
The most common method to use is probably C<< $ctx->level ($level) >>,
which configures the specified and any higher priority levels.
All functions which accept a list of levels also accept the special string
C<all> which expands to all logging levels.
=over 4
=item $ctx->levels ($level[, $level...)