You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

12.9. HTML::Tidy and Test::HTML::Tidy

Example 12-6. examples/www/static_tidy.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 2;
use Test::HTML::Tidy;
use LWP::Simple qw(get);


my $home = get 'http://test_server/';
ok $home, 'There is a response';
html_tidy_ok $home, 'HTML OK';

$ perl examples/www/static_tidy.t
1..2
ok 1 - There is a response
not ok 2 - HTML OK
#   Failed test 'HTML OK'
#   in examples/www/static_tidy.t at line 11.
# Messages: HTML OK
# examples/www/static_tidy.t (1:1) Warning: missing <!DOCTYPE> declaration
# Looks like you failed 1 test of 2.

If you are interested in on-site trainings by the author, please contact me directly.