HTML-Restrict
1 match

 view release on metacpan or  search on metacpan

t/declaration.t  view on Meta::CPAN 

my $hr = HTML::Restrict->new;

my $text = '<!DOCTYPE HTML> ';
$hr->debug(1);

is $hr->process($text), q{}, 'declaration not preserved';
$hr->allow_declaration(1);
is $hr->process($text), '<!DOCTYPE HTML>', 'declaration is preserved';

$text
    = q{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">};
is $hr->process($text), $text, 'declaration preserved';

done_testing();



( run in 0.504 second using v1.01-cache-2.11-cpan-49f99fa48dc )