view release on metacpan or search on metacpan
lib/AlignDB/Codon.pm view on Meta::CPAN
'', '',
'Echinoderm and Flatworm Mitochondrial', # 9
'Euplotid Nuclear', # 10
'Bacterial, Archaeal and Plant Plastid', # 11
'Alternative Yeast Nuclear', # 12
'Ascidian Mitochondrial', # 13
'Alternative Flatworm Mitochondrial', # 14
'Blepharisma Nuclear', # 15
'Chlorophycean Mitochondrial', # 16
'', '', '', '',
'Trematode Mitochondrial', # 21
lib/AlignDB/Codon.pm view on Meta::CPAN
my %one2three = (
A => 'Ala', # Alanine
R => 'Arg', # Arginine
N => 'Asn', # Asparagine
D => 'Asp', # Aspartic acid
C => 'Cys', # Cysteine
Q => 'Gln', # Glutamine
E => 'Glu', # Glutamic acid
G => 'Gly', # Glycine
H => 'His', # Histidine
I => 'Ile', # Isoleucine
L => 'Leu', # Leucine
K => 'Lys', # Lysine
lib/AlignDB/Codon.pm view on Meta::CPAN
S => 'Ser', # Serine
T => 'Thr', # Threonine
W => 'Trp', # Tryptophan
Y => 'Tyr', # Tyrosine
V => 'Val', # Valine
B => 'Asx', # Aspartic acid or Asparagine
Z => 'Glx', # Glutamine or Glutamic acid
X => 'Xaa', # Any or unknown amino acid
'*' => '***', # Stop codon
);
my %three2one = reverse(%one2three);
$self->{one2three} = \%one2three;
lib/AlignDB/Codon.pm view on Meta::CPAN
my $aa_code = substr( $peptide, $pos, 1 );
if ( $three_of->{$aa_code} ) {
$converted .= $three_of->{$aa_code};
}
else {
Carp::confess "Wrong single-letter amino acid code [$aa_code]!\n";
$converted .= ' ' x 3;
}
}
return $converted;
}
lib/AlignDB/Codon.pm view on Meta::CPAN
$aa_code = ucfirst $aa_code;
if ( $one_of->{$aa_code} ) {
$converted .= $one_of->{$aa_code};
}
else {
warn "Wrong three-letter amino acid code [$aa_code]!\n";
$converted .= ' ' x 3;
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Aliyun.pm view on Meta::CPAN
$method->set_sms_param('{"rain":"ä¸é¨","temper":"18"}');
my $method2 = Aliyun::Method::FcIotQrycard->new();
$method2->set_bill_source('ICCID');
$method2->set_bill_real('123123');
$method2->set_iccid('123123');
my $request = Aliyun::Request->new();
$request->get($auth, $method, sub {
say Dumper $_[0];
});
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.06';
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.14';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
Each B<DPP rule> is implemented as a B<Perl subroutine> (or, more precisely,
B<method>). It is invoked by the parser with an input string that is expected
to be a constituent of the respective type, and returns its analysis of this
constituent. In the typical application of DPP grammars, the return value is
a string representing (part of) a low-level query expression, but grammar
authors may also decide to return arbitrary data structures. In the B<rule
body>, other grammar rules can be applied to the full input string, a
substring, or an arbitrarily transformed substring using the B<Call> method.
It is also possible to invoke the shift-reduce-type parser with the B<Apply>
method. Both methods return an analysis of the given substring, which can
then be integrated with the analyses of other substrings and the parsing
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
=over 4
=item 1.
examine the input string to decide whether it appears to be a suitable
constituent, and to determine its internal structure
=item 2.
if the test in Step 1 fails, B<die> with a meaningful error message;
lib/CWB/CEQL/Parser.pm view on Meta::CPAN
The simplest DPP rules are stand-alone rules that transform their input string
directly without invoking any subrules. These rules typically make use of regular
expression substitutions and correspond to one part of the substitution cascade
in a traditional implementation of simple query languages. In contrast to such
cascades, DPP rules apply only to relevant parts of the input string and cannot
accidentally modify other parts of the simple query. The example below transforms
a search term with shell-style wildcards (C<?> and C<*>) into a regular expression.
Note how the input string is first checked to make sure it does not contain any
other metacharacters that might have a special meaning in the generated regular
expression, and B<die>s with an informative error message otherwise.
view all matches for this distribution
view release on metacpan or search on metacpan
# else
# define D_PPP_TO_FOLD_CALLEE(s,r,l) to_utf8_fold(s,r,l)
# endif
# else /* Below is 5.15.6, which failed to make the macros available
# outside of core, so we have to use the 'Perl_' form. khw
# decided it was easier to just handle this case than have to
# document the exception, and make an exception in the tests below
# */
# define D_PPP_TO_LOWER_CALLEE(s,r,l) \
Perl__to_utf8_lower_flags(aTHX_ s, r, l, 0, NULL)
# define D_PPP_TO_TITLE_CALLEE(s,r,l) \
view all matches for this distribution
view release on metacpan or search on metacpan
- The test suites do almost no failure testing. Use Devel::Cover to see all
the failure cases that aren't covered.
- Look into allowing other SHA hashes for PSS and OAEP.
- Decide if RIPEMD160 should be non-optional. Module version 0.05 looks like
it has an excellent test pass rate.
- t/16-serialize.t is just verifying we don't die horribly. We should verify
that it's actually working.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Date/Extract.pm view on Meta::CPAN
This controls both the input time zone and output time zone.
=item prefers
This argument decides what happens when an ambiguous date appears in the
input. For example, "Friday" may refer to any number of Fridays. The valid
options for this argument are:
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
software is free for all its users.
This license, the Lesser General Public License, applies to
some specially designated software packages--typically
libraries--of the Free Software Foundation and other authors
who decide to use it. You can use it too, but we suggest you
first think carefully about whether this license or the ordinary
General Public License is the better strategy to use in any
particular case, based on the explanations below.
When we speak of free software, we are referring to freedom
of protecting the integrity of the free software distribution
system which is implemented by public license practices.
Many people have made generous contributions to the wide
range of software distributed through that system in reliance
on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute
software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is
believed to be a consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
NAME
Alt::Sex::INGY - INGY's Alternate version of Sex
DESCRIPTION
After having Sex under Schwern's governance for 12 years, I decided it
was time for an Alternative.
This version of Sex supports the participation of multiple random
entities.
view all matches for this distribution
view release on metacpan or search on metacpan
t/Test/Builder.pm view on Meta::CPAN
=cut
sub ok {
my($self, $test, $name) = @_;
# $test might contain an object which we don't want to accidentally
# store, so we turn it into a boolean.
$test = $test ? 1 : 0;
unless( $self->{Have_Plan} ) {
require Carp;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Tickit/Widget.pm view on Meta::CPAN
the C<get_style_*> methods may return different results. No resizing or
redrawing is necessarily performed; but the widget can use
C<style_reshape_keys>, C<style_reshape_textwidth_keys> or C<style_redraw_keys>
to declare which style keys should cause automatic reshaping or redrawing. In
addition it can override the C<on_style_changed_values> method to inspect the
changes and decide for itself.
=cut
# This is cached, so will need invalidating on style loads
my %KEYS_BY_TYPE_CLASS_TAG;
view all matches for this distribution
view release on metacpan or search on metacpan
avs_count_getword
avs_countnext
avs_default_options
avs_define_valtype
avs_define_valtype_multiple
avs_deletedocid
avs_enddoc
avs_errmsg
avs_getindexmode
avs_getindexversion
avs_getindexversion_counts_v
avs_search_ex
avs_search_genrank
avs_search_getdata
avs_search_getdatalen
avs_search_getdate
avs_search_getdocid
avs_search_getdocidlen
avs_search_getrelevance
avs_setdocdata
avs_setdocdate
avs_setdocdatetime
avs_setparseflags
avs_define_valtype(name, minval, maxval, valtype_p)
avs_define_valtype_multiple(name, minval, maxval, numvalues, valtype_p)
avs_deletedocid(idx, pDocId, pCount)
avs_enddoc(idx)
avs_errmsg(code)
avs_search_getdatalen(searchHdl)
avs_search_getdate(psearchHdl, year, month, day)
avs_search_getdocid(searchHdl)
avs_search_getdocidlen(searchHdl)
avs_search_getrelevance(psearchHdl)
avs_setdocdata(idx, pDocData, len)
=item I<avs_newdoc> UNIMPLEMENTED
=item I<avs_search_getdata_copy> UNIMPLEMENTED
=item I<avs_search_getdocid_copy> UNIMPLEMENTED
=item I<avs_search_getrelevance> RETURN ARGUMENT
=back
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Alter.pm view on Meta::CPAN
++ our $attaching; # used by t/*.t, not needed for anything else
$class->Alter::reify( Storable::thaw( $ser));
}
# recognized by all versions of Storable
# incidentally, the code is equivalent to STORABLE_attach
sub STORABLE_thaw {
my ( $obj, $cloning, $ser) = @_;
++ our $thawing; # used by t/*.t, not needed for anything else
$obj->Alter::reify( Storable::thaw( $ser));
}
lib/Alter.pm view on Meta::CPAN
that both (all) destructors are called as needed. Perl only calls the
first one it meets on the C<@ISA> tree and that's it.
Otherwise the fallback implementation works like the original. If
compilation has problems, it should allow you to run test cases to
help decide if it's worth trying. To make sure that production code
doesn't inadvertently run with the Perl implementation
Alter::is_xs or die "XS implementation of Alter required";
can be used.
lib/Alter.pm view on Meta::CPAN
functions.
=head2 Environment
The environment variable C<PERL_ALTER_NO_XS> is inspected once at
load time to decide whether to load the XS version of C<Alter> or
the pure Perl fallback. At run time it has no effect.
=head2 Description
The C<Alter> module is meant to facilitate the creation of classes
view all matches for this distribution
view release on metacpan or search on metacpan
bin/linkMpca view on Meta::CPAN
open(INH,"<$stem.dochash");
my $buf = "";
read(INF,$buf,4);
my $I = unpack("i",$buf);
my $dhash = "";
my $docid = 0;
# the binary read and unpack() combo reads
# entries from an MPCA Vec_t file
my %hashrank = ();
for (my $i=0; $i<$I; $i++) {
read(INF,$buf,4);
view all matches for this distribution
view release on metacpan or search on metacpan
t/test-data/to-split/29.xml view on Meta::CPAN
<urls>
<url>http://searchenginewatch.com/searchday/article.php/3592876</url>
</urls>
</acquisitionData>
<canonicalDocument>
<section>At long last, Google has launched its ownGoogle Finance service. For years, those seeking specialty financial information via Google have been sent to competitors such as Yahoo and MSN. Now Google's providing financial information di...
<metaData>
<meta name="title">Google Launches Google Finance</meta>
<meta name="dc:type">text/html</meta>
</metaData>
<links>
t/test-data/to-split/29.xml view on Meta::CPAN
<urls>
<url>http://blog.outer-court.com/archive/2006-05-30-n12.html</url>
</urls>
</acquisitionData>
<canonicalDocument>
<section>Some bloggers are complaining that Google didnât have a Memorial day logo yesterday. Memorial Day âcommemorates U.S. men and women who have died in military service,âWikipedia explains. From a comment at Newsbusters by Warner T...
<metaData>
<meta name="title">Complaints Due to Lack of Google Memorial Day Logo</meta>
<meta name="dc:date">Thu, 01 Jun 2006 02:44:56 GMT</meta>
<meta name="dc:type">text/html</meta>
</metaData>
t/test-data/to-split/29.xml view on Meta::CPAN
<urls>
<url>http://searchenginewatch.com/searchday/article.php/3612406</url>
</urls>
</acquisitionData>
<canonicalDocument>
<section>Links to the week's topics from search engine forums across the web. What Top 5 Skills Would You Study to Become a Better SEO? Search Engine Watch Forums "What skills would you put on your Matrix 'must have' list for your career path...
<metaData>
<meta name="title">Search Engine Forums Spotlight</meta>
<meta name="dc:type">text/html</meta>
</metaData>
<links>
view all matches for this distribution
view release on metacpan or search on metacpan
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Alvis/Logger.pm view on Meta::CPAN
# $Id: Logger.pm,v 1.1 2005/06/17 15:45:56 mike Exp $
# This is a simple logging object that I have accidentally implemented
# several different 90% subsets of in half a dozen different projects.
# It's time to get it done once, properly.
package Alvis::Logger;
use strict;
view all matches for this distribution
view release on metacpan or search on metacpan
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.
This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.
This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Alzabo/RDBMSRules/MySQL.pm view on Meta::CPAN
Alzabo::Exception::RDBMSRules->throw( error => $column->type . " columns cannot have a length or precision." )
if defined $column->length || defined $column->precision;
}
# placeholder in case we decide to try to do something better later
sub validate_table_attribute { 1 }
sub validate_column_attribute
{
my $self = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
that should be provided before the module is installed.
A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it to get an idea of the module's uses. It is usually a good idea
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
INSTALLATION
view all matches for this distribution
view release on metacpan or search on metacpan
# now play with the file methods
my ( $fh, $lorem_ipsum ) = tempfile();
print {$fh} <<'EOT';
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
minim veniam, quis nostrud exercitation ullamco laboris nisi ut
aliquip ex ea commodo consequat. Duis aute irure dolor in
reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
pariatur. Excepteur sint occaecat cupidatat non proident, sunt in
culpa qui officia deserunt mollit anim id est laborum.
view all matches for this distribution
view release on metacpan or search on metacpan
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
view all matches for this distribution
view release on metacpan or search on metacpan
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
A README file is required for CPAN modules since CPAN extracts the
README file from a module distribution so that people browsing the
archive can use it get an idea of the modules uses. It is usually a
good idea to provide version information here so that people can
decide whether fixes for the module are worth downloading.
INSTALLATION
To install this module type the following:
view all matches for this distribution
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
The mainframe needs to rest. It's getting old, you know.
I'm not sure. Try calling the Internet's head office -- it's in the book.
The lines are all busy (busied out, that is -- why let them in to begin with?).
Jan 9 16:41:27 huber su: 'su root' succeeded for .... on /dev/pts/1
It's those computer people in X {city of world}. They keep stuffing things up.
A star wars satellite accidently blew up the WAN.
Fatal error right in front of screen
That function is not currently supported, but Bill Gates assures us it will be featured in the next upgrade.
wrong polarity of neutron flow
Lusers learning curve appears to be fractal
We had to turn off that service to comply with the CDA Bill.
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
We are a 100% Microsoft Shop.
We are Microsoft. What you are experiencing is not a problem; it is an undocumented feature.
Sales staff sold a product we don't offer.
Secretary sent chain letter to all 5000 employees.
Sysadmin didn't hear pager go off due to loud music from bar-room speakers.
Sysadmin accidentally destroyed pager with a large hammer.
Sysadmins unavailable because they are in a meeting talking about why they are unavailable so much.
Bad cafeteria food landed all the sysadmins in the hospital.
Route flapping at the NAP.
Computers under water due to SYN flooding.
The vulcan-death-grip ping has been applied.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Blueprint.pm view on Meta::CPAN
sup, sub {line-height:0;}
abbr, acronym {border-bottom:1px dotted #666;}
address {margin:0 0 1.5em;font-style:italic;}
del {color:#666;}
pre {margin:1.5em 0;white-space:pre;}
pre, code, tt {font:1em \'andale mono\', \'lucida console\', monospace;line-height:1.5;}
li ul, li ol {margin:0;}
ul, ol {margin:0 1.5em 1.5em 0;padding-left:1.5em;}
ul {list-style-type:disc;}
ol {list-style-type:decimal;}
dl {margin:0 0 1.5em 0;}
lib/Amon2/Setup/Asset/Blueprint.pm view on Meta::CPAN
/* print.css */
body {line-height:1.5;font-family:"Helvetica Neue", Arial, Helvetica, sans-serif;color:#000;background:none;font-size:10pt;}
.container {background:none;}
hr {background:#ccc;color:#ccc;width:100%;height:2px;margin:2em 0;padding:0;border:none;}
hr.space {background:#fff;color:#fff;visibility:hidden;}
h1, h2, h3, h4, h5, h6 {font-family:"Helvetica Neue", Arial, "Lucida Grande", sans-serif;}
code {font:.9em "Courier New", Monaco, Courier, monospace;}
a img {border:none;}
p img.top {margin-top:0;}
blockquote {margin:1.5em;padding:1em;font-style:italic;font-size:.9em;}
.small {font-size:.9em;}
view all matches for this distribution