]>
iEval git - html-element-library.git/blob - t/m/TestUtils.pm
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.045614 seconds and 4 git commands to generate.