(jeffa) 4Re: Anyone use "xor" in conditionals?

Check out Tie::Toggle:

use Tie::Toggle;

tie my $toggle, 'Tie::Toggle';
my @color = qw(black white);

print "$color[$toggle]\n" for 1..10;
[download]

Using more than one color? Tie::Cycle

use Tie::Cycle;

tie my $color, 'Tie::Cycle', [qw(red white blue)];
print "$color\n" for 1..10;
[download]

Combine that with Color::Spectrum:

use Tie::Cycle;
use Color::Spectrum qw(generate);

tie my $color, 'Tie::Cycle', [generate(4,'#ff00ff','#00ff00')];
print "$color\n" for 1..10;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) 4Re: Anyone use "xor" in conditionals? Select or Download Code

Replies are listed 'Best First'.
Re: Anyone use "xor" in conditionals? by Abigail-II (Bishop) on Jul 14, 2003 at 14:23 UTC
Or `Tie::FlipFlop`: `use Tie::FlipFlop; tie my $flipflop => 'Tie::FlipFlop', qw /black white/; print $flipflop; # black print $flipflop; # white print $flipflop; # black print $flipflop; # white` [download] Abigail	[reply] [d/l]