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
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$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::getcwd() );
view release on metacpan or search on metacpan
- fix memory leak in case where chunk exists on target, but local
digest database was lost, and digest of chunk had to be recomputed.
in that case, the raw chunk was kept in memory until the end
(which it likely would never reach, accumulating GBs of RAM)
- make PositionedChunk use the digest cache (which I guess was
re-fleshed out in the big refactor but never used...). so
iterative backups are fast again... no re-reading all files
in, blowing away all caches.
- clean up old, dead code in Amazon target (the old inventory db which
view release on metacpan or search on metacpan
[setup](https://metacpan.org/pod/setup) and [run](https://metacpan.org/pod/run) take the following options as a hashref
### service
Default: `$0` modulo some cleanup magic, see ["Guessing the service name from $0"](#guessing-the-service-name-from-0)
The name of the service to use.
If you do not want to use this magic, pass in the explicit service
name you want to use. This could be hardcoded, or you could come up
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
patches/diff_Curses-1.06 view on Meta::CPAN
+ @inc = split /\Q$Config::Config{path_sep}/, $ENV{C_INCLUDE_PATH};
+ @inc = map "-I$_", grep -r "$_/form.h", @inc;
+ }
+}
+
## OS default guess for $inc default guess for $libs
#
my $guess_cfg = {
@@ -130,7 +139,7 @@ my $guess_cfg = {
'openbsd' => [ '' => '-lcurses -ltermcap' ],
'os2' => {
'bsd' => [ '' => '-lcurses -ltermcap' ],
- 'ncurses' => [ '' => '-lncurses' ],
+ 'ncurses' => [ "@inc", => '-lncurses -lncurses_s -lpanel_s -lmenu_s -lform_s'],
patches/diff_Curses-1.06 view on Meta::CPAN
- elsif ($arg eq 'FORMS') { $forms = $arg }
- else { push @argv, $arg }
-}
-@ARGV = @argv; # pass non-Curses arguments to MakeMaker
-
my $guess = $guess_cfg->{$^O};
my $source = "hints/c-$^O";
@@ -184,6 +181,29 @@ if (ref $guess eq 'HASH') {
if (ref $guess ne 'ARRAY') {
die "FATAL: internal error: guess_cfg is bad\n";
}
+
+if ($guess->[1] and $] >= 5.008001) {
+ require ExtUtils::Liblist; # Buggy before this
+ ($list) = ExtUtils::Liblist->ext($guess->[1]);
+ $panels = 'PANELS' if $list =~ /-lpanel/;
+ $menus = 'MENUS' if $list =~ /-lmenu/;
+ $forms = 'FORMS' if $list =~ /-lform/;
+}
+
view release on metacpan or search on metacpan
bin/pbib-export.pl view on Meta::CPAN
# clear errors. Not really necessary.
# Biblio::BP::errors('clear');
### CAUTION: This currently works only if the file is not yet open (I guess ...)
Biblio::BP::export($outfile, $refs);
sub dieusage {
my($prog) = substr($0,rindex($0,'/')+1);
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
else {
print
"*** Dependencies will be installed the next time you type '$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/WWW/Scraper/Dice.pm view on Meta::CPAN
,'redirectMethod' => 'GET' # Let me quote W3C HTTP 1.1 Specification (at http://www.w3.org/Protocols/rfc2068/rfc2068)
# Note: When automatically redirecting a POST request after receiving
# a 302 status code, some existing HTTP/1.0 user agents will
# erroneously change it into a GET request.
# Yet Dice.com *relies* on the browser to change it to 'GET', otherwise it don't work!
# I guess that's what's so nice about standards - there's so many to choose from!
# This is the basic URL on which to build the query.
,'url' => 'http://jobsearch.dice.com/jobsearch/jobsearch.cgi?'
# This is the Scraper attributes => native input fields mapping
,'nativeQuery' => 'query'
view release on metacpan or search on metacpan
lib/Business/AT/SSN.pm view on Meta::CPAN
sub get_dob {
my $self = shift;
my ($d, $m, $y) = $self->ssn =~ /^\d{4}(\d{2})(\d{2})(\d{2})$/;
my $now = DateTime->now;
# guess a year
$y = (($now->year) - ($y + 1900) < 100) ? $y + 1900 : $y + 2000;
try {
my $dt = DateTime->new(year => $y, month => $m, day => $d);
$self->date_of_birth( $dt );
return 1;
view release on metacpan or search on metacpan
lib/Business/BR/Biz.pm view on Meta::CPAN
but doesn't actually exist in government databases.
=head1 SEE ALSO
As you might have guessed, this is not the first Perl distribution
to approach this kind of functionality. Take a look at
http://search.cpan.org/search?module=Brasil::Checar::CPF
http://search.cpan.org/search?module=Brasil::Checar::CGC
http://search.cpan.org/~mamawe/Algorithm-CheckDigits-0.38/CheckDigits/M11_004.pm
view release on metacpan or search on metacpan
lib/Business/BR/RG.pm view on Meta::CPAN
dv[9] * 100 = 0 (mod 11)
=head1 BUGS
until now I do not found any RG that has less than 8 digits.
But, I guess, old people still have it.
For now, this is the only way that I found to check RG.
If you found any bug, feel free to send e-mail, open an issue on github or open a RT.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Business/CanadaPost.pm view on Meta::CPAN
=back
=head1 OBJECT METHODS
Most errors are fatal. The tool tries to guess for you if a value seems
out of whack.
=head2 C<geterror>
Used to fetch the error set when a function return 0 for failure.
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
else {
print
"*** Dependencies will be installed the next time you type '$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::getcwd() );
view release on metacpan or search on metacpan
lib/Business/DK/CPR.pm view on Meta::CPAN
got caught riding the train without a valid ticket the personnel would only
check the validity of you CPR number, so all you have to remember was your
birthday and 4 more digits not being the actual last 4 digits of your CPR
number.
I guess this was the first hack I ever heard about and saw - I never tried it
out, but back then it really fascinated me and my interest in computers was
really sparked.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Business/EDI/CodeList/AlgorithmParameterValue.pm view on Meta::CPAN
package Business::EDI::CodeList::AlgorithmParameterValue;
use base 'Business::EDI::CodeList';
my $VERSION = 0.02;
sub list_number {return "0554";}
my $usage = 'B'; # guessed value
# 0554 Algorithm parameter value []
# Desc:
# Repr:
my %code_hash = (