view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform.pm view on Meta::CPAN
The method empties or resets the structures and variables attached to
a processed document.
=head1 PLATFORM CONFIGURATION
The configuration file of the NLP Platform is composed of global
variables and divided into several sections:
=over
=item * Global variables.
view release on metacpan or search on metacpan
INSTALL.Debian view on Meta::CPAN
perl -MAlvis::Pipeline
WITHOUT INSTALLATION
If you do not wish to install globally, you can run the stuff using the command
perl -x install/dir MAlvis::Pipeline alvis-pipeline-put.pl 12344 spool1
view release on metacpan or search on metacpan
t/test/resources/NEs view on Meta::CPAN
a. oxidans Arthrobacter oxydans
a plasmid Expression vector pA5CAT
aquifex aeolicus Aquifex aeolicus
arabidopsis Arabidopsis
archaea Archaea
archaeoglobus fulgidus Archaeoglobus fulgidus
arthrobacter oxidans Arthrobacter oxydans
arthrobacter sp. Arthrobacter sp.
artogeia rapae Artogeia rapae
asfv African swine fever virus
asteraceae Asteraceae
t/test/resources/NEs view on Meta::CPAN
b expression Baculovirus expression vector pFastBac1-HM
bf-1 Foxg1
b. fragilis Bacteroides fragilis
b gamma Baboon gamma-herpesvirus
b. garinii Borrelia garinii
b. globigii Bacillus subtilis
b. globisporus Sporosarcina globispora
bgls bglF (CG Site No. 18502)
b group Citrobacter freundii
b. hermsii Borrelia hermsii
bifidobacterium Bifidobacterium
b. indicum Bifidobacterium indicum
view release on metacpan or search on metacpan
lib/Alzabo/BackCompat.pm view on Meta::CPAN
EOF
die $msg;
}
foreach my $file ( glob("$dir/*.alz"),
glob("$dir/*.rdbms"),
glob("$dir/*.version") )
{
my $backup = "$file.bak.v$p{version}";
copy($file, $backup);
}
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
# some APIs are GET only (I'm talkin' to you IAM!)
$self->set_http_method('POST')
unless defined $self->get_http_method;
# note some APIs are global, hence an API may send '' to indicate global
$self->set_region('us-east-1')
unless defined $self->get_region;
unless ( $self->get_credentials ) {
$self->set_credentials( new Amazon::Credentials( { aws_secret_access_key => $self->get_aws_secret_access_key,
view release on metacpan or search on metacpan
examples/print-template.pl view on Meta::CPAN
use warnings;
use strict;
use XML::Compile::Schema;
my $schema = XML::Compile::Schema->new([glob "schemas/*.xsd"]);
print $schema->template(PERL => 'AmazonEnvelope');
view release on metacpan or search on metacpan
lib/Amazon/S3/Lite.pm view on Meta::CPAN
########################################################################
# list_buckets()
#
# Lists all buckets owned by the authenticated user.
#
# Note: ListBuckets is a global S3 operation and must always be signed
# against us-east-1 regardless of the region the object was constructed
# with. We pass the region override directly to the signer.
#
# Returns a hashref:
# {
lib/Amazon/S3/Lite.pm view on Meta::CPAN
is the recommended approach. If you prefer not to take that
dependency, the Lambda runtime also populates C<AWS_ACCESS_KEY_ID>,
C<AWS_SECRET_ACCESS_KEY>, and C<AWS_SESSION_TOKEN> directly, which
this module picks up automatically from the environment.
B<Region note:> The C<list_buckets> method is a global S3 operation
and is always signed against C<us-east-1>, regardless of the region
supplied to the constructor. This is an S3 requirement, not a
limitation of this module, and is handled transparently - your
object's region is not changed.
view release on metacpan or search on metacpan
S3TestUtils.pm view on Meta::CPAN
Readonly our $PUBLIC_READ_POLICY => <<END_OF_POLICY;
<Grant>
<Grantee xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:type="Group">
<URI>http://acs.amazonaws.com/groups/global/AllUsers</URI>
</Grantee>
<Permission>READ</Permission>
</Grant>
END_OF_POLICY
view release on metacpan or search on metacpan
t/01-signature4-lite.t view on Meta::CPAN
# class method call
my @r = Amazon::Signature4::Lite->parse_service_url(
host => 's3.amazonaws.com',
default_region => 'us-east-1',
);
is $r[1], 's3', 's3 global endpoint — service';
is $r[2], 'us-east-1', 's3 global endpoint — falls back to default region';
# regional S3
@r = Amazon::Signature4::Lite->parse_service_url(
host => 's3.us-east-2.amazonaws.com',
default_region => 'us-east-1',
view release on metacpan or search on metacpan
lib/Ambrosia/Config.pm view on Meta::CPAN
C<instance(name => path)> - where the "name" is a keyname for config and the "path" is a path to config file.
C<instance(name => hash)> - where the "name" is a keyname for config and the "hash" is a config data.
=head2 config
Returns the global object of type C<Ambrosia::Config>.
C<config(name)> - the "name" is optional param. Call with "name" if you not assign current process to config.
=head2 assign ($name)
Assign current process to the global named object of type C<Ambrosia::Config>.
=head1 DEPENDENCIES
L<Ambrosia::core::Exceptions>
L<Ambrosia::Meta>
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
clock speed
solar flares
electromagnetic radiation from satellite debris
static from nylon underwear
static from plastic slide rules
global warming
poor power conditioning
static buildup
doppler effect
hardware stress fractures
magnetic interferance from money/credit cards
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
Elves on strike. (Why do they call EMAG Elf Magic)
Internet exceeded Luser level, please wait until a luser logs off before attempting to log back on.
Your EMAIL is now being delivered by the USPS.
Your computer hasn't been returning all the bits it gets from the Internet.
You've been infected by the Telescoping Hubble virus.
Scheduled global CPU outage
Your Pentium has a heating problem - try cooling it with ice cold water.(Do not turn of your computer, you do not want to cool down the Pentium Chip while he isn't working, do you?)
Your processor has processed too many intructions. Turn it off emideately, do not type any commands!!
Your packets were eaten by the terminator
Your processor does not develop enough heat.
We need a licensed electrician to replace the light bulbs in the computer room.
view release on metacpan or search on metacpan
name => 'Amon2-Auth-Site-Google',
module_name => 'Amon2::Auth::Site::Google',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
name => 'Amon2-Auth-Site-Instagram',
module_name => 'Amon2::Auth::Site::Instagram',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
name => 'Amon2-DBI',
module_name => 'Amon2::DBI',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
name => 'Amon2-Lite',
module_name => 'Amon2::Lite',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
name => 'Amon2-MobileJP',
module_name => 'Amon2::MobileJP',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
name => 'Amon2-Plugin-ShareDir',
module_name => 'Amon2::Plugin::ShareDir',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
name => 'Amon2-Plugin-Web-HTTPSession',
module_name => 'Amon2::Plugin::Web::HTTPSession',
allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
c_source => [qw()],
PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
view release on metacpan or search on metacpan
no_index => { 'directory' => [ 'inc' ] },
name => 'Amon2-Setup-Flavor-Teng',
module_name => 'Amon2::Setup::Flavor::Teng',
script_files => [glob('script/*'), glob('bin/*')],
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
);
$builder->create_build_script();
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}
view release on metacpan or search on metacpan
lib/Amon2.pm view on Meta::CPAN
=item C<< MyApp->bootstrap() >>
my $c = MyApp->bootstrap();
Create new context object and set it to global context. When you are writing CLI script, setup the global context object by this method.
=item C<< MyApp->base_dir() >>
This method returns the application base directory.
lib/Amon2.pm view on Meta::CPAN
=head1 PROJECT LOCAL MODE
B<THIS MODE IS HIGHLY EXPERIMENTAL>
Normally, Amon2's context is stored in a global variable.
This module makes the context to project local.
It means, normally context class using Amon2 use C<$Amon2::CONTEXT> in each project, but context class using L</PROJECT LOCAL MODE> use C<$MyApp::CONTEXT>.
view release on metacpan or search on metacpan
lib/Analizo.pm view on Meta::CPAN
analizo <tool> [tool-options] <toolargs> [<tool-args> ...]
analizo <option>
=cut
sub global_opt_spec {
return (
[ 'help|h', 'displays the help (full manpage)' ],
[ 'usage', 'displays the usage of the command' ],
[ 'version|v', 'displays version information' ],
);
view release on metacpan or search on metacpan
lib/Driver/Compiler/Check.pm view on Meta::CPAN
my ($var, $class);
confess "XXX No program" unless $program;
if ($var = $program->local($name)) {
$class = 'Anarres::Mud::Driver::Compiler::Node::VarLocal';
}
elsif ($var = $program->global($name)) {
$class = 'Anarres::Mud::Driver::Compiler::Node::VarGlobal';
}
# elsif ($var = $program->static($name)) {
# $class ='Anarres::Mud::Driver::Compiler::Node::VarStatic';
# }
view release on metacpan or search on metacpan
bench/count.pl view on Meta::CPAN
}
print "=== count 'the' in short string (4 occurrences) ===\n";
cmpthese(-2, {
'util::count' => sub { count($str, "the") },
'regex_global' => sub { scalar(() = $str =~ /the/g) },
'index_loop' => sub { pure_count_index($str, "the") },
});
print "\n=== count 'the' in long string (400 occurrences) ===\n";
cmpthese(-2, {
'util::count' => sub { count($long_str, "the") },
'regex_global' => sub { scalar(() = $long_str =~ /the/g) },
'index_loop' => sub { pure_count_index($long_str, "the") },
});
print "\n=== count 'xyz' (not found) ===\n";
cmpthese(-2, {
'util::count' => sub { count($str, "xyz") },
'regex_global' => sub { scalar(() = $str =~ /xyz/g) },
'index_loop' => sub { pure_count_index($str, "xyz") },
});
print "\nDONE\n";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
VERSION_FROM => 'lib/Android/ElectricSheep/Automator.pm',
ABSTRACT_FROM => 'lib/Android/ElectricSheep/Automator.pm',
LICENSE => 'artistic_2',
MIN_PERL_VERSION => '5.006',
EXE_FILES => [
glob('script/*.pl'),
],
CONFIGURE_REQUIRES => {
'ExtUtils::MakeMaker' => '0',
},
TEST_REQUIRES => {
view release on metacpan or search on metacpan
lib/Aniki.pm view on Meta::CPAN
}
my $sth = $self->execute($sql, @$bind);
# When the return value is never used, should not create object
# case example: use `FOR UPDATE` query for global locking
unless (defined wantarray) {
$sth->finish();
return;
}
view release on metacpan or search on metacpan
lib/AnnoCPAN/Control.pm view on Meta::CPAN
my ($vars) = $self->_delete;
return $self->Main($vars) if $vars->{error};
$self->Show($vars);
}
# global delete
sub _delete {
my ($self) = @_;
my $notepos = $self->param_obj('NotePos');
my $note = $notepos->note;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
@exts = $self->{admin}->load_all_extensions;
}
my %seen;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
next unless $obj->can($method);
next if $method =~ /^_/;
next if $method eq uc($method);
$seen{$method}++;
}