File Coverage

blib/lib/HTML/Feature/Decoder.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package HTML::Feature::Decoder;
use strict;
use warnings;
use Data::Decode;
use Data::Decode::Chain;
use Data::Decode::Encode::Guess;
use Data::Decode::Encode::Guess::JP;
use Data::Decode::Encode::HTTP::Response;
use base qw(HTML::Feature::Base);

__PACKAGE__->mk_accessors($_) for qw(decoder);

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

sub _setup {
    my $self    = shift;
    my $decoder = Data::Decode->new(
        strategy => Data::Decode::Chain->new(
            decoders => [
                Data::Decode::Encode::HTTP::Response->new,
                Data::Decode::Encode::Guess::JP->new,
                Data::Decode::Encode::Guess->new,
            ]
        )
    );
    $self->decoder($decoder);
}

sub decode {
    my $self    = shift;
    my $data    = shift;
    my $decoded = $self->decoder->decode($data);
    return $decoded;
}

1;
__END__