view release on metacpan or  search on metacpan

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

package My::SessionIterator;

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

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

1;