| Class-PObject documentation | Contained in the Class-PObject distribution. |
Class::PObject::Iterator - Incremental object loader for Class::PObject
use Class::PObject::Iterator;
my $iter = new Class::PObject::Iterator($class, \@ids);
while ( my $obj = $iter->fetch ) {
...
}
Class::PObject::Iterator is a stand-alone iterator class initially used
by Class::PObject when you call fetch() method
on a pobject.
new($class, \@ids)Constructor method. Accepts two arguments - name of the class, and list of ids.
Returns Class::PObject::Iterator object. You normally never will have to call new()
yourself, because when you call fetch() method on your $pobject it will return pre-initialized
iterator object.
next()When called on an iterator object, it will return the next object from the stack. Remember, it will not return the object id, but it will return fully initialized pobject.
size()Returns size of the current stack. This number decrements by one each time next() is called,
to reflect how many more elements are left in the data set.
reset()Resets the internal data set pointer to the beginning of the data set. This means, no matter
how far you have been into the stack, after you call reset(), the next time you call
next() method, it will return the object from the beginning of the stack.
push($idx)Pushes a new object id to the end of the current stack.
finish()Clears up the stack and other related data from the object. finish() will be called for you
automatically once the iterator object exits the scope. You normally will not need to call this
method, for iterator object clears up all the remaining stack before it exits its scope. However,
this method may be handy if you are planning to push() more data sets to the iterator object
and want to start from clean data set:
$iterator->finish();
for ( @inx ) {
$iterator->push($_)
}
For author and copyright information refer to Class::PObject's online manual.
| Class-PObject documentation | Contained in the Class-PObject distribution. |
package Class::PObject::Iterator; # Iterator.pm,v 1.8 2005/01/26 19:21:58 sherzodr Exp use strict; #use diagnostics; use Carp 'croak'; use vars ('$VERSION'); $VERSION = '1.01'; sub new { my $class = shift; $class = ref($class) || $class; my $self = { pobject => $_[0], data_set => $_[1], next_ptr=> 0, last_ptr => scalar(@{$_[1]})-1 }; bless $self, $class; } sub DESTROY { } sub next { my $self = shift; my $next_id = $self->{data_set}->[ $self->{next_ptr}++ ]; return unless defined $next_id; return $self->{pobject}->load($next_id) } sub size { my $self = shift; return $self->{last_ptr} - $self->{next_ptr} + 1 } sub reset { my $self = shift; $self->{next_ptr} = 0; $self->{last_ptr} = scalar( @{ $self->{data_set} } ) - 1 } sub push { my $self = shift; unless ( @_ ) { croak "push() usage error" } push @{$self->{data_set}}, $_[0]; $self->{last_ptr}++ } sub finish { my $self = shift; $self->{data_set} = [] } sub dump { my $self = shift; require Data::Dumper; my $d = new Data::Dumper([$self], [ref $self]); return $d->Dump } 1; __END__