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