http://www.perlmonks.org?node_id=515600

Public Scratchpad

Download, Select Code To D/L

---

package Array::Map::OO;

sub new {
   my $class = shift;
   bless [@_], $class 
}

sub AUTOLOAD {
   my $self = shift;

   return if $AUTOLOAD =~ /::DESTROY$/;
  
   my @array;

   for ( @$self ) {
      eval {
         push @array, $_->$AUTOLOAD( @_ );
      }
      if ( $! ) {
         warn $!;
         # actually, provide an option
      }
   }

   if ( wantarray ) {
      return @array;
   } else {
      return __PACKAGE__->new( @array );
   }
}
[download]

Now, if we can get children to return one of these instead of just an array, we can do something like:

my @grandchildren = $root->children->children;
[download]

But what about children_and_self? We'll be processing some things twice.