Frey/HTML/Tree.pm

package Frey::HTML::Tree;
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	package Frey::HTML::Tree;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6
7	use HTML::TreeBuilder;
8	use Data::Dump qw/dump/;
9
10	=head1 DESCRIPTION
11
12	Cleanup all attributes from html
13
14	=cut
15
16	has 'html' => (
17	is => 'rw',
18	isa => 'Str',
19	required => 1,
20	default => '<b class="remove me">foo</b>',
21	);
22
23	sub cleanup_as_markup {
24	my $self = shift;
25
26	my $html = HTML::TreeBuilder->new;
27
28	$html->parse( $self->html );
29	$html->eof;
30
31	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	$html->delete;
48
49	return $result;
50	}
51
52	1;