= $self->new;
$$new->tag(@_);
$$new->xml($$self->xml) if ref $self;
return $new;
}
sub TO_JSON { ${shift()}->render }
sub all_text { _text(_nodes($_[0]->tree), $_[0]->xml, 1) }
sub ancestors
tware, licensed under:
The Artistic License 2.0 (GPL Compatible)
=head1 SEE ALSO
L<Mojo::DOM>, L<HTML::TreeBuilder>, L<XML::LibXML>, L<XML::Twig>, L<XML::Smart>
=for Pod::Coverage TO_JSON
=cut
N = '3.002';
sub new {
my $class = shift;
return bless [@_], ref $class || $class;
}
sub TO_JSON { [@{shift()}] }
sub compact {
my $self = shift;
return $self->new(grep { defined && (ref ||