#!/usr/local/bin/perl -w BEGIN { chdir 't' if -d 't'; if ($ENV{PERL_CORE}) { @INC = '../lib'; } else { unshift @INC, qw( ../blib/lib ../blib/arch lib ); } } use strict; use Test::More tests => 5; BEGIN { use_ok('CGI::Pretty') }; # This is silly use_ok should take arguments use CGI::Pretty (':all'); is(h1(), '
hi
therefrog HTML is(p('hi',a({-href=>'frog'},'there'),'frog'), < hi there frog HTML