use strict;
use warnings;

use HTTP::Tiny;
use Test::Mock::HTTP::Tiny;
use JSON;

my $http = HTTP::Tiny->new;
my $resp = $http->get('http://www.way-finder.uk/');

# EDIT: it's captured_data() not mocked_data() see below
#my $json_str = eval { JSON::encode_json(Test::Mock::HTTP::Tiny->mocked_data()) };
my $json_str = eval { JSON::encode_json(Test::Mock::HTTP::Tiny->captured_data()) };
die "failed to encode json" if $@;

open my $fh, '>', 'mock_html.dat';
print $fh $json_str;
close $fh;