]>
iEval git - html-element-library.git/blob - TestUtils.pm
e5f2b69fa103444cbc646367f86f4ea1ca24ab78
3 use HTML
::PrettyPrinter
;
7 use Carp
qw(carp cluck croak confess);
11 @EXPORT = qw(ptree html_dir);
18 my $tree = shift or confess
'must supply tree';
19 my $out = shift or confess
'must supply outfile';
21 my $hpp = HTML
::PrettyPrinter
->new
22 (tabify
=> 0, allow_forced_nl
=> 1, quote_attr
=> 1);
23 my $lines = $hpp->format($tree);
25 write_file
$out, @
$lines;
This page took 0.044125 seconds and 3 git commands to generate.