view release on metacpan or  search on metacpan

lib/Acme/Filter/Kenny.pm  view on Meta::CPAN

   [map{((ord$&)%32-1)/$_%3}(9, 3,1)]),5,1)='`'lt$&;$f.eig;return ($_);
};

sub import {
	my ($type, @params) = @_;
	my ($ref) = [];

	if (grep {/^:iq_kenny$/} @params) {
		$iq_kenny = 1;
	}
	filter_add (bless $ref);
}

sub filter {
	my $self = (@_);
	my ($status);
	if (($status = filter_read ()) > 0) {
		if ($iq_kenny == 0 ||
		    m/^[^a-z]*[mfp]{3}(?:[^a-z]|[mfp]{3})+$/i) {
			KennyIt ($_);
		}