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