view release on metacpan or  search on metacpan

Playwright.pm  view on Meta::CPAN

    '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__ );
    my $arrayref = shift;
    $arrayref->[ rand @{ $arrayref } ];
}

sub StageDirections {