Sophie: perl-SOAP-Lite-0.712-4.fc13 noarch

perl-SOAP-Lite-0.712-4.fc13.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

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;