package Foo; use MakeMethods constructor => 'new', required => [qw(name title tables)], object_list => [ 'Table' => 'tables'];