use strict;

use Class::MethodMaker "-sugar";

package MyPackage::Item;
make methods
    new_hash_init => 'new',
    get_set => [qw/ name /],
; # make methods


package MyPackage::List;
make methods
    new_hash_init => 'new',
    object_list   => [
       MyPackage::Item => {
          slot => 'items',
          comp_mthds => [qw/ name /],
       },
    ],
;

package main;

use Data::Dumper;

my $list = MyPackage::List->new();
$list->items_push( MyPackage::Item->new(name=>'test1') );

print Dumper($list);

# POD says this should return a list from a map 
# of the forwarded methods over all objects in 
# the list, but I can't get it to work!
print $list->items->name;