package Anything::List;

use strict;

# Include all the methods in this list that you
# want to delegate to the Anything class
my @delegate_methods = qw(
    prepare_create
    create
);

foreach my $method (@delegate_methods)
{
    # We're playing with the symbol table, here!
    no strict 'refs';

    *$method = sub {
        my $self = shift;
        $_->$method( @_ ) for @$self;
    };
}

# Continue on with the rest of the Anything::List class here.