1#@!#!123s

: / kunden / proc / self / root / usr / share / doc / libsoap-lite-perl / examples / My /

Filename : PingPong.pm

back

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;