{
    package Foo;
    use Class::MethodMaker [ scalar  => 'name'];
    sub new { bless [], shift }
}

my $foo = Foo->new;
use Data::Dumper;
print $foo->name, $/;
print Dumper $foo;