lib/Frey/HTML.pm

package Frey::HTML;
use Moose;

use HTML::TreeBuilder;
use Data::Dump qw/dump/;

has 'html' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

sub xhtml {
        my $self = shift;

        my $html = HTML::TreeBuilder->new;

        $html->parse( $self->html );
        $html->eof;

        my $result = _parse( $html->guts );
        $html->delete;

        return $result;
}

sub _parse {
        foreach my $element ( @_ ) {
                if ( blessed $element && $element->isa('HTML::Element') ) {
                        my $tag = $element->tag;
                        my @kids = $element->content_list;
                        warn dump( $tag, @kids );
                        return "<$tag>" . _parse( @kids ) . "</$tag>";
                } else {
                        # plain text
                        warn dump( $element );
                        return _escape( $element );
                }
        }
}

sub _escape {
        my $html = shift;
        $html =~ s/</&lt;/;
        $html =~ s/>/&gt;/;
        return $html;
}

1;
1	package Frey::HTML;
2	use Moose;
3
4	use HTML::TreeBuilder;
5	use Data::Dump qw/dump/;
6
7	has 'html' => (
8	is => 'rw',
9	isa => 'Str',
10	required => 1,
11	);
12
13	sub xhtml {
14	my $self = shift;
15
16	my $html = HTML::TreeBuilder->new;
17
18	$html->parse( $self->html );
19	$html->eof;
20
21	my $result = _parse( $html->guts );
22	$html->delete;
23
24	return $result;
25	}
26
27	sub _parse {
28	foreach my $element ( @_ ) {
29	if ( blessed $element && $element->isa('HTML::Element') ) {
30	my $tag = $element->tag;
31	my @kids = $element->content_list;
32	warn dump( $tag, @kids );
33	return "<$tag>" . _parse( @kids ) . "</$tag>";
34	} else {
35	# plain text
36	warn dump( $element );
37	return _escape( $element );
38	}
39	}
40	}
41
42	sub _escape {
43	my $html = shift;
44	$html =~ s/</</;
45	$html =~ s/>/>/;
46	return $html;
47	}
48
49	1;