throw results from the CPAN

lib/Acme/Dice.pm view on Meta::CPAN


=item dice

This is an integer specifying the number of dice to roll. Default: 1

An exception will be thrown if it is less than 1 or greater than 100.

=item sides

This is an integer specifying how many sides are on the dice to be rolled.
Default: 6

An exception will be thrown if it is less than 1. (Huh? A 1-sided die?
Nothing is impossible for Acme!)

=item favor

This integer specifies which number (if any) should be favored  and must be

lib/Acme/Dice.pm view on Meta::CPAN

place on the favored side. A value of C<20> says to increase the chance of
rolling the favored number by 20%. A value of C<100> would mean to always
roll the favored number. A value of 0 will disable favoring completely,
even if a value for C<favor> is given. Default: 0

An exception will be thrown if the value is less than 0 or greater than 100.

=back

=head2 roll_craps

lib/Acme/Dice.pm view on Meta::CPAN


It will only accept a single, optional parameter: C<bias>

The C<bias> parameter behaves the same as described above for C<roll_dice>.
Any other parameters, including those that are otherwise legal for
C<roll_dice>, will cause an exception to be thrown.

The default is an un-biased roll of two 6-sided dice.

=head1 BUGS

view all matches for this distribution

Acme-DoOrDie

1 match

lib/Acme/DoOrDie.pm view on Meta::CPAN


(The L<autodie> module can't help you since it doesn't support the
C<do> function.)

This module provides the replacement function C<do_or_die> that reports
any error by throwing an exception.  The same function is also available
under the alias C<do> (not exported by default).

=head1 EXPORTS

=over

view all matches for this distribution

Acme-Evil

1 match

lib/evil.pm view on Meta::CPAN

=item no B<evil> ':intermediate'

The calling module cannot function properly if it is using evil code,
whether directly or indirectly. Throws an exception if an evil module
is subsequently loaded by the calling module or by one of the children
modules (or by one of their children modules, etc). Also throws an
exception if the current module is evil.

=item no B<evil> ':lax';

The calling module cannot function properly if it is using evil code

view all matches for this distribution

Acme-EyeDrops

2 results

Changes view on Meta::CPAN

1.51	Sun September 11 23:17:33 2005

	- new shape: adrianh
	- minor enhancements to demo/findshapes.pl
	- tests: improved property tests in 13_to.t
	- tests: added InformHandler throw test to 07_a.t
	- minor code improvements

1.52	Sun February 3 20:12:42 2008

	- Bug fix release for Perl 5.10.0

view all matches for this distribution

Acme-FizzBuzz

1 match

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

Acme-Given-Hash

1 match

lib/Acme/Given/Hash.pm view on Meta::CPAN


  local $_ = $key; # allow match subs to just use $_;
  foreach my $pair (@{ $self->{calculate} } ) {

    my $match;
    # 'string' ~~ [1..10] throws a warning, this disables this just for the check
    { no warnings qw{numeric};
      # in the case of a sub as a key capture the return value
      $match = ref($pair->{match}) eq 'CODE'
             ? $pair->{match}->($key)
             : $key ~~ $pair->{match}

view all matches for this distribution

Acme-Godot

1 match

t/00_load.t view on Meta::CPAN

use warnings;
use Test::More tests => 2;
use Test::Exception;

local $SIG{INT} = local $SIG{HUP} = sub { die "User got bored\n" };
throws_ok(
    sub {
        local $SIG{ALRM} = sub { die "Waiting no more\n" };
        alarm 5;
        require Acme::Godot;
        alarm 0;

view all matches for this distribution

Acme-Greeting

1 match

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

Acme-Hidek

1 match

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

Acme-Insult-Pirate

2 results

lib/Acme/Insult/Pirate.pm view on Meta::CPAN


=over

=item C<insult>

The line ye best be throwin' at a scallywag.

=back

=head1 LICENSE & LEGAL

lib/Acme/Insult/Pirate.pm view on Meta::CPAN

I'm inflicting this upon the world because L<oodler577|https://github.com/oodler577/> invited me to help expand Perl's
coverage of smaller open APIs. Blame them or L<join us|https://github.com/oodler577/FreePublicPerlAPIs> in the effort.

=begin stopwords

containin' followin' throwin'

=end stopwords

=cut

view all matches for this distribution

Acme-Intraweb

1 match

lib/Acme/Intraweb.pm view on Meta::CPAN



=head1 DESCRIPTION

Acme::Intraweb allows you to use modules not yet installed on your
system. Rather than throw annoying errors about "Could not locate
package Foo::Bar in @INC", Acme::Intraweb will just go to your
closest CPAN mirror and try to install the module for you, so your
program can go on it's merry way.

=head1 USE

view all matches for this distribution

Acme-IsItJSON

1 match

lib/Acme/IsItJSON.pod view on Meta::CPAN

Ben Bullock <bkb@cpan.org>

=head1 LICENCE

You can use Acme::IsItJSON under the same terms as Perl
itself. Alternatively, you can throw it in the fruit cellar where it
belongs.

view all matches for this distribution

Acme-JWT

1 match

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

Acme-KeyboardMarathon

1 match

"It'll be because you was born to hang," laughed the saloon-keeper.
"Here, lend me a hand before you pull your freight," he added.

Dazed, suffering intolerable pain from throat and tongue, with the life
half throttled out of him, Buck attempted to face his tormentors. But he
was thrown down and choked repeatedly, till they succeeded in filing the
heavy brass collar from off his neck. Then the rope was removed, and he
was flung into a cagelike crate.

There he lay for the remainder of the weary night, nursing his wrath and
wounded pride. He could not understand what it all meant. What did they

which the huskies returned to the attack on the team. Billee, terrified
into bravery, sprang through the savage circle and fled away over the
ice. Pike and Dub followed on his heels, with the rest of the team
behind. As Buck drew himself together to spring after them, out of the
tail of his eye he saw Spitz rush upon him with the evident intention
of overthrowing him. Once off his feet and under that mass of huskies,
there was no hope for him. But he braced himself to the shock of Spitz's
charge, then joined the flight out on the lake.

Later, the nine team-dogs gathered together and sought shelter in the
forest. Though unpursued, they were in a sorry plight. There was not

moccasins to make four moccasins for Buck. This was a great relief, and
Buck caused even the weazened face of Perrault to twist itself into a
grin one morning, when Francois forgot the moccasins and Buck lay on his
back, his four feet waving appealingly in the air, and refused to budge
without them. Later his feet grew hard to the trail, and the worn-out
foot-gear was thrown away.

At the Pelly one morning, as they were harnessing up, Dolly, who had
never been conspicuous for anything, went suddenly mad. She announced
her condition by a long, heartbreaking wolf howl that sent every dog
bristling with fear, then sprang straight for Buck. He had never seen a


But when he was at last unearthed, and Spitz flew at him to punish him,
Buck flew, with equal rage, in between. So unexpected was it, and so
shrewdly managed, that Spitz was hurled backward and off his feet. Pike,
who had been trembling abjectly, took heart at this open mutiny,
and sprang upon his overthrown leader. Buck, to whom fair play was a
forgotten code, likewise sprang upon Spitz. But Francois, chuckling at
the incident while unswerving in the administration of justice, brought
his lash down upon Buck with all his might. This failed to drive Buck
from his prostrate rival, and the butt of the whip was brought into
play. Half-stunned by the blow, Buck was knocked backward and the lash

chorus of delight.

Buck did not cry out. He did not check himself, but drove in upon Spitz,
shoulder to shoulder, so hard that he missed the throat. They rolled
over and over in the powdery snow. Spitz gained his feet almost as
though he had not been overthrown, slashing Buck down the shoulder and
leaping clear. Twice his teeth clipped together, like the steel jaws of
a trap, as he backed away for better footing, with lean and lifting lips
that writhed and snarled.

In a flash Buck knew it. The time had come. It was to the death. As

enveloped Spitz in a whirlwind of rushes. Time and time again he tried
for the snow-white throat, where life bubbled near to the surface, and
each time and every time Spitz slashed him and got away. Then Buck took
to rushing, as though for the throat, when, suddenly drawing back his
head and curving in from the side, he would drive his shoulder at the
shoulder of Spitz, as a ram by which to overthrow him. But instead,
Buck's shoulder was slashed down each time as Spitz leaped lightly away.

Spitz was untouched, while Buck was streaming with blood and panting
hard. The fight was growing desperate. And all the while the silent and
wolfish circle waited to finish off whichever dog went down. As Buck


Buck remembered the man in the red sweater, and retreated slowly; nor
did he attempt to charge in when Sol-leks was once more brought
forward. But he circled just beyond the range of the club, snarling with
bitterness and rage; and while he circled he watched the club so as to
dodge it if thrown by Francois, for he was become wise in the way of
clubs. The driver went about his work, and he called to Buck when he was
ready to put him in his old place in front of Dave. Buck retreated two
or three steps. Francois followed him up, whereupon he again retreated.
After some time of this, Francois threw down the club, thinking that
Buck feared a thrashing. But Buck was in open revolt. He wanted, not to


"You've got a right smart load as it is," said one of them; "and it's
not me should tell you your business, but I wouldn't tote that tent
along if I was you."

"Undreamed of!" cried Mercedes, throwing up her hands in dainty dismay.
"However in the world could I manage without a tent?"

"It's springtime, and you won't get any more cold weather," the man
replied.

dishes,--who's going to wash them, anyway? Good Lord, do you think
you're travelling on a Pullman?"

And so it went, the inexorable elimination of the superfluous. Mercedes
cried when her clothes-bags were dumped on the ground and article
after article was thrown out. She cried in general, and she cried in
particular over each discarded thing. She clasped hands about knees,
rocking back and forth broken-heartedly. She averred she would not go
an inch, not for a dozen Charleses. She appealed to everybody and to
everything, finally wiping her eyes and proceeding to cast out even
articles of apparel that were imperative necessaries. And in her zeal,

the bar.

Those who were looking on heard what was neither bark nor yelp, but a
something which is best described as a roar, and they saw Buck's body
rise up in the air as he left the floor for Burton's throat. The man
saved his life by instinctively throwing out his arm, but was hurled
backward to the floor with Buck on top of him. Buck loosed his teeth
from the flesh of the arm and drove in again for the throat. This time
the man succeeded only in partly blocking, and his throat was torn open.
Then the crowd was upon Buck, and he was driven off; but while a surgeon
checked the bleeding, he prowled up and down, growling furiously,

force. He clutched its slippery top with both hands, releasing Buck, and
above the roar of the churning water shouted: "Go, Buck! Go!"

Buck could not hold his own, and swept on down-stream, struggling
desperately, but unable to win back. When he heard Thornton's command
repeated, he partly reared out of the water, throwing his head high, as
though for a last look, then turned obediently toward the bank. He swam
powerfully and was dragged ashore by Pete and Hans at the very point
where swimming ceased to be possible and destruction began.

They knew that the time a man could cling to a slippery rock in the face

view all matches for this distribution

Acme-Labs

1 match

lib/Acme/Labs.pm view on Meta::CPAN


#----------------------------------------------------------------------

open 0 or print "NARF?  What does that mean?!? '$0'\n" and exit;				# read our source code

(my $plan = join "", <0>) =~ s[(.*^\s*use\s+Acme::Labs\s*;)]["\n" x (split /\n/, $1)]mes;	# capture intro for preserving later on (and leave behind the same number of \n's so we don't throw off the line numbers)

do {eval brainier $plan or print STDERR $@; exit} if AYPWIP($plan);				# if we recognise a Pinky's Plan, apply to North Pole, I mean, Brain

open 0, ">$0" or print "Cannot get pinking shears! '$0'\n" and exit;			# Otherwise, prepare to pinkify!
print {0} $1, pinking $plan 													# write out reformulated plan

view all matches for this distribution

Acme-Lambda-Expr

1 match

t/02_curry.t view on Meta::CPAN

$f = curry $x - $y, 10, $x;
is $f->(6), 4;

$f = curry undefined_method => $x;

throws_ok{
	$f->($o);
} qr/Can't locate object method/;
throws_ok{
	$f->(undef);
} qr/Can't call method/;

view all matches for this distribution

Acme-Lexical-Thief

3 results

lib/Acme/Lexical/Thief.pm view on Meta::CPAN

      # ... but $foo won't exist in this block!
      ...
   }

If you attempt to steal a variable which does not exist, then a run-time
exception will be thrown.

=head1 WHY YOU SHOULD NOT USE THIS MODULE

When people declare lexical (C<my>) variables within a sub, they (quite
reasonably) expect these to stay local to the sub. If they rename those

view all matches for this distribution

Acme-Lingua-Strine-Perl

2 results

Perl.pm view on Meta::CPAN

  squib "AND LOWERCASE THIS ONE";
 
  my $yabber = "some scalar\n";
  suss $yabber; # same as 'study'

  sub throw_another_shrimp_on_the_barbie 
  {
	rack off "no worries, mate"; # return
  }

  nick off; # an we're out of here! == exit

view all matches for this distribution

Acme-List-CarCdr

1 match

lib/Acme/List/CarCdr.pm view on Meta::CPAN

appropriate depth. Should an invalid method name be specified (for
example, C<cat>) or if the method name is too long (704 characters,
again, being the maximum combination of C<a> or C<d> allowed, or 706
with the requisite prefix and suffix characters of C<c> and C<r>) or
should the supplied arguments be not deep enough for the number of C<a>
somewhere in the method name, this module will throw an exception.

For those not intimately familiar with lisp (or the IBM 704 hardware
instructions abducted by the said), moving from right to left, an C<a>
gets the first element of a supplied list (C<cat> of the list C<cat dog
fish>), and C<d> gets the remainder of the list (C<dog fish>). Repeated

view all matches for this distribution

Acme-Lou

1 match

author/en2kana.csv view on Meta::CPAN

thought,ã‚½ã‚¦ãƒˆ
thousand,ã‚µã‚¦ã‚¶ãƒ³ãƒ‰
three,ã‚¹ãƒªãƒ¼
throat,ã‚¹ãƒãƒ¼ãƒˆ
through,ã‚¹ãƒ«ãƒ¼
throw,ã‚¹ãƒãƒ¼
thumb,ã‚µãƒ 
thursday,ã‚µãƒ¼ã‚ºãƒ‡ãƒ¼
ticket,ãƒ†ã‚£ã‚±ãƒƒãƒˆ
tiger,ã‚¿ã‚¤ã‚¬ãƒ¼
tight,ã‚¿ã‚¤ãƒˆ

view all matches for this distribution

Acme-MITHALDU-XSGrabBag

1 match

inc/Inline/denter.pm view on Meta::CPAN

           level => 0,
           tabwidth => 8,
          }, $class;
}

# Prevent a taint exception being thrown by AutoLoader.pm.
# Serves no other purpose.
sub DESTROY {
}

sub undent {

view all matches for this distribution

Acme-MUDLike

1 match

lib/Acme/MUDLike.pm view on Meta::CPAN

					if ( status != "error" ) {
						// Cache Last-Modified header, if ifModified mode.
						var modRes;
						try {
							modRes = xml.getResponseHeader("Last-Modified");
						} catch(e) {} // swallow exception thrown by FF if header is not available
	
						if ( s.ifModified && modRes )
							jQuery.lastModified[s.url] = modRes;
	
						// process the data (runs the xml through httpData regardless of callback)

view all matches for this distribution

Acme-Mahjong-Rule-CC

2 results

lib/Acme/Mahjong/Rule/CC.pm view on Meta::CPAN


=head2 Note:

You can find the rest of the source code for mj_series with your distrobution.  
#!There must be exactly four arguments in dealer(), nondealer(),
and draw() otherwise, the function will throw an exception.

=head1 DESCRIPTION

This module provides functions that table the exchanges of a round of mahjong
based off of the given scores.  This module mainly applies to the Classic

view all matches for this distribution

Acme-Marvel-CinematicUniverse-Characters

1 match

lib/Acme/Marvel/CinematicUniverse/Character.pm.mite.pm view on Meta::CPAN

            local ( $?, $@ );
            eval { $demolisher->( $self, $in_global_destruction ) };
            $@;
        };
        no warnings 'misc'; # avoid (in cleanup) warnings
        die $e if $e;       # rethrow
    }
    return;
}

my $__XS = !$ENV{PERL_ONLY} && eval { require Class::XSAccessor; Class::XSAccessor->VERSION("1.19") };

view all matches for this distribution

Acme-Math-PerfectChristmasTree

1 match

t/01.calc_perfect_christmas_tree.t view on Meta::CPAN

    ok( sprintf( '%5.7f', $got{'star_or_fairy_height'} ) == 23.4560000 );
    ok( sprintf( '%5.7f', $got{'tinsel_length'} ) == 1197.4494558 );
    ok( sprintf( '%5.7f', $got{'lights_length'} ) == 736.8919728 );
};

throws_ok { calc_perfect_christmas_tree(0) }
    qr/Tree height must be a number greater than zero./,
    'Give zero to function.';

throws_ok { calc_perfect_christmas_tree(-1) }
    qr/Tree height must be a number greater than zero./,
    'Give nagative number to function';

done_testing();

view all matches for this distribution

Acme-MetaSyntactic-Themes-Abigail

1 match

lib/Acme/MetaSyntactic/kodokan.pm view on Meta::CPAN


=over 1

=item C<< nage_waza >>

The 67 recognized throwing techniques.

=item C<< nage_waza/dai_ikkyo >>

The 8 throwing techniques from the first group.

=item C<< nage_waza/dai_nikyo >>

The 8 throwing techniques from the second group.

=item C<< nage_waza/sankyo >>

The 8 throwing techniques from the third group.

=item C<< nage_waza/yonkyo >>

The 8 throwing techniques from the fourth group.

=item C<< nage_waza/gokyo >>

The 8 throwing techniques from the fifth group.

=item C<< nage_waza/habukareta_waza >>

8 preserved throwing techniques from the 1895 list.

=item C<< nage_waza/habukareta_waza >>

19 newly accepted throwing techniques.

=item C<< katame_waza >>

The 29 official grappling techniques.

view all matches for this distribution

Acme-MetaSyntactic-Themes

2 results

lib/Acme/MetaSyntactic/doctor_who.pm view on Meta::CPAN

Aukon Camilla Zargo Ivo Zoldaz vampires Rorvik Packard Aldo Biroc Sagan
Gundan Tharil Void Traken Melkur Tremas Kassia Keeper Seron Katura Luvic
Fosters Logopolis Monitor Pharos CVE Castrovalva zero_room Shardovan
Portreeve Urbankan Monarch Persuasion Enlightenment Lin_Futu Deva_Loka
Mara Dukkha Trickster terileptils great_fire Cranleigh black_orchid
Heathrow Concorde xeraphin Kalid Zarak plasmaton arc_of_infinity Manussa
Dojjen Dugdale Mawdryn Brendon Sigurd Bor Garm Terminus Olvir Marriner
Wrack Eternals Ranulf Estram raston_warrior_robot death_zone Solow
Ichtar Scibus Tarpok Sauvix seabase4 myrka Little_Hodcombe Malus
Frontios Plantagenet tractators Lytton Timanov Logar Sarn Trion
Androzani queen_bat Stotz Salateen spectrox Timmin Chellak Morgus

view all matches for this distribution

Acme-MetaSyntactic-nethack

1 match

lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN

crude_arrow
silver_arrow
bamboo_arrow
crossbow_bolt
dart
throwing_star
boomerang
# names objects/unknown/weapons/spears
spear
runed_spear
crude_spear
stout_spear
silver_spear
throwing_spear
trident
# names objects/unknown/weapons/blades
dagger
runed_dagger
crude_dagger

lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN

The_stairs_seem_to_ripple_momentarily
The_statue_comes_to_life
The_stone_giant_shouts__Fee_Fie_Foe_Foo___and_guffaws
The_water_around_you_begins_to_shimmer_with_a_golden_haze
The_webbing_sticks_to_you__You_re_caught_too
The_were_rat_throws_back_his_head_and_lets_out_a_blood_curdling_shriek
The_were_rat_whispers_inaudibly__All_you_can_make_out_is___moon__
Their_cries_sound_like__mommy_
There_is_a_boulder_in_your_way
There_is_a_box_here__Check_it_for_traps_
There_is_a_spider_web_here

lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN

You_hear_an_angry_drone
You_hear_bees_in_your_bonnet
You_hear_blades_being_honed
You_hear_bubbling_water
You_hear_convulsive_ravings
You_hear_dice_being_thrown
You_hear_dishes_being_washed
You_hear_loud_snoring
You_hear_mosquitoes
You_hear_snoring_snakes
You_hear_someone_bowling

view all matches for this distribution

Acme-MetaSyntactic-vim

1 match