package Group;
use strict;
use warnings;

use Person;

sub new {
    my $proto = shift;
    my $class = ref( $proto ) || $proto;

    my $self = {
        'group_id' =>  0,
        'name'     => '',

        '_members' => [],
    };
    bless( $self, $class );

    return $self;
}

sub get_members {
    my $self = shift;

    my $members = $dbh->selectcol_arrayref('SELECT person_id FROM group_member WHERE group_id = ' . $self->id());
    foreach my $person_id ( @{$members} ) {
        push( @members, Person->new($person_id) );
    }

    return \@members;
}

1;