ru_perl [jamhed]

package Iterator;
# this allows "value: $i" syntax // kind of blackjack
use overload
	q("") => sub { $_[0]->{value} },
	q(0+) => sub { $_[0]->{value} },
	fallback => 1;

sub new {
	my ($class, $iter) = @_;
	local *IT;
	my $self = {
		iter	=> $iter,
		value	=> undef,
		empty	=> 0,
	};
# this allows <$i> syntax
	tie *IT, $class, $self;
	my $bless = bless($self, $class);
# this allows $$i->kick() syntax // blackjack!
	*IT = \$bless;						
# this allows $i->() syntax // more blackjack!
	*IT = sub { $self->kick };		
	return *IT;						
}

sub TIEHANDLE {
	my ($class, $iter) = @_;
	bless($iter, $class);	
}

sub value		{ shift->{value} }
sub empty		{ shift->{empty} }
sub READLINE	{ shift->kick }

sub kick {
	my ($self) = @_;
# even more blackjack and hookers!
	local $_ = $self;
	$self->{value} = $self->{iter}->();
}

1;