package Cluster;

use strict;
use warnings;
use Moose::Role;
use namespace::autoclean;
use Group;

sub cluster {
    my($self) = @_;

    # cluster the members of this group, producing several
    # sub groups whose members may be clustered further
    my $sub_group1 = Group->new();
    my $sub_group2 = Group->new();

    return [$sub_group1, $sub_group2];
}

1;