sub list {
    my $self = shift @_;
    my $key  = shift @_;
    my $aref = $self->{$key};

    return wantarray ? @$aref : $aref;
}