File Coverage

blib/lib/Test2/Compare/JSON.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	6	8	75.0
condition			n/a
subroutine	10	10	100.0
pod	4	5	80.0
total	54	57	94.7

package Test2::Compare::JSON;
use strict;
use warnings;

use base 'Test2::Compare::Base';

use Carp qw/croak/;

use Test2::Util::HashBase qw/inref json/;

sub init {
    my $self = shift;

    croak "'inref' must be a reference" unless ref $self->{+INREF};

    $self->SUPER::init();
}

sub operator { 'JSON' }

sub name { '' . $_[0]->{+INREF} }

sub verify {
    my $self = shift;
    my %params = @_;
    my ($got, $exists) = @params{qw/got exists/};

    return 0 unless $exists;

    eval {
        $self->{+JSON}->decode($got);
    };

    return $@ ? 0 : 1;
}

sub deltas {
    my $self = shift;
    my %params = @_;
    my ($got, $convert, $seen) = @params{qw/got convert seen/};

    my $check = $convert->($self->{+INREF});

    my $delta = $check->run(
        id      => [META => 'JSON'],
        got     => $self->{+JSON}->decode($got),
        exists  => 1,
        convert => $convert,
        seen    => {},
    );
    return unless $delta;
    return $delta;
}

1;