view release on metacpan or  search on metacpan

examples/hog-fetch-all.pl  view on Meta::CPAN

    $option_verbose = 1;
  } else {
    die "Unrecognised option: $arg";
  }
}

# No cookies so get a fresh search each time.
# Or could increment the historyIndex parameter to mean start new search.
# Would that be better, worse, or same?
#
my $mech = WWW::Mechanize->new (keep_alive => 1,
                                cookie_jar => undef);
$mech->agent("$FindBin::Script/$VERSION ".$mech->agent);
# ask for all compressions decoded_content() knows
$mech->add_header('Accept-Encoding' => scalar HTTP::Message::decodable());

# diagnostic output
$mech->add_handler (request_send => sub {
                      my ($req, $mech, $headers) = @_;
                      if ($option_verbose) {
                        $|=1;

examples/hog-fetch-search.pl  view on Meta::CPAN

use warnings;
use File::Slurp;
use FindBin;
use HTTP::Message;
use WWW::Mechanize;

our $VERSION = 9;

my $output_filename = 'hog-fetch-search-output.g6';

my $mech = WWW::Mechanize->new (keep_alive => 1);
$mech->agent("$FindBin::Script/$VERSION ".$mech->agent);

# ask for all compressions decoded_content() knows
$mech->add_header('Accept-Encoding' => scalar HTTP::Message::decodable());

# diagnostic output
$mech->add_handler (request_send => sub {
                      my ($req, $mech, $headers) = @_;
                      print "request:\n";
                      print $req->method," ",$req->uri,"\n";

examples/hog-fetch.pl  view on Meta::CPAN

$|=1;

our $VERSION = 9;
my $option_verbose = 0;

if (@ARGV && $ARGV[0] eq '-v') {
  shift @ARGV;
  $option_verbose = 1;
}

my $ua = LWP::UserAgent->new (keep_alive => 1);
$ua->agent("$FindBin::Script/$VERSION ".$ua->agent);

# ask for all compressions decoded_content() knows
$ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());

# diagnostic output
$ua->add_handler (request_send => sub {
                    my ($req, $ua, $headers) = @_;
                    if ($option_verbose) {
                      $|=1;