view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use Filter::Util::Call;
use vars qw($VERSION $iq_kenny);

$VERSION = "1.01";
$iq_kenny = 0;

sub KennyIt {
   ($_)=@_;my($p,$f);$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(
   sub{$_[0]*9+$_[1]*3+$_[2] }->(map {/p|f/i+/f/i}split//,$&)+97):('m','p','f')
   [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);