Set of nested groups
use Set::NestedGroup; $acl = new Set::NestedGroup; $acl->add('user','group'); $acl->add('group','parentgroup'); $list=$acl->list(); for(my $i=0;$i<$list->rows();$i++){ my ($member,$group)=$list->next(); print "$member=$group\n"; }
Set::NestedGroup::Member objects are returns from a Set::NestedGroup object's list() method.
Returns the number of rows this has. May be used to construct a loop to extract all the data.
Returns a list comprising of the next member & group. Returns undef when the list is exhausted.
Alan R. Barclay, [email protected]
perl\|(1), Set::NestedGroup