sub AUTOLOAD {
    my $self = shift;
    if (my($method) = $AUTOLOAD =~ /::([^:]+)$/ ) {
        no strict 'refs';
        *$AUTOLOAD = sub {
            my $self = shift;
            $_->$method(@_) for @$self;
        };
        $self->$AUTOLOAD(@_);
    }
}