gistfile1.pl

my $orig = \&Noembed::Util::http_get;
local *Noembed::Util::http_get = sub {
  my $cb = pop;
  my $url = shift;
  my $hash = sha1_hex $url;

  $orig->($url, @_, sub {
    my ($body, $headers) = @_;
    open my $fh, ">", "t/data/requests/$hash";
    print $fh encode_json [ $body, $headers ];
    $cb->($body, $headers)
  });
};