package HTML::PrettyPrint;
require 5.005_62;
use strict;
use warnings;
use base qw(HTML::TreeBuilder HTML::Element);
our $VERSION = '1.0';
# Preloaded methods go here.
sub HTML::Element::dump_html
{
my($self, $fh, $depth) = @_;
$fh = *STDOUT{IO} unless defined $fh;
$depth = 0 unless defined $depth;
print $fh
" " x $depth, $self->starttag, "\n";
for (@{$self->{'_content'}}) {
if (ref $_) { # element
$_->dump_html($fh, $depth+1); # recurse
} else { # text node
print $fh " " x ($depth + 1);
if(length($_) > 65 or m<[\x00-\x1F]>) {
# it needs prettyin' up somehow or other
my $x = (length($_) <= 65) ? $_ : (substr($_,0,65) . '...');
$x =~ s<([\x00-\x1F])>
<'\\x'.(unpack("H2",$1))>eg;
print $fh qq{"$x"\n};
} else {
print $fh qq{"$_"\n};
}
}
}
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
HTML::PrettyPrint - HTML::TreeBuilder extension to pretty-print HTML
=head1 SYNOPSIS
use HTML::PrettyPrint;
my $file = 'dump.html' or die "must give html file to pretty-print";
my $tree = HTML::TreeBuilder->new_from_file($file);
$tree->dump_html; # works via inheritance
=head1 DESCRIPTION
This will pretty print your HTML files. No config options at the moments.
Patches welcome.
=head2 EXPORT
None.
=head1 AUTHOR
T. M. Brannon, <tbone@cpan.org>
=head1 Acknowledgements
This is nothing but a ripoff of HTML::Element::dump() which gets rid of the
<$self->address> printing. And while we are discussing C<dump>,
take a look at this HTML document, which HTML::TreeBuilder's dump()
method has annotated each node of the HTML document with a unique
identitifer:
<html> @0
<head> @0.0 (IMPLICIT)
<body> @0.1 (IMPLICIT)
<table supply="_aref::load_data"> @0.1.0
<tr iterator="supply.Next"> @0.1.0.0
<th> @0.1.0.0.0
"name"
<th> @0.1.0.0.1
"age"
<th> @0.1.0.0.2
"weight"
<td builder="_text::iterator.name"> @0.1.0.0.3
<td builder="_text::iterator.age"> @0.1.0.0.4
<td builder="_text::iterator.weight"> @0.1.0.0.5
It would be possible to tie each identifier to an anonymous subroutine:
my %dynamic_html = (
'@0.1.0.0.5' => sub { my $node = shift; $node->splice_content(0,1,'new text'}}
for pure Perl and pure HTML templating (ie, absolutely no foreign
elements in the HTML.
However, the problem would be that the mapping would have to change each time that the HTML changed the tree-numbering.
=head1 SEE ALSO
HTML::TreeBuilder, HTML::Seamstress.
=cut