Sophie: perl-SOAP-Lite-1.270.0-1.mga7 noarch

perl-SOAP-Lite-1.270.0-1.mga7.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

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;