1package My::PersistentIterator; 2 3my $iterator; 4 5sub new { 6 my $self = shift; 7 my $class = ref($self) || $self; 8 $iterator ||= (bless {_num=>shift} => $class); 9} 10 11sub next { 12 my $self = shift; 13 $self->{_num}++; 14} 15 161;