File Coverage

blib/lib/HTML/Feature.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package HTML::Feature;
use strict;
use warnings;
use HTML::Feature::FrontParser;
use HTML::Feature::Engine;
use base qw(HTML::Feature::Base);

__PACKAGE__->mk_accessors($_) for qw(_front_parser _engine);

our $VERSION = '3.00011';

sub new {
    my $class = shift;
    my %args  = @_;
    my $self  = $class->SUPER::new( config => \%args );
    $self->_setup;
    return $self;
}

sub parse {
    my $self     = shift;
    my $whatever = shift;
    my $url      = shift;
    my $html     = $self->front_parser->parse($whatever);
    if ( !$url and $self->{base_url} ) {
        $url = $self->{base_url};
    }
    my $result = $self->engine->run( \$html, $url );
    return $result;
}

sub parse_url {
    my $self = shift;
    $self->parse(@_);
}

sub parse_response {
    my $self = shift;
    $self->parse(@_);
}

sub parse_html {
    my $self = shift;
    $self->parse(@_);
}

sub _setup {
    my $self = shift;
    $self->front_parser( HTML::Feature::FrontParser->new( context => $self ) );
    $self->engine( HTML::Feature::Engine->new( context => $self ) );
    if ( !$self->{not_encode} ) {
        $self->{enc_type} ||= "utf8";
    }
}

#---
# accessor methods
#---

sub front_parser {
    my $self = shift;
    my $args = shift;
    if ( !$args ) {
        $self->_front_parser;
    }
    else {
        $self->_front_parser($args);
    }
}

sub engine {
    my $self = shift;
    my $args = shift;
    if ( !$args ) {
        $self->_engine;
    }
    else {
        $self->_engine($args);
    }
}

1;
__END__