view release on metacpan or  search on metacpan

Playwright.pm  view on Meta::CPAN

@Names = keys %Names;

@Actions = (
    'writes a poem',                            'enters from stage left',
    "peers over Michael's shoulder",            'laughs',
    'screams in pain',                          'opens a book',
    'sits at the table',                        'crosses stage right',
    'looks under the chair',                    'straightens the table cloth',
    'opens the window',                         'looks around in confusion',
    'starts singing quietly',                   'closes the window',
    'cries',                                    'enters from stage right',
    'crosses stage left',                       'picks up the book',
    'breaks the mirror',                        'kicks the table',
    'gazes longingly at Pietro',                'dances a merry jig',
    'thinks happy thoughts',                    'falls to the floor',
    'tries to think of something funny to say', 'yearns for the good old days',
    'turns on the radio',                       'turns off the radio',
    'turns on the television',                  'turns off the television',
    'selects a book from the bookshelf',        'concentrates',
    'burps',                                    'clucks like a chicken',
    'motions toward the door',                  'plops down on the sofa',
    'looks around suspiciously',                'beings folding laundry',
    'takes a pan of brownies from the oven',    'thinks of the color blue',
    "pours vinegar in Karen's shoes",           'eats a pickle',
    'disrobes',                                 'dances about like a loon',
    'flits about like a fawn in springtime',    'does an impression of Charlie Chaplin',
    'takes a ham from the oven',                'begins plucking a chicken',
    'tries to hide under the rug',              'removes the cushions from the sofa',
    'opens the pantry',                         'climbs in the pantry',
    'crawls under the sink',                    'closes the pantry',
    'fixes a turkey sandwich',                  'starts making pancakes'
);

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    return $self;
}

sub RandomElement {
    shift if UNIVERSAL::isa( $_[ 0 ], __PACKAGE__ );

README  view on Meta::CPAN

Acme/Playwright version 0.02
============================

This module provides simple text obfuscation in the form of a 
nonsense play. This really is more for the comedy value than 
anything else. I started with the idea of doing a serious
steganography module, then decided this was too funny to pass up.
Version 0.02 is the first public release.

INSTALLATION

To install this module type the following:

   perl Makefile.PL
   make
   make test