No, I wanted independent instances. Your code got me in the right direction. It was a little buggy, though =). Moosified version:

package Bar;

use Moose;

has x => ( is => 'rw', isa => 'Any' );

sub bar { print "bar", shift->x, "\n"; }

package MapDelay;

use Moose;
use vars '$AUTOLOAD';

has elements => ( is => 'rw', isa => 'ArrayRef' );

around BUILDARGS => sub {
    my ($orig,$class) = @_;
    $class->$orig(elements => [splice @_,2]);
};

sub AUTOLOAD {
    (my $m = $AUTOLOAD) =~ s/.*:://;
    map { $_->$m(@_) } @{shift->elements}
};

package Foo;

use Moose;

sub foo {
    return MapDelay->new( Bar->new(x=>1), Bar->new(x=>2), Bar->new(x=>
+3) );
};

package main;

Foo->new->foo->bar; #prints bar1\nbar2\nbar3\n
[download]