Frey/HTML/Tree.pm

package Frey::HTML;
use Moose;

extends 'Frey';
with 'Frey::Web';

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

=head1 DESCRIPTION

Cleanup all attributes from html

=cut

has 'html' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => '<b class="remove me">foo</b>',
);

sub cleanup_as_markup {
        my $self = shift;

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

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

        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 $element;
                        }
                }
        }

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

        return $result;
}

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