The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

IChing::Hexagram::Illuminatus - An IChing hexagram

SYNOPSIS

  use IChing::Hexagram::Illuminatus;

  my $hex = IChing::Hexagram::Illuminatus->new;

  my $hex = IChing::Hexagram::Illuminatus->new(
                { political      => 'http://policital.site.com',
                  economic       => 'http://economic.ste.com',
                  meterological  => 'http://meterological.ste.com',
                  astrological   => 'http://astrological.ste.com',
                  astronomical   => 'http://astronomical.ste.com',
                  technological  => 'http://technoloigical.ste.com',
                }
  );

  my $political_reference     = $hex->political;
  my $economic_reference      = $hex->economic;
  my $meterological_reference = $hex->meterological;
  my $astrological_reference  = $hex->astrological;
  my $astronomical_reference  = $hex->astronomical;
  my $technological_reference = $hex->technological;

  my $reading = $hex->throw;

DESCRIPTION

While reading the Illuminatus! Trilogy, there is a machine called FUCKUP, which stands for First Universal Cybernetic-Kinetic-Ultramicro-Programmer. And Hagbard Celine uses this to generate an IChing hexagram.

This modules attempts to do the same thing.

So what is an IChing hexagram then?

Honestly? I have no idea.

Alright then, how is it described in the book?

Glad you asked.

This will read a random open circuit as a broken (yin) line, then read a random closed circuit as a full (yang) line, until six such lines are round, then simulate an IChing hexagram being thrown.

This is fed into the IChing interpretation engine, and cross checked with the current day's political, economic, meterological, astrological, astronomical and technological news.

At the end of all this, you have a pseudo scientific/crackpot prediciton of the future.

So I get my fortune told. Is that it?

Not only your fortune, but a broad sweep of What Is To Come.

OK, I admit it. What a pile of old trousers. But I like the books, and this is part of my homage to them.

METHODS

new

  my $hex = IChing::Hexagram::Illuminatus->new;

  my $hex = IChing::Hexagram::Illuminatus->new(
                { political      => 'http://policital.site.com',
                  economic       => 'http://economic.ste.com',
                  meterological  => 'http://meterological.ste.com',
                  astrological   => 'http://astrological.ste.com',
                  astronomical   => 'http://astronomical.ste.com',
                  technological  => 'http://technoloigical.ste.com',
                }
  );

This will make a new IChing::Hexagram::Illuminatus object. All the values passed in with the hashref are optional. If nothing is passed in, defaults are used as defined by me.

throw

  my $reading = $hex->throw;

This will get you the hexagram. It is a string, on three lines, with a digit on each line, either a one or a zero. The one represents an unbroken yin line, while a zero gives the broken yang line.

For example,

0 -- -- 1 would be read as _____ 1 _____

But as well as the hexagram, it gets you the news from various sources.

From these two things, if you are skilled, and Know The Way, then you can interpret these and discover what is going on in the world.

political

  my $political_reference = $hex->political;

This will return the site from which the political information if gathered.

meterological

  my $meterological_reference = $hex->meterological;

This will return the site from which the meterological information if gathered.

economic

  my $economic_reference = $hex->economic;

This will return the site from which the economic information if gathered.

astrological

  my $mastrological_reference = $hex->astrological;

This will return the site from which the astrological information if gathered.

astronomical

  my $mastronomical_reference = $hex->astronomical;

This will return the site from which the astronomical information if gathered.

technologcal

  my $technological_reference = $hex->technological;

This will return the site from which the technological information if gathered.

TODO

o Perhaps include some interpretation engine? Which takes the hexagram and the headlines and predicts the future? o Stop thinking about this module

SHOWING YOUR APPRECIATION

There was a thread on london.pm mailing list about working in a vacumn - that it was a bit depressing to keep writing modules but never get any feedback. So, if you use and like this module then please send me an email and make my day.

All it takes is a few little bytes.

(Leon wrote that, not me!)

AUTHOR

Stray Toaster <coder@stray-toaster.co.uk>

With Thanks

  o Robert Shea and Robert Anton Wilson for giving me both the Illuminatus!
    and the Schrodinger Cat books!

COPYRIGHT

Copyright (C) 2002, mwk

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.

SANITY CLAUSE

Ain't you heard? There is no Sanity Clause. Surely that is obvious?!

So why doesn't this live in the ACME:: namespace?

A good, and very valid, question.

Perhaps I have taken this all a bit lightly, but I am sure that there are those who think their lives should be lived by what the IChing readings tell them. And far be it for me to make a mockery of their beliefs, as I am sure some of mine are just as wacky in their eyes.

So, in the interest of community relations, I have decided to pollute the top level namespace. As, indeed, someone might want to (upon being inspired and spurred by this module) create an IChing::Hexagram::Real or something.