sub get_list {
    my ($self, @capwords) = @_;
    my $items = $self->{items};
    my @list = ();
    return @list unless $items;
    foreach my $item (@{$items}) {
	push @list, $item if ($item->is(@capwords));
    }
    return @list;
}