view release on metacpan or  search on metacpan

please.pm  view on Meta::CPAN

$VERSION = '0.01';

$PLEASE = ' please';
$PCTG = 25;

sub TIESCALAR{
	shift; #Package
	my %P = (please => $PLEASE, pctg => $PCTG, @_);

	bless \%P;
};

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

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