HTML-StickyQuery
2 results

 view release on metacpan or  search on metacpan

t/14xhtml.t  view on Meta::CPAN 

use CGI;

my $s = HTML::StickyQuery->new;
my $q = CGI->new();
$s->sticky(
    file => './t/xhtml.html',
    param => $q,
);

like($s->output, qr/<\?xml version="1.0" encoding="utf-8"\?>/);
like($s->output, qr(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1\.0 Transitional//EN"));

t/xhtml.html  view on Meta::CPAN 

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
<title>XHTML</title>
</head>
<body>
<a href="/foo/bar.cgi?id=1">LINK</a>
</body>
</html>



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