File Coverage

blib/lib/JMAP/Tester/Response.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	40	43	93.0

use v5.20.0;

package JMAP::Tester::Response 0.110;
# ABSTRACT: what you get in reply to a succesful JMAP request

use Moo;
use experimental 'signatures';

# We can't use 'sub sentencebroker;' as a stub here as it conflicts
# with older Role::Tiny versions (2.000006, 2.000008, and others).
# With the stub, we'd see this error during compilation:
#
# Can't use string ("-1") as a symbol ref while "strict refs" in use at
# /usr/share/perl5/Role/Tiny.pm line 382
#
# We could pin a newer Role::Tiny version but this fix is easy enough

has sentence_broker => (
  is    => 'ro',
  lazy  => 1,
  init_arg => undef,
  default  => sub {
    my ($self) = @_;
    JMAP::Tester::SentenceBroker->new({ response => $self });
  },
);

with 'JMAP::Tester::Role::SentenceCollection', 'JMAP::Tester::Role::HTTPResult';

use JMAP::Tester::Response::Sentence;
use JMAP::Tester::Response::Paragraph;
use JMAP::Tester::SentenceBroker;

use namespace::clean;

#pod =head1 OVERVIEW
#pod
#pod A JMAP::Tester::Response object represents the successful response to a JMAP
#pod request -- the kind where you've POSTed a JSON object with C.  It
#pod is a successful L.
#pod
#pod A Response is used mostly to contain the responses to the individual methods
#pod passed in the request.  For all of that interface, consult
#pod L.
#pod
#pod A Response is also a L, meaning it has a
#pod C method that returns an L object.
#pod
#pod =cut

sub is_success { 1 }

has items => (
  is       => 'bare',
  reader   => '_items',
  required => 1,
);

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

sub items ($self) { @{ $self->_items } }

sub add_items ($self, @) {
  $self->abort("can't add items to " . __PACKAGE__);
}

sub default_diagnostics ($self) {
  return [ 'Response sentences', [ $self->sentences ] ];
}

1;

__END__