The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Tie_FlipFlop-1.1
++
/ Tie::FlipFlop

NAME

Tie::FlipFlop - Alternate between two values.

SYNOPSIS

    use Tie::FlipFlop;

    tie my $flipflop => Tie::FlipFlop => qw /Red Green/;

    print  $flipflop;      # Prints 'Red'.
    print  $flipflop;      # Prints 'Green'.
    print  $flipflop;      # Prints 'Red'.

DESCRIPTION

Tie::FlipFlop allows you to tie a scalar in such a way that refering to the scalar alternates between two values. When tying the scalar, exactly two extra arguments have to be given, the values to be alternated between.

Assigning to the scalar leads to a fatal, but trappable, error.

REVISION HISTORY

    $Log: FlipFlop.pm,v $
    Revision 1.1  1999/07/19 22:07:22  abigail
    Initial revision

AUTHOR

This package was written by Abigail.

COPYRIGHT and LICENSE

This package is copyright 1999 by Abigail.

This program is free and open software. You may use, copy, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others to do the same.