HTTP-Response-Encoding

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    HTTP::Response::Encoding - Adds encoding() to HTTP::Response

VERSION
    $Id: README,v 0.2 2007/05/12 09:24:15 dankogai Exp $

SYNOPSIS
      use LWP::UserAgent;
      use HTTP::Response::Encoding;

      my $ua = LWP::UserAgent->new();
      my $res = $ua->get("http://www.example.com/");
      warn $res->encoding;

EXPORT
    Nothing.

METHODS
    This module adds the following methods to HTTP::Response objects.

    "$res->charset"

lib/HTTP/Response/Encoding.pm  view on Meta::CPAN

HTTP::Response::Encoding - Adds encoding() to HTTP::Response

=head1 VERSION

$Id: Encoding.pm,v 0.6 2009/07/28 21:25:25 dankogai Exp dankogai $

=cut

=head1 SYNOPSIS

  use LWP::UserAgent;
  use HTTP::Response::Encoding;

  my $ua = LWP::UserAgent->new();
  my $res = $ua->get("http://www.example.com/");
  warn $res->encoding;

=head1 EXPORT

Nothing.

=head1 METHODS

This module adds the following methods to  L<HTTP::Response> objects.

t/01-file.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Response::Encoding;
use File::Spec;
use Encode;
use Cwd;
use URI;
use Test::More tests => 13;

my $ua = LWP::UserAgent->new;
my $cwd = getcwd;

#BEGIN{
#    package LWP::Protocol;
#    $^W = 0;
#}

for my $meth (qw/charset encoder encoding decoded_content/){
    can_ok('HTTP::Response', $meth);
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan