Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Fedora > 14 > x86_64 > media > updates > by-pkgid > 89ac94853940f2452255cb742ad329ae > files > 38

perl-SOAP-Lite-0.712-5.fc14.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;