HTML-StickyQuery
2 results

 view release on metacpan or  search on metacpan

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

4
5
6
7
8
9
10
11
12
13
14
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 

1
2
3
4
5
6
7
8
9
10
11
12
<?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 0.898 second using v1.01-cache-2.11-cpan-95122f20152 )