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;
[download]

$VAR1 = bless( {
                 'items' => [
                              bless( {
                                       'name' => 'test1'
                                     }, 'MyPackage::Item' )
                            ]
               }, 'MyPackage::List' );
Can't call method "name" on unblessed reference at test.pl line 32.
[download]