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]
www.com | www.net | www.org
No recent polls found