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 = $self->_parse( $html->guts );
        $html->delete;

        return $result;
}

sub _parse {
        my $self = shift;
        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 $self->html_escape( $element );
                }
        }
}

1;
1	dpavlin	171	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	dpavlin	225	my $result = $self->_parse( $html->guts );
22	dpavlin	171	$html->delete;
23
24			return $result;
25			}
26
27			sub _parse {
28	dpavlin	225	my $self = shift;
29	dpavlin	171	foreach my $element ( @_ ) {
30			if ( blessed $element && $element->isa('HTML::Element') ) {
31			my $tag = $element->tag;
32			my @kids = $element->content_list;
33			warn dump( $tag, @kids );
34			return "<$tag>" . _parse( @kids ) . "</$tag>";
35			} else {
36			# plain text
37			warn dump( $element );
38	dpavlin	225	return $self->html_escape( $element );
39	dpavlin	171	}
40			}
41			}
42
43			1;