Result:
found more than 871 distributions - search limited to the first 2001 files matching your query
( run in 1.014 )
API-Intis
view release on metacpan or search on metacpan
API/Intis/lib/API/Intis.pm view on Meta::CPAN
my (%params) = @_;
delete $params{host};
my $APIkey = delete $params{APIkey};
my @ssignature;
foreach my $key(sort keys %params){
say "$key => $params{$key}";
push @ssignature, $params{$key};
};
return md5_hex join('', @ssignature).$APIkey;
};
API/Intis/lib/API/Intis.pm view on Meta::CPAN
foreach my $format (@o_formats) {
$config{return} = $format;
my $signature = &build_signature(%config);
my $url = "$config{host}$method.php?login=$config{login}&signature=$signature";
while((my $key, my $value) = each %config){
say "$key => $value\n";
next if $key eq 'host' || $key eq 'login' || $key eq 'APIkey';
$url .= "&$key=$value";
};
my $request = $ua->get("$url&return=$format")->decoded_content(charset => 'utf-8', raw => 1);
$request_json = $request if $format eq 'json';
API-Medium
view release on metacpan or search on metacpan
lib/API/Medium.pm view on Meta::CPAN
use API::Medium;
my $m = new({
access_token=>'your_token',
});
my $hash = $m->get_current_user;
say $hash->{id};
my $url = $m->create_post( $user_id, $post );
my $other_url = $m->create_publication_post( $publication_id, $post );
API-MikroTik
view release on metacpan or search on metacpan
lib/API/MikroTik/Response.pm view on Meta::CPAN
my $response = API::MikroTik::Response->new();
my $list = $response->parse(\$buff);
for my $re (@$list) {
my ($type, $tag) = delete @{$re}{'.type'. '.tag'};
say "$_ => $re->{$_}" for keys %$re;
}
=head1 DESCRIPTION
Parser for API protocol responses.
API-ParallelsWPB
view release on metacpan or search on metacpan
lib/API/ParallelsWPB.pm view on Meta::CPAN
my $client = API::ParallelsWPB->new( username => 'admin', password => 'passw0rd', server => 'builder.server.mysite.ru' );
my $response = $client->get_sites_info;
if ( $response->success ) {
for my $site ( @{ $response->response } ) {
say "UUID: ". $site->{uuid};
}
}
else {
warn "Error occured: " . $response->error . ", Status: " . $response->status;
}
ARGV-JSON
view release on metacpan or search on metacpan
lib/ARGV/JSON.pm view on Meta::CPAN
# $_ is a decoded JSON here!
}
Or in one-liner:
perl -MARGV::JSON -anal -E 'say $_->{foo}->{bar}' a.json b.json
=head1 DESCRIPTION
ARGV::JSON parses each input from C<< @ARGV >> and enables to access
the JSON data structures via C<< <> >>.
ARSperl
view release on metacpan or search on metacpan
example/AddUsersToGroup.pl view on Meta::CPAN
# Create a qualifier to retrieve the Entry ID for this user
( my $userqualifier =
ars_LoadQualifier( $ctrl, "User", "'Login Name' = \"$_\"" ) )
|| die "ars_LoadQualifier: $ars_errstr";
# Fetch the EID for this user; if there is no such user, say so and continue with next user
# ars_GetListEntry provides a list with Entry-Id, Short description pairs
# In this case only one pair. That means $userentry[0] will contain the actual Entry ID.
my @userentry = ars_GetListEntry( $ctrl, "User", $userqualifier, 0, 0, );
# If there is no record for this user, say so and conitue with the next one
if ( !@userentry ) { print "No user $_\n"; next; }
# Get the value of the Group List field. Syntax = ars_GetEntry(ctrl, schema, eid [field ID...n])
# so in this case we only get the value returned for one field ID, the Group List
# If you do not specify field ID's, you will get all values for the whole entry.
example/AddUsersToGroup.pl view on Meta::CPAN
# Get the field values for this entry
# set $currentgrouplist to the contents of the Group List field
my $currentgrouplist = $uservalues{ $userfields{'Group List'} };
#if the Group List already contains the group, say so and continue with next user
if (
(
( $currentgrouplist =~ /^$group_id;/ )
|| ( $currentgrouplist =~ /;$group_id;/ )
)
ASNMTAP
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Plugins/NPTest.pm view on Meta::CPAN
if ( exists( $CACHE{$param} ) )
{
return $CACHE{$param};
}
return undef; # Need this to say "nothing found"
}
sub SetCacheParameter
{
my( $param, $scope, $value ) = @_;
ASP4x-Linker
view release on metacpan or search on metacpan
lib/ASP4x/Linker.pm view on Meta::CPAN
C<ASP4x::Linker> aims to solve the age-old problem of:
B<How do I change one widget on the page without losing my settings for all the other widgets on the page?>
OK - say you have one data grid on your web page that allows paging and sorting. You can move forward and backward between
pages, change the sorting - life's great. B<THEN> your boss says:
We need to have two of those on the same page. One for Albums and one for Genres.
Now you have 2 options.
AUBBC
view release on metacpan or search on metacpan
Fixed - security for links was in method make_link and was causing an access issue
if used outside of the module. Made a new method to check link access now the
make_link method could be used outside of the module without the security access
in it, as intended.
Changed - forgot to say in version 4.05 that I changed the aubbc_error so a new line
will be added after each inserted error.
v4.05 - 04/05/2011
AWS-Lambda-Quick
view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick/CreateZip.pm view on Meta::CPAN
die "Cannot add absolute path! $path";
}
my $abs_path = path( $self->_src_dir, $path );
# silently ignore files that don't exist. This allows you
# to say put extra_files => [qw( lib )] in your file and not
# worry if that file exists or not
return unless -e $abs_path;
$self->_zip->addFileOrDirectory(
{
AWS-Lambda
view release on metacpan or search on metacpan
author/pod-stripper/scripts/pod_stripper.pl view on Meta::CPAN
}
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, @dirs);
say "Original module size: $original_bytes";
say "Stripped to: $final_bytes";
say sprintf "Won %0.02f%%", (1- ($final_bytes / $original_bytes)) * 100;
exit;
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size);
AWS-Networks
view release on metacpan or search on metacpan
lib/AWS/Networks.pm view on Meta::CPAN
use AWS::Networks;
my $nets = AWS::Networks->new();
say $nets->sync_token->iso8601;
foreach my $cidr (@{ $nets->cidrs }){
say $cidr
}
=head1 DESCRIPTION
This module parses the official public IP network information published by Amazon Web Services at https://ip-ranges.amazonaws.com/ip-ranges.json
AWS-S3
view release on metacpan or search on metacpan
lib/AWS/S3/Roles/Bucket.pm view on Meta::CPAN
# https://docs.aws.amazon.com/AmazonS3/latest/dev/BucketRestrictions.html
return 0 if ( length( $bucket ) < 3 or length( $bucket ) > 63 );
return 0 if $bucket =~ /^(?:\d{1,3}\.){3}\d{1,3}$/;
# DNS bucket names can contain lowercase letters, numbers, and hyphens
# so anything outside this range we say isn't a valid DNS bucket
return $bucket =~ /[^a-z0-9-\.]/ ? 0 : 1;
}
1;
AcePerl
view release on metacpan or search on metacpan
acelib/helpsubs.c view on Meta::CPAN
else if (matches > 1)
{
/* construct a filename that we know won't work.
But it may be used by the help display
function to give a meaningful message
to say that this subject is ambiguos.
The returned filename is then considered
a template, similar to 'ls subject*'
so the help-display function may give a list
of possible matching subjects. */
Acme-24
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
Nobody says 'hit me' when Jack Bauer deals Blackjack.
%
In Season 2 when Jack is stripped down by the terrorists before torture, the camera caught a glimpse of his testicles. Unfortunately for viewers, scientists have yet to provide us with a storage medium of adequate capacity to archive Jack's immense b...
%
When interrogating a suspect, they say everyone has a breaking point, for most it takes hours, maybe days to crack someone. Give Jack Bauer one bullet and it'll take 2 seconds, gun and hacksaw optional.
%
Looks can only kill if Jack Bauer is looking at you.
%
Jack Bauer has been torturing mountain lions in the hope of getting information on the one that terrorized his daughter.
%
fortune/jackbauer view on Meta::CPAN
%
Grand Theft Auto doesn't have a 7 star wanted level, you don't want Jack Bauer after you, even in a video game.
%
Bob Marley was not lying, he did not shoot the deputy, Jack Bauer did.
%
When Jack says "I won't take no for an answer" you better not say no.
%
Someone asked me how my day went, and I told them, "I feel like Jack Bauer just questioned me."
%
Being Jack Bauer's caddy is the worst job in the world. He constantly has a gun to your head demanding to know where his ball is.
%
fortune/jackbauer view on Meta::CPAN
%
If Jack Bauer told me "I won't let anything happen to you" and then said jump of this bridge, I would do so with no fear in my mind.
%
When Jack Bauer went to Bayside High School, he created a band called "Jack Attack". Screech wasn't let into the band.
%
Jack Bauer remembers the last time he heard his father say "stop torturing your brother." It was Monday.
%
Jack Bauer don't need no fucking easy button.
%
When Jack Bauer turns on an Xbox the screen just says "You Win" and turns itself off again.
%
fortune/jackbauer view on Meta::CPAN
%
LA smog is not due to automobile pollution. It is due to the constant corpse fires for all the terrorists slain at the hands of Jack Bauer.
%
After Jack Bauer has sex with women, they require medical attention. Despite his promises to take them to the hospital afterwards, Jack simply shoots them in the face.
%
If you're ever unsure of what answer to give, just say or write Jack Bauer. You'll get it right.
%
Jack Bauer does not spray and pray. He sprays, and you pray.
%
You don't assign Jack Bauer to a case. You turn him loose.
%
fortune/jackbauer view on Meta::CPAN
%
One day, Jack Bauer was seen walking around L.A. with a gigantic green heart in his hand. When asked whoose it was, Jack replied, "His name was Incredible Hulk...something."
%
Jack Bauer makes onions cry.
%
If Jack Bauer says "Shit," you say "What shape Agent Bauer?"
%
Jack Bauer can only get drunk from a combination of rattlesnake venom and hot sauce. And he's sober again in six minutes.
%
What do you call Jack Bauer with no arms or legs in the middle of a lake? Extremely dangerous.
%
Jack Bauer is the American dream. That is to say when America sleeps it dreams of Jack Bauer.
%
Jack Bauer knows Victoria's secret.
%
There's a reason why getting your car stolen is referred to as being "Jacked."
%
fortune/jackbauer view on Meta::CPAN
%
In the summertime, Jack Bauer shoots his own hands and fills up bags with his blood. He then hangs those bags up around the porch to keep mosquitoes away from him and his guests.
%
Jack Bauer can burn ants with a magnifying glass at night.
%
If you stand in your bathroom with the lights off and say "Jack Bauer" seven times, he appears and kills you.
%
If Jack Bauer had been a Spartan the movie would have been called "1".
%
To give the terrorists a fighting chance, Jack Bauer will start throwing bullets.
%
fortune/jackbauer view on Meta::CPAN
%
Die Hard is the funniest movie Jack Bauer's ever seen.
%
Garbage men leave Jack Bauer's empty trash cans upright and in their proper location.
%
They say that men can't handle relationships. Relationships can't handle Jack Bauer.
%
Jack Bauer taught sign language to the blind.
%
The real reason the war is still going on in Iraq is that President Bush has not unleashed Jack Bauer. This is why President Bush is considered a stupid president.
%
fortune/jackbauer view on Meta::CPAN
%
The only reason Jack gave Nina mouth to mouth in Season 2 was because he had to kill her himself.
%
Jack Bauer is the reason the Homeland Security rating was lowered from red, back down to yellow. It would have been green, however it still is very dangerous being around Jack Bauer.
%
Jack Bauer plays Kiefer Sutherland on TV, needless to say Jack Bauer is the world's greatest actor.
%
For 24: The Game, (PS2) there will be three levels of difficulty; Normal, Hard, and Jack Bauer.
%
If a tree falls in the forest, it’s because Jack Bauer wants it down.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack takes his knife out, the terror alert level automatically drops to green.
%
It's Jack Bauer's world, and we just live in it. Until we meet Jack Bauer.
%
Jack Bauer always answers the phone with "Yeah!". Only pussies say "hello".
%
If Jack Bauer and Chuck Norris got into a fight, Chuck Norris would knock himself out so that Jack wouldn't touch him.
%
When Jack Bauer whispers into Lil Jon's ear, Lil Jon no longer has a hearing problem.
%
fortune/jackbauer view on Meta::CPAN
Jack Bauer knows Who's the Boss? Him.
%
Jack Bauer's cell phone ring is not set to 'vibrate' on purpose.
Letting the terrorists know where he is hiding is all part of his bigger plan.
%
If Jack Bauer had been the mastermind behind the robbery in "Ocean's Eleven", it wouldn't have been much of a movie, because all he would have had to do would be to walk into the Bellagio and say "My name is Jack Bauer. Give me 163 million dollars. ...
%
To prove it wasn't a big deal that Tom Hanks survived 4 years on a deserted island almost completely naked with only a spear and a volleyball, Jack Bauer did the same thing on Antarctica. Without the spear or the volleyball.
%
Unlike the hordes of CTU agents at his disposal, Jack Bauer doesn't need body armor. His skin is made of kevlar.
%
fortune/jackbauer view on Meta::CPAN
%
The Teenage Mutant Ninja Turtles, the A-Team, AND the Ghostbusters all have Jack Bauer lunch boxes.
%
Jack Bauer was approached to be a talk show host, but the deal fell through when he tortured each guest on the pilot episode. He wasn't happy with the answers he was getting, and insisted that he needed to know their 'primary objective'
%
When Jack Bauer masturbates, he doesn't say he's going to jerkoff, he say's "it's time to punish my genitals".
%
The ancient Chinese built the Great Wall of China not to repel the Mongols, but rather to repel Jack Bauer. It failed when he attacked over the Himalayas.
%
Jack Bauer filled up his GMail in 23 Hours and 59 secs.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer found and killed the last 0.1% of odor-causing bacteria.
%
The soup nazi gives Jack Bauer extra crackers.
%
When Jack Bauer whispers something in Lil Jon's ear, he does not say "WHAT?!"
%
When Jack Bauer asks for your help, he's not asking.
%
Not only can Jack Bauer divide by 0, he knows the value of the square root of negative one, the last 4 digits of pi and the Colonel's secret blend of herbs and spices.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer once made a blind man see again, then promptly threatened to cut out his eyes if he didn't give him the information he wanted.
%
The reason why Jack Bauer hasn't caught all of America's Most Wanted...he doesn't want to take away American jobs.
%
You don't wanna say "Hello" to Jack Bauer's little friend.
%
The only reason Audrey Reins sold schematics to the terrorist was so Jack could push her up against a wall like he does in her fantasies.
%
Jack Bauer doesn't read the news... he beats it out of reporters.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't use Icy Hot, he uses WD-40.
%
Jack Bauer's mother once caught him with his hand in the cookie jar when he was a child, he wanted the cookie, so he shot her.
%
Jack Bauer can get a homeless guy to say who he's working for.
%
Jack Bauer once passed a kidney stone so large that he called it Edgar and put it to work at CTU.
%
If Jack on Lost's last name was Bauer, he would've killed "The Others," the polar bear, and the monster, and he would've gotten everyone rescued. However, the show would've lasted only one episode.
%
Did you ever see the documentary of when Jack Bauer took a day off? It's called "Black Hawk Down".
%
Jack Bauer doesn't need to say goodbye when he hangs up. Everyone knows when he's finished talking.
%
George Mason once called Jack Bauer a "stupid chump." Years later he died in a nuclear blast. This is no coincidence.
%
Jack Bauer's hotness is responsible for global warming.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can score a three pointer from inside the key.
%
Former L.A. Lakers star, Wilt Chamberlain, claimed to have slept with 20,000 women. What he doesn't mention is the fact they were all Jack Bauer's sloppy seconds.
%
The only way to achieve immortallity is to get Jack Bauer to say to you, "I won't let anything happen to you".
%
Darth Vader wears a mask because Jack Bauer is looking for the face.
%
Jack Bauer once tortured and killed a man using only shadow puppets.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer didn't learn anything in school. He already knew.
%
Jack Bauer doesn't speak any foreign languages, but he can make any foreigner speak English in a matter of minutes.
%
Looking upon some of Jack's finest handywork, Mike Doyle could only say with utmost respect, "Damn, Jack..."
%
If Edgar and Chloe ever had a baby, Jack would shoot it.
%
The real reason Jack Bauer was fired from CTU was his massive cell phone bill.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer does not hunt because the word hunting infers the probability of failure. Jack Bauer goes killing.
%
Welcome to the Jack Bauer Comedy Club. Rule #1 - laugh only when Jack laughs, which will be never.
%
When terrorists go to hell, if they say Jack Bauer sent them, they'll get a group discount.
%
Jack Bauer was Superman's stunt double.
%
When Tony was attacked by a syringe, Jack was holding him and crying because his tears have healing powers.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't use a watch. He tells time by how many terrorists he has killed.
%
There is a theory that says if a werewolf bites Jack Bauer, then every full moon it will turn into a "were-Bauer" and kill terrorists uncontrollably. This is only a theory of course, because no werewolf has succeeded in biting him. Neither have Vampi...
%
They say little girls want to marry men that remind them of their fathers... poor Kim. There will never be another Jack Bauer, not even close.
%
People think that every time a bell rings an angel gets its wings. That is only the nice story your parents told you. In truth, every time a bell rings another terrorist has just gone to hell.
%
Jack Bauer may have 9 lives but he is no pussy.
%
fortune/jackbauer view on Meta::CPAN
%
Jesus and his disciples watched 24 during the last supper. That is why they are all facing the same direction.
%
Jack Bauer doesn't need to "establish a perimeter", he is the perimeter.
%
If you're being interrogated and you hear Jack say "hacksaw", say goodbye to your head.
%
The 2007 budget for the US Military covers Jack Bauer, two pistols and four billion rounds of ammunition.
%
Watch film of the Berlin Wall coming down. If you look close, through the dust, you'll see Jack Bauer walking away carrying a sledge hammer.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer was a child, he made his mother finish his vegetables.
%
Jack Bauer took a shit and named it Steven Seagal.
%
Don't ever say "Bite me!" to Jack Bauer. He'll do it.
%
In school, kids refused to play hide and seek with Jack Bauer, because when Jack found them, he tortured each one of his classmates till they give all possible locations to hide.
%
In the Mortal Kombat preliminary rounds, Goro had 6 arms when fighting Jack Bauer. He still does; 4 on his body and 2 in his ass.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer put money in a parking meter and got change.
%
If you look closely at the scene of King Kong climbing up the Empire State Building, you can see Jack Bauer holding a gun to his back.
%
Jesus Christ doesn't say "Jesus Christ," he says "Jack Bauer."
%
Ford wanted to make the Jack Bauer edition of the Explorer, but the government wouldn't let them mount the machine gun on the hood, so they settled for Eddie Bauer.
%
Jack Bauer closed Pandora's Box.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer is allowed to leave his phone on during a movie.
%
Jack Bauer won two awards on Sunday at the Screen Actors Guild awards. One for best actor in a drama series, and another for baddest motherfucker on earth.
%
They say guns are illegal to just carry on the street. Jack Bauer's left and right arm tend to disagree.
%
Jack Bauer is the President's easy button.
%
24 would be a mini-series if the rest of CTU just got out of the way and let Jack work.
%
fortune/jackbauer view on Meta::CPAN
%
Kim Bauer only exists because they don't make Kevlar condoms.
%
The film The Rock is loosely based on events from Jack Bauer's summer vacation.
%
Jack Bauer only has one line to say to a woman after spending the night, "There's no time, I have to go."
%
When Jack Bauer moved to Elm Street, the nightmare ran away.
%
It takes 46 shots for Kobe Bryant to score 81 points. It takes Jack Bauer 46 shots to kill 46 terrorists.
%
fortune/jackbauer view on Meta::CPAN
%
To Jack Bauer, Level 8 Security just means it takes 8 seconds to infiltrate.
%
On slow days at CTU, Jack Bauer will release 15 velociraptors throughout the entire building. This is to keep everyone at peak alertness, and keeps Jack Bauer challenged when there are no terrorists to thwart. Where does Bauer get velociraptors? A...
%
When people say "Lord have mercy," Jack Bauer considers it.
%
For Valentine’s Day, Jack Bauer cleaned his gun.
%
Jack Bauer hates microwave ovens; he finds them too slow. Jack would rather just intimidate his food into going from raw to cooked in under a minute.
%
Acme-Acotie
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
sub _is_qr {
my $regex = shift;
# is_regexp() checks for regexes in a robust manner, say if they're
# blessed.
return re::is_regexp($regex) if defined &re::is_regexp;
return ref $regex eq 'Regexp';
}
Acme-Affinity
view release on metacpan or search on metacpan
{ i => 18,
q => "Who's the most fascinating person you know?",
a => ['mom', 'dad', 'friend'] },
{ i => 19,
q => "What's the hardest thing you've ever done?",
a => ['say I love you', 'meet the in-laws'] },
{ i => 20,
q => "What's the scariest thing you've ever done?",
a => ['say I love you', 'meet the in-laws'] },
];
# Set you to a purposfully strict set of answers
my $you = [ map { [ $_->{a}[0], $_->{a}[0], 'mandatory' ] } sort { $a->{i} <=> $b->{i} } @$questions ];
Acme-Akashic-Records
view release on metacpan or search on metacpan
lib/Acme/Akashic/Records.pm view on Meta::CPAN
=head1 SYNOPSIS
use Acme::Akashic::Records;
my $akashik = new Acme::Akashic::Records;
# They ALL access the Akashik Records.
say $akasik;
say $akasik->first;
say $akasik->last;
say $akasik->[0];
say $akasik->[0+$akashik];
say $akasik->{''.$akashik};
say $akasik->($akashik);
say <$akashik>;
=head1 DESCRIPTION
Acoording to Wikipedia, the akashik records are described as "containing
all knowledge of human experience and the history of the cosmos."
Acme-Albed
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
}
sub _is_qr {
my $regex = shift;
# is_regexp() checks for regexes in a robust manner, say if they're
# blessed.
return re::is_regexp($regex) if defined &re::is_regexp;
return ref $regex eq 'Regexp';
}
Acme-AliG
view release on metacpan or search on metacpan
lib/Acme/AliG.pm view on Meta::CPAN
"craic" => "crack",
"crap" => "mingin",
"crapper" => "bog",
"cunning" => "brainiest",
"cunt" => "punanni",
"curse" => "say a swear word",
"cursed" => "sed swear words",
"curses" => "sez swear words",
"cursing" => "saying swear words",
"cute" => "fit",
"dad" => "old geezer",
Acme-AsciiArtinator
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
# for regular Perl variables ( "$x", "@bob" ), it is OK to split
# the sigil and the var name with any whitespace ("$ x", "@\n\tbob").
# For special Perl vars ( '$"', "$/", "$$" ), it is OK to split
# with spaces and tabs but not with newlines.
#
# Check for this condition here and say that padding is needed if
# a special var is currently aligned on a newline.
#
if ($bc == 0 && $blocks[$ib] == 0 && $tokens[$it] eq "\$"
&& $contexts[$it] eq "SIGIL" && $contexts[$it+1] eq "name"
&& length($tokens[$it+1]) == 1 && $tokens[$it+1] =~ /\W/) {
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
=item * Avoid significant newlines
Newlines are stripped from the code before the code is tokenized.
If there are any significant newlines (I mean the literal 0x0a char.
It should still be OK to say C<print"\n">), then the artinated
code will run differently.
=item * Consider workarounds for quoted strings
Quoted strings are parsed as a single token. Consider ways to break
them up so that can be split into multiple tokens. For example, instead
of saying C<$h="Hello, world!";>, we could actually say something like:
&I;($c,$e)=qw(, !);$h=H.e.l.l.o.$c.$".W.o.r.l.d.$e;
The modified code is a lot longer, but this code can be split at any
point except in the middle of C<qw>, so it is much more flexible code
Acme-AwesomeQuotes
view release on metacpan or search on metacpan
lib/Acme/AwesomeQuotes.pm view on Meta::CPAN
=head1 SYNOPSIS
use Acme::AwesomeQuotes;
my $awesome_text = GetAwesome('Wyld Stallyns');
say q(I'm Bill S. Preston, Esquire!);
say q(And I'm Ted "Theodore" Logan!);
say ('And we are ', $awesome_text, '!');
=head1 DESCRIPTION
Tired of ordinary quotation marks that lack punch?
Acme-Backwards
view release on metacpan or search on metacpan
lib/Acme/Backwards.pm view on Meta::CPAN
Perhaps a little code snippet.
use Acme::Backwards;
my $str = 'backwards'
fi ( $str eq 'backwards' ) say $str;
sselnu ( $str eq 'forwards' ) say $str;
fi ( $str eq 'forwards' ) say $str;
fisle ( $str eq 'backwards' ) say $str;
esle die $str;
my $int = 0;
rof (qw/1 2 3/) $int += $_;
rof my $var (qw/4 5 6/) $int += $var;
Acme-Bitfield
view release on metacpan or search on metacpan
# Mark item 42 as present
$bf->set( 42 );
# Check if we have item 42
say 'Found it!' if $bf->get(42);
# Statistics
printf "Progress: %.2f%%\r", ($bf->count / $bf->size * 100);
# Export raw binary for network transfer
Acme-Bleach-Numerically
view release on metacpan or search on metacpan
lib/Acme/Bleach/Numerically.pm view on Meta::CPAN
my $world = str2num(qq{print "hello, world!\n";})
=head1 DESCRIPTION
Georg Cantor has found that you can squeeze the whole world between
zero and one. Many say he went insane because of that but the reality
is, he just bleached himself with continuum hypothesis :)
This module does just that -- map your whole world onto a single point
between 0 and 1. Welcome to the Programming Continuum of Perl!
Acme-BooK-Is-My-Bitch
view release on metacpan or search on metacpan
lib/Acme/BooK/Is/My/Bitch.pm view on Meta::CPAN
my $next_talk_quote = $bitch->next_talk();
=head3 next_yapc
BooK has something to say about the place the next YAPC::EU is going to be.
my $next_yapc_quote = $bitch->next_yapc();
=head3 sql
lib/Acme/BooK/Is/My/Bitch.pm view on Meta::CPAN
my $words_of_wisdom_quote = $bitch->words_of_wisdom();
=head3 random_quote
To tell you the truth, no one really knows what BooK is going to say next.
my $random_quote_quote = $bitch->random_quote();
=head1 CONFIGURATION AND ENVIRONMENT
Acme-Boolean
view release on metacpan or search on metacpan
lib/Acme/Boolean.pm view on Meta::CPAN
mistaken phony sham sophistical specious spurious unfounded unreal
unsound
=head2 Adjectives
Optionally it's possible to say it more nicely:
$that = so correct;
(I wish I could alias "is" to "=" in that statement.)
lib/Acme/Boolean.pm view on Meta::CPAN
so totally very definitely really certainly surely unquestionably
just undoubtedly absolutely.
Adjectives can be stacked too:
say "ok" if very very very perfect; #=> ok
=head2 Caveats
Noted here that the word C<no> is also a keyword for unimporting
pragmas/modules and thus one must write C<&no> to get the wanted
Acme-Buga
view release on metacpan or search on metacpan
lib/Acme/Buga.pm view on Meta::CPAN
use Acme::Buga;
# Default
my $b = Acme::Buga->new;
say $b->encode('Test');
# Alternative constructor
use Acme::Buga 'buga';
say buga('Another Test')->encode;
=head1 DESCRIPTION
This module encode any text into a Buga buga bUga string value.
Acme-CPANAuthors-GeekHouse
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
sub _is_qr {
my $regex = shift;
# is_regexp() checks for regexes in a robust manner, say if they're
# blessed.
return re::is_regexp($regex) if defined &re::is_regexp;
return ref $regex eq 'Regexp';
}
Acme-CPANModules-API-Dead-Currency
view release on metacpan or search on metacpan
lib/Acme/CPANModules/API/Dead/Currency.pm view on Meta::CPAN
% cpanmodules ls-entries API::Dead::Currency | cpanm -n
or L<Acme::CM::Get>:
% perl -MAcme::CM::Get=API::Dead::Currency -E'say $_->{module} for @{ $LIST->{entries} }' | cpanm -n
or directly:
% perl -MAcme::CPANModules::API::Dead::Currency -E'say $_->{module} for @{ $Acme::CPANModules::API::Dead::Currency::LIST->{entries} }' | cpanm -n
This Acme::CPANModules module also helps L<lcpan> produce a more meaningful
result for C<lcpan related-mods> command when it comes to finding related
modules for the modules listed in this Acme::CPANModules module.
See L<App::lcpan::Cmd::related_mods> for more details on how "related modules"
( run in 1.014 second using v1.01-cache-2.11-cpan-b85c58fdc1d )