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/</</g;
s/"/"/g;
s/'/'/g;
return $_;
}
1;