use Filter::ObfuMethods;

my $code = <<'CODE';
sub foo { print "in foo\n" }
sub bar { print "in bar\n" }

main->foo;
main -> bar();

my $o = bless [];

$o->foo();
$o -> bar;
CODE

print filter($code);

eval filter($code);

warn "ack - $@" if $@;

__output__

sub foo { print "in foo\n" }
sub bar { print "in bar\n" }

main->${\$Filter::ObfuMethods::methods{"luu"}};
main -> ${\$Filter::ObfuMethods::methods{"hgx"}}();

my $o = bless [];

$o->${\$Filter::ObfuMethods::methods{"luu"}}();
$o -> ${\$Filter::ObfuMethods::methods{"hgx"}};
in foo
in bar
in foo
in bar