view release on metacpan or  search on metacpan

please.pm  view on Meta::CPAN

	bless \%P;
};

sub FETCH{
	rand(100) > $_[0]->{pctg} and return '';
	$_[0]->{please}
};

sub import{
	no strict 'refs';
	tie ${caller().'::please'}, shift, @_;
};

1;
__END__

=head1 NAME

Acme::please - intercal-compliant politesse

=head1 SYNOPSIS

please.pm  view on Meta::CPAN

C<please>, named in honor of the legendary "politesse" compilation requirement
of Intercal, is the string which will be returned when the random number is
not larger. The default value is C<' please'> and it is reccommended that
the practice of using a leading blank space be adhered to for readability,
following the examples above.

=head2 EXPORT

C<$please> is exported into caller's package through the mechanism of
tieing C<${caller().'::please'}>.  This can be suppressed by
using Acme::please with an empty list:

  use Acme::please ();	# if you don't need please in your package


=head1 HISTORY

=over 8

=item 0.01