Perl Tidy: Huh?

jk2addict on 2008-01-11T04:43:22

I confess, I like ending all ifs/elses/subs with a semicolon:

if (...) {

};

sub foo {
    if (...) {

    };
};

I'm trying perltidy...again, and quickly I start banging my head. When I add -ndsm to my rc, I get this:

if (...) {

}
;

sub foo {
    if (...) {

    }
    ;
};

My current rc is:

-l=78
-i=4
-ci=4
-bar
-ce
-nsbl
-sot
-sct
-pt=2
-sbt=2
-bt=2
-bbt=2
-nsfs
-asc
-ndsm

I'm sure there's no way to get what I want on this either:

    $foo->bar(
        $self->this($that, $other)
    );

When using object->method as method params, I like the indent, otherwise, just put the params on the same line in ().

    $foo->bar($this, $that);

How do I beat perltidy into submission?