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

View of /trunk/xmlrpc/modules/My/PersistentIterator.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, 6 months ago) by gage
File size: 221 byte(s)
Experimental xmlrpc WeBWorK webservices

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9