sub bar {
    my $self = shift;
    my %options = (opt1=>'foo', # desc for opt1
                   opt2=>'bar', # desc for opt2
                   @_);
}