File Coverage

blib/lib/JSON/Schema/Modern/Error.pm

Criterion	Covered	Total	%
statement	75	76	98.6
branch	4	4	100.0
condition			n/a
subroutine	25	26	96.1
pod	1	2	50.0
total	105	108	97.2

use strict;
use warnings;
package JSON::Schema::Modern::Error;
# vim: set ts=8 sts=2 sw=2 tw=100 et :
# ABSTRACT: Contains a single error from a JSON Schema evaluation

our $VERSION = '0.635';

use 5.020;
use Moo;
with 'JSON::Schema::Modern::ResultNode';
use strictures 2;
use stable 0.031 'postderef';
use experimental 'signatures';
no autovivification warn => qw(fetch store exists delete);
use if "$]" >= 5.022, experimental => 're_strict';
no if "$]" >= 5.031009, feature => 'indirect';
no if "$]" >= 5.033001, feature => 'multidimensional';
no if "$]" >= 5.033006, feature => 'bareword_filehandles';
no if "$]" >= 5.041009, feature => 'smartmatch';
no feature 'switch';
use MooX::TypeTiny;
use Types::Standard qw(Str Bool Enum Tuple);
use Types::Common::Numeric qw(PositiveInt);
use builtin::compat 'refaddr';
use Mojo::Message::Response;
use Carp 'croak';
use namespace::clean;

use overload
  '""' => sub { $_[0]->stringify },
  fallback => 1;

has error => (
  is => 'ro',
  isa => Str,
  required => 1,
);

has exception => (
  is => 'ro',
  isa => Bool,
);

has mode => (
  is => 'ro',
  isa => Enum[qw(traverse evaluate)],
  required => 1,
);

has recommended_response => (
  is => 'ro',
  isa => Tuple[PositiveInt, Str],
);

sub stringify ($self) {
  $self->mode eq 'traverse'
    ? '\''.$self->keyword_location.'\': '.$self->error
    : '\''.$self->instance_location.'\': '.$self->error;
}

sub clone ($self, %overrides) {
  $self->new(
    $self->%{qw(instance_location keyword_location keyword depth)},
    (map +(exists $self->{$_} ? $self->%{$_} : ()), qw(absolute_keyword_location _uri recommended_response)),
    $self->%{qw(error exception mode)},
    %overrides,
  );
}

sub __thing { 'error' }

around BUILDARGS => sub ($orig, $class, @args) {
  my $args = $class->$orig(@args);

  $args->{recommended_response}[1] =
      Mojo::Message::Response->default_message($args->{recommended_response}[0]) // 'Unknown Error'
    if $args->{recommended_response} and $args->{recommended_response}->@* == 1;

  croak 'instance_location must be defined when mode=evaluate'
    if not defined $args->{instance_location} and ($args->{mode}//'') eq 'evaluate';

  return $args;
};

1;

__END__