Help for this page
package Foo; use Moose; ... print Foo->new->bar # "Foo::bar" print Foo::Bar->new->bar; # "Foo::Bar::bar"
has 'foo' => (is => 'rw', default => sub { $_[0]->build_foo });