view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AWS/XRay/Segment.pm view on Meta::CPAN
return bless {}, "${class}::NoTrace" if !$AWS::XRay::ENABLED;
my $segment = {
id => AWS::XRay::new_id(),
start_time => Time::HiRes::time(),
trace_id => $AWS::XRay::TRACE_ID,
%$src,
};
if (my $parent_id = $AWS::XRay::SEGMENT_ID) {
# This is a sub segment.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AXL/Client/Simple/Phone.pm view on Meta::CPAN
current item, otherwise returns a false value.
=head2 $lines->reset
Resets the iterator's cursor, so you can walk through the entries again from
the start.
=head2 $lines->count
Returns the number of entries returned by the C<lines> server query.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Abilities/Features.pm view on Meta::CPAN
This method returns a list of all plan names that a customer has subscribed to,
or that a plan inherits from.
Example return structure:
( 'starter', 'diamond' )
NOTE: In previous versions, this method was required to return
an array of plan objects, not a list of plan names. This has been changed
in version 0.3.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Abstract/Meta/Attribute/Method.pm view on Meta::CPAN
=cut
{ my %pending_association;
=item start_association_process
Start association process (to avoid infinitive look of associating the others ends)
Takes obj reference.
=cut
sub start_association_process {
my ($self) = @_;
$pending_association{$self} = 1;
}
lib/Abstract/Meta/Attribute/Method.pm view on Meta::CPAN
confess "invalid definition for " . ref($self) ."::". $name
. " - associatied class not defined on " . ref($value) ."::" . $the_other_end
unless $the_other_end_attribute->associated_class;
start_association_process($value);
eval {
my $association_call = 'associate_' . lc($the_other_end_attribute->perl_type) . '_as_the_other_end';
$attr->$association_call($self, $value);
};
end_association_process($value);
lib/Abstract/Meta/Attribute/Method.pm view on Meta::CPAN
my $storage_key = $attr->storage_key;
my $array_storage_type = $attr->storage_type eq 'Array';
my $value = ($transistent ? get_attribute($self, $storage_key) : ($array_storage_type ? $self->[$storage_key] : $self->{$storage_key})) or return;
my $the_other_end = $attr->the_other_end;
return if ! $the_other_end || has_pending_association($value);
start_association_process($self);
my $associated_class = $attr->associated_class;
my $the_other_end_attribute = $associated_class->meta->attribute($the_other_end);
my $deassociation_call = 'deassociate_' . lc($the_other_end_attribute->perl_type) . '_as_the_other_end';
if(ref($value) eq 'ARRAY') {
$the_other_end_attribute->$deassociation_call($self, $_) for @$value;
view all matches for this distribution
view release on metacpan or search on metacpan
}
# return a portion of the active list
sub _fetch {
my $self = shift;
my ($count,$start,$tag) = @_;
my (@result);
$tag = '' unless defined $tag;
my $query = "show -j $tag";
$query .= ' -T' if $self->{timestamps};
$query .= " -b $start" if defined $start;
$query .= " -c $count" if defined $count;
$self->{database}->query($query);
while (my @objects = $self->_fetch_chunk) {
push (@result,@objects);
}
retrieve objects beginning at the indicated offset into the list. If
you want to limit the number of objects returned, but wish to learn
how many objects might have been retrieved, pass a reference to a
scalar variable in the B<-total> argument. This will return the
object count. This example shows how to fetch 100 Sequence
objects, starting at Sequence number 500:
@some_sequences = $db->fetch('Sequence','*',100,500);
The next example uses the named argument form to fetch 100 Sequence
objects starting at Sequence number 500, and leave the total number of
Sequences in $total:
@some_sequences = $db->fetch(-class => 'Sequence',
-count => 100,
-offset => 500,
view all matches for this distribution
view release on metacpan or search on metacpan
b) You must cause any work that you distribute or publish, that in whole or in
part contains or is derived from the Program or any part thereof, to be licensed
as a whole at no charge to all third parties under the terms of this License.
c) If the modified program normally reads commands interactively when run, you
must cause it, when started running for such interactive use in the most ordinary
way, to print or display an announcement including an appropriate copyright
notice and a notice that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these conditions,
and telling the user how to view a copy of this License. (Exception: if the
Program itself is interactive but does not normally print such an announcement,
view all matches for this distribution
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't care about Kanye West.
%
Jesus did not die for our sins. He refused to divulge information to Jack Bauer.
%
Most people start their day with a bowl of cereal. Jack Bauer starts his day with a 9mm and a double figure body count
%
Jack Bauer won the Daytona 500. On a skateboard.
%
Jack Bauer got an upgrade to first class even though the airplane did not have a first class section.
%
fortune/jackbauer view on Meta::CPAN
%
The only difference between Jack Bauer and the electric chair is that Jack Bauer makes you talk first.
%
Yoda was once tall and strong. Until Jack Bauer interrogated him.
%
Dick Cheney asked Jack Bauer if he wanted to go hunting, Jack Bauer said start running Dick.
%
Jack Bauer had sex with every woman in Africa and still didn't get AIDS.
%
Jack Bauer thinks protocol means "To kill". Now it does.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer wakes up before the alarm goes off.
%
Jack Bauer fears one thing and one thing only: Unprotected Sex. Why? Two words, "Kim Bauer".
%
Jack's wife once started to smoke, so he had to slow down.
%
Chuck Norris does not sleep; he waits... Jack Bauer does not have the luxury to sleep or wait, because your life depends on it.
%
There are three leading causes of death among terrorists. The first two are Jack Bauer, and the third one is heart attack from hearing Jack Bauer is coming for them.
%
fortune/jackbauer view on Meta::CPAN
%
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.
%
Even if Red Bull does give you wings, Jack Bauer will keep you on the fucking ground.
%
When Jack Bauer says "Screw it," your reply is, "What position, sir?".
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't need weapons, weapons need Jack Bauer.
%
Jack Bauer thought the movie "Mission: Impossible" was completely unrealistic. No mission is impossible.
%
The only time the terror alert level goes above "severe" is when Jack Bauer starts crying.
%
While playing a game of Red Rover, if a team yells "Red Rover, Red Rover, send Bauer right over," have some ice on hand to preserve the detached limbs that will litter the ground.
%
Pee Wee Herman was arrested for jacking off in public. That same day Jack Bauer was awarded the silver star for jacking off on a roller coaster while shooting shooting a terrorist with his other hand.
%
fortune/jackbauer view on Meta::CPAN
%
There have been no terrorist attacks in United States since Jack Bauer has appeared on television.
%
Jack Bauer touches raw chicken and doesn't wash his hands.
%
If you cant't see well, Jack Bauer will start with the left eye, then he'll move to the right eye, then he's going to start cutting you.
%
Jack Bauer did not drop Habib Marwan to his death because Marwan cut his hand; Jack Bauer is immune to pain. He dropped him because Marwan has sweaty hands. Very, very sweaty hands.
%
Jack Bauer has a another daughter called Rambo.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer brings a knife to a gun fight and always wins.
%
One time when Jack Bauer was a kid, he invoked Section 112 Protocol overwriting his parents’ authority. He made them go to their rooms for 2 hours. They stayed for 3.
%
24 was moved to Monday because Jack Bauer doesn't wait on anyone to start killing people.
%
Teri Bauer had her tubes tied years ago. That still didn't stop Jack.
%
Jack Bauer has cancer, and cancer prays for it's life.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer has more lives than Up, Up, Down, Down, Left, Right, Left, Right, B, A, B, A, Start.
%
When Jack Bauer propositions a girl, "no" means "yes" and "yes" means "harder." Actually, no girl has ever said "no."
%
You probably don't think that Jack Bauer can force a towel down your throat, but trust me, he can. All the way. Except he'd hold onto the little bit at the end. When your stomach starts to digest it, he'll pull it out taking your stomach lining with ...
%
Worst Career Move: Congratulations. You've been assigned to CTU. Jack Bauer will be reporting to you.
%
If you try to make Jack Bauer sacrifice himself for nothing, he will eat you.
fortune/jackbauer view on Meta::CPAN
%
Long ago, a sperm was interrogating an egg to find out its primary objective. The result was Jack Bauer.
%
Upon meeting Jack Bauer, he will grant you three wishes. Realistically, you only get two because everyone's first wish is that Jack Bauer doesn't kill them.
%
Jack Bauer can start a fire using only water.
%
If you get 7 stars on your wanted level on Grand Theft Auto, Jack Bauer comes after you. You don't want to get 7 stars.
%
Jack Bauer, Chuck Norris, and Mr. T were once stuck in a room. The combination of Pitting Fools, Roundhouse Kicks and Terrorist Killing ability created a tear in the fabric of space time. The end result was Stephen Harper winning the Canadian Elect...
%
fortune/jackbauer view on Meta::CPAN
%
The creation of the Chuck Norris fact generator was merely a tactical maneuver by Jack Bauer in a successful attempt to lure out the enemy.
%
For every result you get during a Google search, Jack Bauer tortured someone to get it up there.
%
When Jack Bauer gets within ten miles of you, you automatically start sweating.
%
So far, Jack Bauer has said some variant of "Trust Me" 485,942 times during his televised adventures.
%
"Have it your way" wasn't a slogan at Burger King until Jack Bauer came in. Jack Bauer fucking hates tomatoes.
%
fortune/jackbauer view on Meta::CPAN
%
Why you never see Jack Bauer go to the bathroom? He has Edgar Stiles go for him.
%
If Jack Bauer doesn't kill you on the first shot he is trying to torture you.
%
Every time a suspect with vital information gets shot right before Jack Bauer starts to interrogate them, they think to themselves, "Thank you God for letting me die before Jack got to me!"
%
If Jack Bauer said the world was flat. You better believe him.
%
Why do they call it Jacking off? Because Jack Bauer only needs his hand to blow anything up.
%
fortune/jackbauer view on Meta::CPAN
• Those who will do anything for Jack...and eventually die as a result.
• Those who are secretly plotting to betray Jack, and who will eventually die as a result.
%
Jack Bauer once appeared in a Staples commercial... he broke the easy button because everything comes easy to Jack Bauer.
%
If two trains are heading towards the same destination, one starting from 100 miles away going east at 80mph, and another from 120 miles away going west at 100mph, which one arrives first? Answer: Jack Bauer.
%
Jack Bauer is the only guy who can get away with killing his girlfriend's ex-husband and still have her fall for him.
%
Jack Bauer doesn't use toilet paper. He uses terrorists.
%
fortune/jackbauer view on Meta::CPAN
%
When a tree falls in the forest and nobody is there to hear the sound, Jack Bauer hears it.
%
The reason why James Bond keeps switching the actors is because the writers keep hoping they'll get Jack Bauer.
%
When President Palmer quit to start doing Allstate commercials, it took him 43 takes before he could stop saying, "You're in good hands with Jack Bauer".
%
Jack Bauer definitely loves his daughter; he wouldn't let anyone else who made that many stupid decisions live.
%
fortune/jackbauer view on Meta::CPAN
%
Out of pure fear, Microsoft compiles a special version of Windows for Jack Bauer that boots instantly and never crashes. Programmers like their fingers and tend to get nervous when Jack is speaking.
%
Jack Bauer won a date with Tad Hamilton, and within 2 minutes of being tortured by Jack Bauer, he admitted he was gay.
%
Jack Bauer's mornings usually start with a trip down his slip-and-slide lined with razor blades followed by a dip in a his pool filled with rubbing alcohol. He likes to dry off with a towel made from sandpaper.
%
Jack Bauer doesn't read books. He stares them down until he gets the information he wants.
%
Ray Charles went blind after getting his eyes gauged out by Jack Bauer after refusing to give up the location of his heroin stash.
%
fortune/jackbauer view on Meta::CPAN
%
If Jack Bauer wants to have a minute alone with you... well, basically you're fucked.
%
It only took 3 minutes for Jack Bauer to find out Victoria's secret.
%
If Jack Bauer started having sex with men, we'd all be gay for having sex with women
%
Jack Bauer doesn't eat honey, he chews bees.
%
"This man has more lives than a cat." Ramon Salazar, Season 3
%
fortune/jackbauer view on Meta::CPAN
%
CBS is giving Palmer what he always dreamed about: A chance to be Jack Bauer.
%
Lou Gehrig was once heard to say, "Today, I consider myself the luckiest man on the face of the Earth." He was referring of course to the fact that a horrible disease would end his life before Jack Bauer was even born.
%
Jack Bauer once started a fight club, hospitals around the country soon became overcrowded.
%
Jack Bauer has never used a Lifeline on "Who Wants to be a Millionaire."
%
On each page of Jack Bauer's day planner are the words: Save the world, again.
%
fortune/jackbauer view on Meta::CPAN
%
Reading facts about Jack Bauer is more additive than heroin.
%
There was no Sentox nerve gas in CTU. Jack Bauer just farted.
%
Only Jack Bauer can singlehandedly start World War III between the Russians, Chinese and United States... over Audrey Raines.
%
Jack Bauer was able to eliminate Bird Flu playing Duck Hunt.
%
When asked what he most enjoys about his work, Jack Bauer responded, "There's nothing like stabbing a terrorist in the chest and watching him writhe around in pain, looking into his eyes knowing that my face is the last thing he'll ever see alive. I ...
%
fortune/jackbauer view on Meta::CPAN
%
Jehovah's Witnesses once tried to convert Jack Bauer. After four minutes of interrogation, they admitted Jack Bauer was God.
%
Jack Bauer hates WACH-TV 57 in South Carolina, and broke the fingers of both news anchors before knocking them out. No newscast cuts off the last 10 minutes of his show.
%
The Spanish Inquisition started when Jack Bauer once asked for directions to a Taco Bell.
%
Jack Bauer is so sexy that being called a Jackass has become a compliment.
%
Many beautiful women ask Jack Bauer to sleep with them on a daily basis but he always refuses. Is it because he's gay? No, it's because Jack Bauer doesn't fucking sleep.
%
fortune/jackbauer view on Meta::CPAN
%
Ambulances carrying patients pull over for Jack Bauer.
%
The only way Ford will make a comeback - Come out with the Jack Bauer edition Explorer.
%
While he was in China, Jack Bauer escaped once. As he reached the ocean, he started swimming toward the United States. After 62 miles he got tired and swam back.
%
If Jack Bauer was on American Idol, he would win because all other contestants would be too scared to sing.
%
Telemarketers do not call Jack Bauer at dinner time in fear of retaliation.
%
fortune/jackbauer view on Meta::CPAN
%
When your wathicng 24 your not watching Jack Bauer, Jack Bauer is watching you.
%
A majority of American disapprove of the U.S. torturing terror suspects... only because Jack Bauer isn't doing the torturing.
%
When Jack Bauer was in 4th grade he put his principle in an armbar for 24 hours for forgetting to start the day with the Pledge of Allegiance.
%
On his days off from CTU Jack Bauer helps old ladies cross the road. He does this by staring at oncoming cars. On the freeway.
%
Jack Bauer has an Xbox 720.
%
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/3mxA.pm view on Meta::CPAN
=back
=head1 SEE ALSO
L<Acme::Bleach> which started it all, L<Acme::Palindrome>, L<Acme::emcA>
and L<Acme::Ãnicöde> which appears to have pioneered Unicode package names.
=head1 LICENCE
There is no warranty for this code. You really do use it at your own risk.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/6502.pm view on Meta::CPAN
use Acme::6502;
my $cpu = Acme::6502->new();
# Set start address
$cpu->set_pc(0x8000);
# Load ROM image
$cpu->load_rom('myrom.rom', 0x8000);
lib/Acme/6502.pm view on Meta::CPAN
=item C<read_32( $addr )>
Read a 32 bit word at the specified address.
=item C<read_chunk( $start, $end )>
Read a chunk of data from C<$start> to C<$end> - 1 into a string.
=item C<read_str( $addr )>
Read a carriage return terminated (0x0D) string from the
specified address.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
my $used = {};
$bases_map->{$class} = [grep {not $used->{$_}++} @bases];
}
my %code = (
sub_start =>
"sub {\n",
set_default =>
" \$_[0]->{%s} = %s\n unless exists \$_[0]->{%s};\n",
init =>
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
inc/Spiffy.pm view on Meta::CPAN
? '[]'
: (ref($default) eq 'HASH' and not keys %$default )
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
}
sub _is_module_name {
my $module = shift;
# Module names start with a letter.
# End with an alphanumeric.
# The rest is an alphanumeric or ::
$module =~ s/\b::\b//g;
return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
my $used = {};
$bases_map->{$class} = [grep {not $used->{$_}++} @bases];
}
my %code = (
sub_start =>
"sub {\n",
set_default =>
" \$_[0]->{%s} = %s\n unless exists \$_[0]->{%s};\n",
init =>
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
inc/Spiffy.pm view on Meta::CPAN
? '[]'
: (ref($default) eq 'HASH' and not keys %$default )
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
./tmp/req
./tmp/req
=head1 DESCRIPTION
Sometimes the stages involved in perlâs execution can be hard to grasp. It gets even hairier when you start compiling your code.
When trying to explain and then demonstrate what was happening I found myself writing scripts and modules to output what perl is doing where in order to find out if my understanding lined up with reality. Then to see how reality held up once compiled...
Finally, making a set up every few months got old and I thought Iâd put it all on CPAN for the masses to enjoy/ignore.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
b) You must cause any work that you distribute or publish, that in whole or in
part contains or is derived from the Program or any part thereof, to be licensed
as a whole at no charge to all third parties under the terms of this License.
c) If the modified program normally reads commands interactively when run, you
must cause it, when started running for such interactive use in the most ordinary
way, to print or display an announcement including an appropriate copyright
notice and a notice that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these conditions,
and telling the user how to view a copy of this License. (Exception: if the
Program itself is interactive but does not normally print such an announcement,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AsciiArt2HtmlTable.pm view on Meta::CPAN
my $optimization = '';
# debugging messages were kept for future reference
# remember that lines and cells are not the exact values, as
# arrays start at index 0 and both lines and cells start at
# position 1
#my $debug = "line $line, cell $cell, ";
if ( $config{'optimization'} ) {
lib/Acme/AsciiArt2HtmlTable.pm view on Meta::CPAN
When the optimization algorithm sees a chance of turning some cells
into a big one, it does so. It always chooses the biggest area
possible for optimizing.
If two different areas suitable for optimization starting from a given
cell are available and both present the same area size, the algorithm
picks the one that maximizes width.
=head4 default color
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
$Q = "@INPUT[$i..$#INPUT]";
print STDERR "\$Q = ", substr($Q,0,8), "... SIGIL=$sigil\n" if $_ eq "q" && $DEBUG;
# $# could be "the output format of printed numbers"
# or it could be the start of an expression like $#X or $#{@$X}
# in the latter case we need $# + one more token to be contiguous
if ($Q =~ /^\$\#\{/ || $Q =~ /^\$\#\w+/) {
$token = $&;
push @tokens, $token;
push @contexts, "\$# operator";
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
}
$i = $j;
} elsif (!$sigil && $Q =~ /^[0-9]*\.{0,1}[0-9]+([eE][-+]?[0-9]+)?/) {
# if first char starts a numeric literal, include all characters
# from the number in the token
$token = $&;
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
push @contexts, "content of regex/x";
}
}
$i -= length($token) + length($regex) - $t2 - 1;
# positions $i to the start of the 2nd pattern,
# which can be tokenized as a perl expression.
# Hopefully the terminator can be recognized
} elsif ($token =~ /x/) {
pop @tokens;
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
of the art and write the output file.
Sometimes we insert too many characters without successfully
aligning the tokens and darkspace blocks (and actually in the
spider example, this happens about 90% of the time). If this
happens, we will start over and retry up to 100 times.
=head1 BEST PRACTICES
Certain coding practices will increase the chance that
C<Acme::AsciiArtinator> will be able to embed your code
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution
view release on metacpan or search on metacpan
third parties under the terms of this General Public License (except
that you may choose to grant warranty protection to some or all
third parties, at your option).
c) If the modified program normally reads commands interactively when
run, you must cause it, when started running for such interactive use
in the simplest and most usual way, to print or display an
announcement including an appropriate copyright notice and a notice
that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these
conditions, and telling the user how to view a copy of this General
possible use to humanity, the best way to achieve this is to make it
free software which everyone can redistribute and change under these
terms.
To do so, attach the following notices to the program. It is safest to
attach them to the start of each source file to most effectively convey
the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19xx name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
view all matches for this distribution