File Coverage

blib/lib/Feed/Data/Object/Category.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Feed::Data::Object::Category;

use Moo;
extends 'Feed::Data::Object::Base';
use HTML::Strip;

our $VERSION = '0.01';

has '+raw' => (
    default => sub { [ ] },
);

has '+text' => (
    default => sub {
        my $hs = HTML::Strip->new();
        my $content = shift->raw;
        my $string = ref $content ? join ', ',  grep { $hs->parse($_) } @{ $content } : $content;
        return $string;
    }
);

has 'json' => (
    is => 'rw',
    lazy => 1,
    default => sub {
        return shift->raw;
    },
);

1; # End of Feed::Data