Help for this page

Select Code to Download


  1. or download this
    use Tie::FlipFlop;
tie my $flipflop => Tie::FlipFlop => ( 'white', 'black' );
...
print qq|$flipflop\n|;
print qq|$flipflop\n|;
print qq|$flipflop\n|;
  2. or download this
    black
black
black
black
  3. or download this
    use Tie::FlipFlop;
tie my $flipflop => Tie::FlipFlop => ( 'white', 'black' );
...
print $flipflop, qq|\n|;
print $flipflop, qq|\n|;
print $flipflop, qq|\n|;
  4. or download this
    white
black
white
black