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

Annotation of /trunk/xmlrpc/modules/My/PersistentIterator.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 279 - (view) (download) (as text)

1 : gage 279 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