File Coverage

blib/lib/WWW/BookBot/FakeCookies.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	4	0.0
condition	0	4	0.0
subroutine	5	7	71.4
pod	2	2	100.0
total	22	47	46.8

package WWW::BookBot::FakeCookies;

use 5.008;
use strict;
use warnings;
use base qw(HTTP::Cookies);
use vars qw($VERSION);
$VERSION = '1.02';

sub add_cookie_header {
	my $self = shift;
    my $request = shift || return;
    my $url = $request->url;
    eval {$url->port;};
    return if $@;
    $self->SUPER::add_cookie_header($request);
}

sub extract_cookies
{
    my $self = shift;
    my $response = shift || return;
    my $request = $response->request;
    my $url = $request->url;
    eval {$url->port;};
    return if $@;
    $self->SUPER::extract_cookies($response);
}

1;
__END__