Acme::Voodoo - Do bad stuff to your objects
use Acme::Voodoo; my $voodoo = Acme::Voodoo->new( 'CGI' ); print ref( $voodoo ); ## prints Acme::Voodoo::Doll_1 print $voodoo->header(); ## same as calling CGI::header() @pins = $voodoo->pins(); ## get a list of methods you can call $voodoo->zombie(); ## make our program sleep for a while ## the next time a method is called $voodoo->kill(); ## or make our program die the next ## time it is called
Voodoo is an Afro-Caribbean religion that mixed practices from the Fon, the Nago, the Ibos, Dahomeans, Congos, Senegalese, Haussars, Caplauous, Mondungues, Madinge, Angolese, Libyans, Ethiopians and the Malgaches. With a bit of Roman Catholicism thrown in for good measure. This melange was brought about by the enforced immigration of African slaves into Haiti during the period of European colonizaltion of Hispaniola. The colonists thought that a divided group of different tribes would be easier to enslave; but little did they know that the tribes had a common thread.
In reality the actual religion is called "Vodun", while "Voodoo" is a largely imaginary religion created by Hollywood movies. Vodun priests can be male (houngan) and female (mambo) and confine their activites to "white" magic. However caplatas (also known as bokors) do practice acts of evil sorcery, which is sometimes referred to "left-handed Vodun".
Acme::Voodoo is mostly "left handed" and somewhat "Hollywood-ish" but can bring a bit of spice to your programs. You can cast fairly simple spells on your program to make it hard to understand, or to make it die a horrible death. If you would like to add a spell please email me a patch. Or send it via astral-projection. Acme::Voodoo is essentially an experiment in symbol tables gone horribly wrong.
Creates a voodoo doll object. You must pass the namespace of your subject. If your subject isn't within spell distance (the class can't be found) an exception will be thrown. Otherwise you get back your doll, an Acme::Voodoo::Doll object.
use Acme::Voodoo; my $doll = Acme::Voodoo->new( 'CGI' ); print $doll->header();
Pass this function your voodoo doll and you'll get back a list of pins you can use on your doll.
my @pins = $doll->pins();
A method to turn your object into a zombie. The next method call on the object will cause your program to go into limbo for an unpredictable amount of time. When it wakes up, it will do what you asked it to do, and will feel fine from then on, having no memory of what happened. If you know how long you want your target to go to sleep for, pass the number of seconds in.
When you kill your doll the next time someone calls a method on it it will cause your program to die a horrible and painful death.
$doll->kill(); $doll->method(); ## arrrrrggggghhhh!!
Ed Summers, <firstname.lastname@example.org>
Copyright 2002 by Ed Summers
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Just be sure not to use it for anything important.