File Coverage

blib/lib/JMAP/Tester/Result/Failure.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	26	27	96.3

use v5.20.0;

package JMAP::Tester::Result::Failure 0.110;
# ABSTRACT: what you get when your JMAP request utterly fails

use Moo;
with 'JMAP::Tester::Role::HTTPResult';

use experimental 'signatures';

use Sub::Install ();

use namespace::clean;

#pod =head1 OVERVIEW
#pod
#pod This is the sort of worthless object you get back when your JMAP request fails.
#pod This class should be replaced, in most cases, by more useful classes in the
#pod future.
#pod
#pod It's got an C method.  It returns false. It also has:
#pod
#pod =method ident
#pod
#pod An error identifier. May or may not be defined.
#pod
#pod =cut

sub is_success { 0 }

has ident => (is => 'ro', predicate => 'has_ident');

for my $method (qw(
  sentence
  sentences
  single_sentence
  sentence_named
  assert_n_sentences
  paragraph
  paragraphs
  assert_n_paragraphs
  paragraph_by_client_id
  as_triples
  as_stripped_triples
  as_pairs
  as_stripped_pairs

  wrapper_properties
)) {
  Sub::Install::install_sub({
    into => __PACKAGE__,
    as   => $method,
    code => sub ($self, @) {
      $self->abort("tried to call Response method $method on a Failure", [ Result => $self ]);
    }
  });
}

1;

__END__