File Coverage

blib/lib/Feed/Data/Parser/RSS.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	1	4	25.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	29	37	78.3

package Feed::Data::Parser::RSS;

use Moo;
extends 'Feed::Data::Parser::Base';
use XML::RSS::LibXML;
use Ref::Util ':all';
use Compiled::Params::OO qw/cpo/;
use Types::Standard qw/Object HashRef Str/;

our $validate;
BEGIN {
	$validate = cpo(
		get_value => [Object, HashRef, Str],
	);
}

has '+parser' => (
	default => sub {
		my $self = shift;
		return XML::RSS::LibXML->new->parse($self->content_ref);
	},
);

sub get_value {
	my ($self, $item, $action) = $validate->get_value->(@_);

	my $value = $item->{$action};

	if ( is_scalarref(\$value) || is_arrayref($value) ){
		return $value;
	}
	elsif ( is_hashref($value) ){
		return $value->{encoded};
	}

	return '';
}

1; # End of Feed::Data