NAME

Set::Groups - A set of groups.

SYNOPSIS

use Set::Groups ;

# create a set of groups
$groups = new Set::Groups ;

# create a group MyGroup with a single member
$groups->addSingleTo("single1","MyGroup") ;

# add 2 singles members into MyGroup
$groups->addSinglesTo(["single2","single3"],"MyGroup") ;

# add a group member into MyGroup
$groups->addGroupTo("Member1Group","MyGroup") ; 

# add 2 group members into MyGroup
$groups->addGroupsTo(["Member2Group","Member3Group"],"MyGroup") ; 

# add a single members into the previous member groups
$groups->addSingleTo("single4","Member1Group") ;
$groups->addSingleTo("single5","Member2Group") ;
$groups->addSingleTo("single6","Member3Group") ;

# flatten the group MyGroup
@singles = $groups->getSinglesOf("MyGroup") ;  
$present = $groups->isSingleOf("single4","MyGroup") ;

DESCRIPTION

The Groups object implements a set of groups. Each group can own single members and group members. A group can be flattened, i.e. expansed until each of his members is a single one.

CONSTRUCTORS

new

Create a new group set.

my $groups = new Set::Groups

INSTANCE METHODS

setDebug

Set a debug level.

$groups->setDebug(1) ;

Set management

newGroup

Create a new empty group and add it into the set. A group is everything which can be a key of a hash. Returns 1 on success, 0 otherwise.

$groups->newGroup("a_group") ;
$groups->newGroup(1) ;

deleteGroup

Delete a group from the set. Return 1 on success, 0 otherwise.

$groups->deleteGroup("a_group") ;

getGroups

Return the list of the groups present into the set.

@groups = $groups->getGroups() ;

getCyclicGroups

Return the list of the cyclic groups (i.e. self-contained) present into the set.

@groups = $groups->getGroups() ;

getAcyclicGroups

Return the list of the acyclic groups (i.e. not self-contained) present into the set.

@groups = $groups->getGroups() ;

hasGroup

Check if a group is present into the set.

$present = $groups->hasGroup("a_group") ;

Groups management

addSingleTo

Add a single member to a group. A single is everything which can be a key of a hash. If the group doesn't exist in the set, it is created. Return 1 on success, 0 otherwise.

$groups->addSingleTo("single","a_group") ;

addGroupTo

Add a group member to a group. If the embedding group doesn't exist in the set, it is created. If the member group doesn't exist in the set, it is created as an empty group. Return 1 on success, 0 otherwise.

$groups->addGroupTo("group_member","a_group") ;

removeOwnSingleFrom

Remove an own single from a group. Return 1 on success, 0 otherwise.

$groups->removeSingleFrom("single","a_group") ;

removeGroupFrom

Remove a group member from a group. Return 1 on success, 0 otherwise.

$groups->removeGroupFrom("a_member_group","a_group") ;

isAcyclic

Check if a group is acyclic.

$is_acyclic = $groups->isAcyclic("a_group") ;

isOwnSingleOf

Check if a single is an own member of a group.

$present = $groups->isOwnSingleOf("single","a_group") ;

isGroupOf

Check if a group is member of a group.

$present = $groups->isGroupOf("a_group_member","a_group") ;

isSingleOf

Check if a single is a (own or not) member of a group.

$present = $groups->isSingleOf("single","an_acyclic_group") ;

Warning - Calling this method wich a cyclic group as argument gives a infinite recursion.

getOwnSinglesOf

Return the list of own singles of a group.

@singles = $groups->getOwnSinglesOf("a_group") ;

getGroupsOf

Return the list of groups of a group.

@groups = $groups->getGroupsOf("a_group") ;

getSinglesOf

Return the list of (own or not) singles of an acyclic group.

@singles = $groups->getSinglesOf("an_acyclic_group") ;