Upgrade to Attribute::Handlers 0.70.

[p5sagit/p5-mst-13.2.git] / lib / Attribute / Handlers / demo / demo_cycle.pl

use Attribute::Handlers autotie => { Cycle => Tie::Cycle };

my $next : Cycle(['A'..'Z']);

print tied $next, "\n";

while (<>) {
        print $next, "\n";
}