Sophie

Sophie

distrib > Fedora > 13 > x86_64 > by-pkgid > 1ae5cb58e1365c927d51e61ff8ac47fb > files > 100

perl-SOAP-Lite-0.710.10-1.fc13.noarch.rpm

package My::PingPong;

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

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

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

1;