File Coverage

blib/lib/App/Presto/Client/ContentHandlers/HTML.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	1	4	25.0
condition	0	2	0.0
subroutine	5	7	71.4
pod	0	3	0.0
total	15	36	41.6

package App::Presto::Client::ContentHandlers::HTML;
BEGIN {
  $App::Presto::Client::ContentHandlers::HTML::AUTHORITY = 'cpan:BPHILLIPS';
}
{
  $App::Presto::Client::ContentHandlers::HTML::VERSION = '0.009';
}

# ABSTRACT: Handles deserializing of HTML responses

use Moo;
my $HAS_HTML_FORMATTEXT_WITHLINKS;
BEGIN {
    eval 'use HTML::FormatText::WithLinks; $HAS_HTML_FORMATTEXT_WITHLINKS = 1;'
}

sub can_deserialize {
	my $self = shift;
	my $content_type = shift;
	return unless $HAS_HTML_FORMATTEXT_WITHLINKS;
	return $content_type =~ m{^text/html}i;
}

sub deserialize {
	my $self = shift;
	my $content = shift;
	my $text;
	eval { $text = HTML::FormatText::WithLinks->format_string($content) || 1 } or do {
		warn "Unable to parse HTML: $@";
	};
	return $text;
}

sub can_serialize { 0 }

1;

__END__