XMLRPC-Lite
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/XMLRPC/Test.pm view on Meta::CPAN
$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};
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.747 second using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )