[system] / trunk / xmlrpc / modules / My / PingPong.pm Repository:
ViewVC logotype

View of /trunk/xmlrpc/modules/My/PingPong.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 279 - (download) (as text) (annotate)
Fri May 17 21:44:04 2002 UTC (17 years, 3 months ago) by gage
File size: 232 byte(s)
Experimental xmlrpc WeBWorK webservices

    1 package My::PingPong;
    2 
    3 sub new {
    4   my $self = shift;
    5   my $class = ref($self) || $self;
    6   bless {_num=>shift} => $class;
    7 }
    8 
    9 sub next {
   10   my $self = shift;
   11   $self->{_num}++;
   12 }
   13 
   14 sub value {
   15   my $self = shift;
   16   $self->{_num};
   17 }
   18 
   19 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9