File Coverage

blib/lib/JMAP/Tester/Role/HTTPResult.pm

Criterion	Covered	Total	%
statement	8	10	80.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	12	17	70.5

use v5.10.0;
use warnings;
package JMAP::Tester::Role::HTTPResult 0.101;
# ABSTRACT: the kind of thing that you get back for an http request

use Moo::Role;

with 'JMAP::Tester::Role::Result';

#pod =head1 OVERVIEW
#pod
#pod This is the role consumed by the class of any object returned by
#pod L's C method.  In addition to
#pod L, this role provides C to
#pod get at the underlying L object. C will
#pod come from the C method of that object.
#pod
#pod =cut

has http_response => (
  is => 'ro',
);

#pod =method response_payload
#pod
#pod Returns the raw payload of the response, if there is one. Empty string
#pod otherwise. Mostly this will be C<< $self->http_response->as_string >>
#pod but other result types may exist that don't have an http_response...
#pod
#pod =cut

sub response_payload {
  my ($self) = @_;

  return $self->http_response ? $self->http_response->as_string : '';
}

1;

__END__