NAME

       List::Rotation::Cycle - Cycle through a list of values via a singleton object implemented
       as closure.

SYNOPSIS

           use List::Rotation::Cycle;

           my @array = qw( A B C );

           my $first_cycle  = List::Rotation::Cycle->new(@array);
           my $second_cycle = List::Rotation::Cycle->new(@array);

           print $first_cycle->next;  ## prints A
           print $second_cycle->next; ## prints B
           print $first_cycle->next;  ## prints C
           print $second_cycle->next; ## prints A, looping back to beginning

DESCRIPTION

       Use "List::Rotation::Cycle" to loop through a list of values.  Once you get to the end of
       the list, you go back to the beginning.

       "List::Rotation::Cycle" is implemented as a Singleton Pattern. You always just get 1 (the
       very same) Cycle object even if you use the new method several times.  This is done by
       using "Memoize" on the "new" method. It returns the same object for every use of "new"
       that comes with the same List of parameters.

OBJECT METHODS

       new Create a Cycle object for the list of values in the list.

       next
           Return the next element.  This method is implemented as a closure.

AUTHOR

       Imre Saling, "<pelagicatcpandotorg>"

COPYRIGHT and LICENSE

       Copyright 2000-2004, Imre Saling, All rights reserved.

       This software is available under the same terms as perl.