[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";
}
Commit	Line	Data
04070b92	1	use Attribute::Handlers autotie => { Cycle => Tie::Cycle };
	2
	3	my $next : Cycle(['A'..'Z']);
	4
	5	print tied $next, "\n";
	6
	7	while (<>) {
	8	print $next, "\n";
	9	}