/usr/local/CPAN/HTML-Shakan/HTML/Shakan/Utils.pm

• package HTML::Shakan::Utils
  • encode_entities
• EOF

package HTML::Shakan::Utils;
use strict;
use warnings;
use parent qw/Exporter/;

our @EXPORT = qw/encode_entities/;

sub encode_entities {
    local $_ = shift;
    return $_ unless $_;
    s/&/&/g;
    s/>/>/g;
    s/</&lt;/g;
    s/"/&quot;/g;
    s/'/&#39;/g;
    return $_;
}

1;