File Coverage

blib/lib/WWW/Postini/UserAgent.pm

Criterion	Covered	Total	%
statement	32	36	88.8
branch			n/a
condition			n/a
subroutine	11	13	84.6
pod	7	8	87.5
total	50	57	87.7

package WWW::Postini::UserAgent;

use strict;
use warnings;

use HTTP::Cookies;
use LWP::UserAgent;

use vars qw( @ISA $VERSION );

@ISA = qw( LWP::UserAgent );
$VERSION = '0.01';

sub new {

	my $class = shift;
	$class->SUPER::new(cookie_jar => new HTTP::Cookies, @_);

}

sub request {

	my $self = shift;
	my $response = $self->SUPER::request(@_);
	$self->{'_last_response'} = $response;

}

sub post {

	my $self = shift;
	my $response = $self->SUPER::post(@_);
	$self->{'_last_response'} = $response;

}

sub get {

	my $self = shift;
	my $response = $self->SUPER::get(@_);
	$self->{'_last_response'} = $response;

}

sub head {

	my $self = shift;
	my $response = $self->SUPER::head(@_);
	$self->{'_last_response'} = $response;

}

sub simple_request {

	my $self = shift;
	my $response = $self->SUPER::simple_request(@_);
	$self->{'_last_response'} = $response;

}

sub send_request {

	my $self = shift;
	my $response = $self->SUPER::send_request(@_);
	$self->{'_last_response'} = $response;

}

sub last_response { shift->{'_last_response'}; }

1;

__END__