Acme::MetaSyntactic::List - Base class for simple lists of names
package Acme::MetaSyntactic::beatles; use Acme::MetaSyntactic::List; our @ISA = ( Acme::MetaSyntactic::List ); __PACKAGE__->init(); 1; =head1 NAME Acme::MetaSyntactic::beatles - The fab four theme =head1 DESCRIPTION Ladies and gentlemen, I<The Beatles>. I<(hysteric cries)> =cut __DATA__ # names john paul george ringo
Acme::MetaSyntactic::List is the base class for all themes that are meant to return a random excerpt from a predefined list.
Acme::MetaSyntactic::List offers several methods, so that the subclasses are easy to write (see full example in SYNOPSIS):
The constructor of a single instance. An instance will not repeat items until the list is exhausted.
init() must be called when the subclass is loaded, so as to read the __DATA__ section and fully initialise it.
- name( $count )
Return $count names (default:
0will return the whole list in list context, and the size of the list in scalar context.
Return the theme name.
Philippe 'BooK' Bruhat,
Copyright 2005 Philippe 'BooK' Bruhat, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.