our $AUTOLOAD;

sub AUTOLOAD 
{
    my $self = shift;
    my $method = $AUTOLOAD;
    $method =~ s/.*://; # strip out Package::

    foreach my $anything (@{$self}) {
        die "method $method not supported" 
          unless $anything->can($method);
        $anything->$method(@_);
    }
}