package Memento::TimeTravel;
our $VERSION = '0.15';
use strict;
use Moo;
use JSON;
use Scalar::Util qw(blessed);
use LWP::Simple;
sub find_mementos {
my ($self, $uri, $date) = @_;
unless (
avel.mementoweb.org/api/json/%s/%s",
$date, $uri;
my $mementos = get($api_call);
return undef unless defined($mementos) && length($mementos);
decode_json($mementos);
}
=head1 N