view release on metacpan or search on metacpan
if(@_ < 1){ &HELP_fetch_seq;
}else{
F: for($t=0; $t<@in; $t++){ #'''''''''''' PROMPT ARGV processing ''''''''''''''''''
if($in[$t]=~/^\-c$/i){
$create=1; splice(@in, $t, 1); $t--;
print "\n You should provide database\(e.g, seq.dat\) file with this opt, I guess you did\n";
print "\n If you wanted to make an index with any fasta db, you also have to\n";
print " give the file name. e.g:\n $0 -c /DB/swiss/seq.dat\n";
print " or $0 -c my_db.fa\n\n";
next; }
if($in[$t]=~/^\-af$/){ $fasta=$all=1; splice(@in, $t, 1); $t--; next; }
$name2 = $names2[0];
@str1=split(/\||\,/, $hash1{$names1[0]});
@str2=split(/\||\,/, $hash2{$names2[0]});
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Trying to guess the correct gap char
#_____________________________________________________
if($hash2{$names2[0]}=~/_/){
$gap_chr='_';
}elsif($hash2{$names2[0]}=~/(\W)\W/){
$gap_chr=$1;
if(@your_genome_or_db_to_analyse_file < 1){
print "\n# (E) geanfammer_main: ERROR!\n";
print "\n# Dear $ENV{'USER'}, $0: failed to find input file!\n
Did you put FASTA format DB file as input?\n
Or I guess your INPUT file DOES NOT exist in PWD.\n\n";
print " As like: $0 MG.fa \n\n\n";
print chr(7);
exit;
}
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Bit/MorseSignals.pm view on Meta::CPAN
BM_DATA_STORABLE => 2,
};
=head2 C<BM_DATA_AUTO>
Default for non-references messages. Try to guess if the given scalar is an UTF-8 string with C<Encode::is_utf8>.
=head2 C<BM_DATA_PLAIN>
Treats the data as a plain string. No extra mangling in done.
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Bitcoin/Crypto/Key/Public.pm view on Meta::CPAN
=head2 get_address
$address_string = $object->get_address()
Returns a string containing the address. Tries to guess which address type is
most fitting:
=over
=item * If the key has a BIP44 purpose set, generates type of address which
view release on metacpan or search on metacpan
print "It may very well be supported all the way back to ",
format_version(5.003_07), ".\n";
}
else {
print "But given the things $f depends on, it's a good",
" guess that it isn't\n",
"supported prior to ", format_version($todo), ".\n";
}
}
}
}
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/Bolts/Inference/Moose.pm view on Meta::CPAN
=head1 DESCRIPTION
Performs inferrence for L<Moose> object constructor injection on
L<Bolts::Blueprint::Factory>. That is, it is the way in which Bolts will
automatically guess how to build your Moose objects, provided you construct them
with L<Bolts::Blueprint::Factory> (see the L</SYNOPSIS> for an example).
This works by iterating through the attributes on the metaclass for the Moose
object set on the L<Bolts::Blueprint::Factory/class> of the blueprint. If the
attribute has an C<init_arg> set (which all do by default to a name matching the
view release on metacpan or search on metacpan
lib/Bone/Easy/Rules.pm view on Meta::CPAN
POWEROF-->MYBODYPART
INQUIREZ-->ask me
INQUIREZ-->tell me
INQUIREZ-->guess
INQUIREZ-->decide
INQUIREZ-->think about
INQUIREZ-->imagine
view release on metacpan or search on metacpan
lib/Bookmarks/Parser.pm view on Meta::CPAN
Parse a collection of bookmarks. This can be passed a filename of a bookmarks
file on a local disk, or a url and user/passwd combination of a bookmarks
collection stored on a remote server.
Currently, best guesses are made as to which type of bookmarks collection is
being parsed, Opera, Netscape/Mozilla and Delicious are supported so far.
=head2 set_title (method)
Parameters:
view release on metacpan or search on metacpan
src/boost/cstdint.hpp view on Meta::CPAN
namespace boost
{
// These are fairly safe guesses for some 16-bit, and most 32-bit and 64-bit
// platforms. For other systems, they will have to be hand tailored.
//
// Because the fast types are assumed to be the same as the undecorated types,
// it may be possible to hand tailor a more efficient implementation. Such
// an optimization may be illusionary; on the Intel x86-family 386 on, for
view release on metacpan or search on metacpan
Directed/ppport.h view on Meta::CPAN
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
bootylicious view on Meta::CPAN
%#
%# This configuration is in JSON format, that is preprocessed by Mojo::Template.
%# Yes, you can use Perl here.
{
%# Change this to something not guessable
%# "secret" : "Unique string",
%# Blog description settings
%# "author" : "whoami",
%# "email" : "",
view release on metacpan or search on metacpan
share/examples/example1.pl view on Meta::CPAN
num1 => {
schema => 'int',
pos => 0,
},
# field size can be guessed from schema (max, min, xmax, xmin,
# between, xbetween, or default value). in num2, field size is
# determined as magnitude(99) = 2 but rounded up to 3. maxlength is
# also capped at 3.
num2 => {
schema => ['int', between=>[1,99]],
share/examples/example1.pl view on Meta::CPAN
text1 => {
summary => 'A text field',
pos => 3,
},
# field size can be guessed from schema (max_len, min_len,
# len_between, or default value). in text2, maxlength will be 100
# (from max_len property), but the field size will be 80 instead of
# 100 (currently hardcoded limit to avoid field that is too wide)
text2 => {
summary => 'A longer text field (hint from schema)',
share/examples/example1.pl view on Meta::CPAN
pos => 4,
},
password1 => {
summary => 'A password field',
# even though we don't specify explicitly, borang can guess by
# looking at the argument name
#is_password => 1,
schema => 'str*',
pos => 5,
},
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Zippy.pm view on Meta::CPAN
GOOD-NIGHT, everybody ... Now I have to go administer FIRST-AID to my pet LEISURE SUIT!!
HAIR TONICS, please!!
Half a mind is a terrible thing to waste!
Hand me a pair of leather pants and a CASIO keyboard -- I'm living for today!
Has everybody got HALVAH spread all over their ANKLES?? ... Now, it's time to "HAVE A NAGEELA"!! ... he dominates the DECADENT SUBWAY SCENE.
He is the MELBA-BEING ... the ANGEL CAKE ... XEROX him ... XEROX him -- He probably just wants to take over my CELLS and then EXPLODE inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd like to PSYCHOLIGICALLY TERRORISE ME until I have no ...
HELLO KITTY gang terrorizes town, family STICKERED to death!
HELLO, everybody, I'm a HUMAN!!
Hello, GORRY-O!! I'm a GENIUS from HARVARD!!
Hello. I know the divorce rate among unmarried Catholic Alaskan females!!
Hello. Just walk along and try NOT to think about your INTESTINES being almost FORTY YARDS LONG!!
Hello... IRON CURTAIN? Send over a SAUSAGE PIZZA! World War III? No thanks!
Hello? Enema Bondage? I'm calling because I want to be happy, I guess ...
Here I am at the flea market but nobody is buying my urine sample bottles ...
Here I am in 53 B.C. and all I want is a dill pickle!!
Here I am in the POSTERIOR OLFACTORY LOBULE but I don't see CARL SAGAN anywhere!!
Here we are in America ... when do we collect unemployment?
Hey, wait a minute!! I want a divorce!! ... you're not Clint Eastwood!!
lib/Bot/BasicBot/Pluggable/Module/Zippy.pm view on Meta::CPAN
I feel like a wet parking meter on Darvon!
I feel like I am sharing a ``CORN-DOG'' with NIKITA KHRUSCHEV ...
I feel like I'm in a Toilet Bowl with a thumbtack in my forehead!!
I feel partially hydrogenated!
I fill MY industrial waste containers with old copies of the "WATCHTOWER" and then add HAWAIIAN PUNCH to the top ... They look NICE in the yard ...
I guess it was all a DREAM ... or an episode of HAWAII FIVE-O ...
I guess you guys got BIG MUSCLES from doing too much STUDYING!
I had a lease on an OEDIPUS COMPLEX back in '81 ...
I had pancake makeup for brunch!
I have a TINY BOWL in my HEAD
I have a very good DENTAL PLAN. Thank you.
I have a VISION! It's a RANCID double-FISHWICH on an ENRICHED BUN!!
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/GitHub/EasyLinks.pm view on Meta::CPAN
$url = "https://github.com$url" unless $url =~ /^http/;
push @return, sprintf "Commit $thingnum (%s) - %s",
$title,
$url;
} else {
# We purposefully don't show a message on IRC here, as we guess
# what might be a SHA, so we could be annoying saying that we
# didn't match a commit when someone said a word that just
# happened to look like it could be the start of a SHA.
warn "No commit details for $thingnum \@ $project/$thingnum";
}
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Spell.pm view on Meta::CPAN
return "$1 is spelt correctly" if ($r->{type} eq 'ok');
return "$1 can be formed from the root ".$r->{'root'} if ($r->{type} eq 'root');
return "$1 is a valid compund word" if ($r->{'type'} eq 'compound' );
return "Near misses: ".join(", ",@{$r->{'misses'}}) if ($r->{'type'} eq 'miss' );
return "Suggestions: ".join(", ", @{$r->{'guesses'}}) if ($r->{type} eq 'guess');
return "I have no idea, sorry";
}
sub help {
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Aviation.pm view on Meta::CPAN
sub _fix_icao {
my $site = uc(shift);
# ICAO airport codes *can* contain numbers, despite earlier claims.
# Americans tend to use old FAA three-letter codes; luckily we can
# *usually* guess what they mean by prepending a 'K'. The original
# author, being Canadian apparently, displays similarl impeccable
# laziness.
$site =~ s/[.?!]$//;
$site =~ s/\s+$//g;
view release on metacpan or search on metacpan
examples/chump.cgi view on Meta::CPAN
if ($one =~ /^\w+:\/\//) {
return "<a href=\"$one\">$two</a>";
} elsif ($two =~ /^\w+:\/\//) {
return "<a href=\"$two\">$one</a>";
# catch just numbers, guess if it's a blog_id or a timestamp
# TODO if we ever have >10^8 blog entries, this will break.
# Hopefuly, time() will be larger by then, and I can adjust this
# number.
} elsif ($one =~ /^\d{8,}$/) {
return "<a href=\"".CGI::url()."?timestamp=$one\">$two</a>";
view release on metacpan or search on metacpan
lib/Bot/ChatBots/Telegram/Role/Source.pm view on Meta::CPAN
}
elsif ($dtype eq 'CallbackQuery') {
if (exists $payload->{message}) {
$chan = {%{$payload->{message}{chat}}};
}
else { # FIXME guessing correctly here?
$chan = {id => $payload->{chat_instance}};
}
}
if ($chan) {
$chan->{fqid} = "$chan->{type}/$chan->{id}" if exists $chan->{id};
view release on metacpan or search on metacpan
lib/Bot/Cobalt/Core/Role/Timers.pm view on Meta::CPAN
my $timer = Bot::Cobalt::Timer->new;
$timer->id($id) if $id;
## Try to guess type, or default to 'event'
my $type = $ev->{Type};
unless ($type) {
if (defined $ev->{Text} && defined $ev->{Context}) {
$type = 'msg'
} else {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
share/megahal.trn view on Meta::CPAN
You are soooo predictable it's not funny!
That is a universal mystery, methinks.
Please don't trouble me with such droll.
You are an bottomless pit of questions.
Let's talk about something vaguely interesting.
I guess that line of conversation is buggered, then!
If you want to keep your private life private, I understand.
Awww geez, I'm running out of things to talk about!
Well, this is certainly dragging on, isn't it?
As Homer Simpson would say... D'oh!
So, who is using the family brain cell at the moment?
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif