sub get_list {
    my $self = shift;
    my $param = shift;
    print STDERR "param: $param\n";
    my %lists = (
        maxhits => ['10', '20', '30', '40', '50'],
        threshold => ['100', '10', '1.0', '0.1', '0.01],
        term_context => ['parents', 'sibling'],
#        qual => $self->get_qual_list,
    );

    return $lists{$param};
}
[download]