Yet Another CPAN Grep

Test-Mock-LWP-Distilled ( S/SK/SKINGTON/Test-Mock-LWP-Distilled-1.000.tar.gz, SKINGTON, 2021; MetaCPAN )

Test-Mock-LWP-Distilled/lib/Test/Mock/LWP/Distilled.pm ( view source; MetaCPAN )

ndard qw(ArrayRef Bool CodeRef Enum HashRef);

use Carp;
use Data::Compare;
use Data::Dumper;
use JSON::MaybeXS;
use Path::Class;

# Have you updated the version number in the POD below?
our $VERSION

:UserAgent;

 use Moo;
 extends 'LWP::UserAgent';
 with 'Test::Mock::LWP::Distilled';
 
 use LWP::JSON::Tiny;
 
 # The suffix we use for our mock filename, to distinguish it from other mocks.
 sub fil

est_from_request {
     my ($self, $request) = @_;
 
     return $request->uri->path;
 }
 
 # The JSON we get back is good to store; there are no passwords or pesky
 # auto-increment fields to ignore.