File Coverage

blib/lib/WebService/TDWTF/Article.pm

Criterion	Covered	Total	%
statement	21	29	72.4
branch	2	2	100.0
condition	3	4	75.0
subroutine	9	17	52.9
pod	11	11	100.0
total	46	63	73.0

package WebService::TDWTF::Article;

use 5.014000;
use strict;
use warnings;
use parent qw/Class::Accessor::Fast/;

our $VERSION = '0.002';

use WebService::TDWTF ();

sub _article { goto &WebService::TDWTF::article }

__PACKAGE__->mk_ro_accessors(qw/Id Slug SummaryHtml BodyHtml FooterAdHtml Title CoalescedCommentCount DiscourseThreadUrl PublishedDate DisplayDate Url CommentsUrl PreviousArticleId PreviousArticleUrl NextArticleId NextArticleUrl/);

sub AuthorName             { shift->{Author}->{Name} }
sub AuthorShortDescription { shift->{Author}->{ShortDescription} }
sub AuthorDescriptionHtml  { shift->{Author}->{DescriptionHtml} }
sub AuthorSlug             { shift->{Author}->{Slug} }
sub AuthorImageUrl         { shift->{Author}->{ImageUrl} }

sub SeriesSlug        { shift->{Series}->{Slug} }
sub SeriesTitle       { shift->{Series}->{Title} }
sub SeriesDescription { shift->{Series}->{Description} }

sub PreviousArticle { _article shift->PreviousArticleId // return }
sub NextArticle     { _article shift->NextArticleId     // return }

sub Body {
	unless ($_[0]->BodyHtml) {
		my $ret = _article $_[0]->Id, 1;
		$_[0]->{$_} = $ret->{$_} for qw/BodyHtml FooterAdHtml/;
	}
	$_[0]->BodyHtml
}

1;
__END__