[FWP] Mortal::Kombat

[Jeff Pinyan <jeffp@crusoe.net>]

package Mortal::Kombat;

use strict;
use vars qw( $VERSION @ISA @EXPORT_OK );

require Exporter;

@ISA = qw( Exporter );
@EXPORT_OK = qw(
	flawless victory
	fatality
);
$VERSION = '0.01';


sub flawless (;$) { exit shift }

sub victory () { 0 }

sub fatality (@) { die @_ }


1;

=head1 NAME

Mortal::Kombat - MK-like functions for exit() and die()

=head1 SYNOPSIS

  use Mortal::Kombat qw( flawless victory );
  # ...
  # exit successfully
  flawless victory;

  use Mortal::Kombat qw( fatality );
  $screwedup and fatality "Scorpion has whomped you,";

=head1 DESCRIPTION

This is a gimmick module.  It merely gives you three functions, flawless(),
victory(), and fatality(), each of which can be used without parentheses for
a nice english look.

The suggested uses are:

  flawless victory;  # same as 'exit 0'

and

  fatality "some error message";  # same as die "some error message";

That's it.  If you've got any suggestions, you can email me.  Don't be
ashamed. C<:)>

=head1 AUTHOR

Jeff Pinyan, japhy@pobox.com, CPAN ID: PINYAN

=cut


-- 
jeff pinyan    japhy@pobox.com
perl stuff     japhy+perl@pobox.com
CPAN ID: PINYAN            http://www.perl.com/CPAN/authors/id/P/PI/PINYAN


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe