File Coverage

blib/lib/Test2/Tools/JSON/Pointer.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	34	34	100.0

package Test2::Tools::JSON::Pointer;

use strict;
use warnings;
use utf8;
use 5.008001;
use JSON::MaybeXS qw( JSON );
use Test2::Compare::JSON::Pointer;
use parent 'Exporter';

our @EXPORT = qw( json );

# ABSTRACT: Compare parts of JSON string to data structure using JSON pointers VERSION
our $VERSION = '0.02'; # VERSION


sub json ($;$)
{
  my($pointer, $json) = @_ == 1 ? ('', $_[0]) : (@_);
  my @caller = caller;
  Test2::Compare::JSON::Pointer->new(
    file    => $caller[1],
    lines   => [$caller[2]],
    input   => $json,
    pointer => $pointer,
    json    => JSON->new->utf8(1),
  );
}

my $count = 0;

if(eval { require Test2::Tools::HTTP::Tx })
{
  return if $count++;
  require JSON::Pointer;
  Test2::Tools::HTTP::Tx->add_helper(
    'res.json' => sub {
      my($res, $pointer) = @_;
      my $json = JSON->new->utf8(1)->decode($res->decoded_content);
      if($pointer)
      {
        $json = JSON::Pointer->get($json, $pointer);
      }
      return $json;
    }
  );
}

1;

__END__