File Coverage

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

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	20	21	95.2

package Feed::Data::Parser::Text;

use Moo;
extends 'Feed::Data::Parser::Base';
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;
		my $content = $self->content_ref;
		my (@matches, %match);
		while ($$content =~ s/([A-Za-z]+)\s*\:(.*)//) {
			if (defined $match{$1}) {
				push @matches, {%match};
				%match = ();
			}
			$match{$1} = $2;
		}
		push @matches, {%match};
		return { items => \@matches };
	},
);

has '+potential_fields' => (
	default => sub {
		return {
			title => 'title',
			description => 'description',
			date => 'date',
			author => 'author',
			category => 'category',
			permalink => 'permalink',
			comment => 'comment',
			link => 'link',
			content => 'content',
			image => 'image',
		};
	},
);

sub get_value {
	my ($self, $item, $action) = $validate->get_value->(@_);
	my $value = $item->{$action};
	return $value // '';
}

1; # End of Data::Feed