File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	23	95.6

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

use Moo::Role;

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

use experimental 'signatures';

#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 ($self) {
  return $self->http_response ? $self->http_response->as_string : '';
}

1;

__END__