Hmm, in that case you might be constrained by your design, but it is still possible like this:

package Foo;
sub filter 
{
    . . . 
}

package Bar;

my $obj = Baz->new( \&Foo::filter );
[download]

Admittedly, this could get hackish fast.