view release on metacpan or  search on metacpan

examples/My/PersistentIterator.pm  view on Meta::CPAN

package My::PersistentIterator;

my $iterator;

sub new {
  my $self = shift;
  my $class = ref($self) || $self;
  $iterator ||= (bless {_num=>shift} => $class);
}

sub next {
  my $self = shift;
  $self->{_num}++;
}

1;