use strict;

my $code = do {local $/;<DATA>};
$code =~ s/(\w)\.(\w)/$1->$2/g;
$code =~ s/(?<!\w)_(?!\w)/./g;
eval $code;
die $@ if $@;

__DATA__
my $foo = Foo.new();
$foo.foo('foo');
$foo.bar('bar');
$foo.baz('baz');

print $foo.foo _ "\n" _ $foo.bar _ "\n" _ $foo.baz _ "\n";

package Foo;
use Class::MethodMaker
new     => 'new',
get_set => [ qw /foo bar baz / ];