if (isa($set,"CODE")) {
    &set for $self->{'content'}; # Code to modify content 
  }

##</code><code>##

   if (isa($set,"CODE")) {
     $set->() for $self->{'content'} # execute the $set coderef
   }