view release on metacpan or  search on metacpan

lib/HTML/MobileJp/Filter/Content.pm  view on Meta::CPAN

        shift->_current('xml');
    },
);

use overload '""' => 'stringfy', fallback => 1;

*stringfy = \&as_html;

use XML::LibXML;

sub update {
    my ($self, $content) = @_;
    if (ref($content) and $content->isa(__PACKAGE__)) {
        $self->{$_} = $content->{$_} for qw( html xml );
    } elsif (ref($content) and $content->isa('XML::LibXML::Document')) {
        $self->xml($content);
    } else {
        $self->html($content);
    }
}