Yet Another CPAN Grep

WWW-HarWalk ( X/XU/XUDAYE/WWW-HarWalk-0.13.tar.gz, XUDAYE, 2013; MetaCPAN )

WWW-HarWalk/lib/WWW/HarWalk.pm ( view source; MetaCPAN )

ackage WWW::HarWalk;

use 5.006;
use strict;
use warnings FATAL => 'all';
use Carp qw(croak);
use JSON;
use HTTP::Request;
use base qw(Exporter);

=head1 NAME

WWW::HarWalk - Replay HTTP requests from


    {
        local $/;
        $content = <$fh>;
    }
    close $fh;
    my $json = JSON->new->utf8;
    my $o = $json->decode($content);
    while (my $entry = shift @{$o->{log}->{entries}}) {