Also, the docs show it as having a leading underscore (_decode_entities), but it seems to work without.
decode_entities and _decode_entities are two different functions with two different interfaces.
#!/usr/bin/perl --
use strict;
use warnings;
use HTML::Entities;
use Test::More tests => 3;
my $str = q!amp & 59 ; quot "!;
is( decode_entities($str), 'amp & 59 ; quot "' );
is( join( '-', decode_entities( $str, $str ) ),
join( '-', 'amp & 59 ; quot "' , 'amp & 59 ; quot "' ) );
{
my $str = $str;
_decode_entities( $str, { amp => "&", 59 => ";" }, 0 );
is( $str, 'amp & 59 ; quot "' );
}
__END__
http://search.cpan.org/dist/HTML-Parser/MANIFESTt/entities.t Test encoding/decoding of entities
t/entities2.t Test _decode_entities()
How (Not) To Ask A Question