sub encode_entities{ my $self = shift; my $val = shift; return HTML::Entities::encode_entities( $val, q(<>#'""'&) ); };