view release on metacpan or  search on metacpan

lib/XMLRPC/Test.pm  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
$TIMEOUT = 5;
 
# ======================================================================
 
package My::PingPong; # we'll use this package in our tests
 
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};