File Coverage

blib/lib/Net/WebCL.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	8	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	2	50.0
total	21	53	39.6

package Net::WebCL;
use strict;
use warnings;
use HTTP::Request::Common qw/GET POST/;
use HTTP::Cookies;
use base qw/LWP::UserAgent/;

our $VERSION = '0.03';

sub new{
	my $this = shift;
	my $self = new LWP::UserAgent;
	$self->cookie_jar({});
	$self->ssl_opts(verify_hostname => 0);
	return bless($self,$this);
}

sub req{
	my ($self,$m,$u,$d,$p) = @_;
	my $req;
	if($m =~ /GET/i){
		$req = GET($u . '?' . join('&',map{$_ = $_ . '=' . $d->{$_};$_} keys %{$d}));
	}
	elsif($m =~ /POST/i){
		$req = POST($u,$d);
	}
	else{
		return;
	}

	if($p){
		my $proxy = '';
		if($p->{proxy_user}){
			$proxy = $p->{proxy_user} . ':' . $p->{proxy_password} . '@';
		}
		$proxy = 'http://' . $proxy . $p->{proxy_host} . ':' . $p->{proxy_port} . '/';
		$self->proxy($p->{proxy_type},$proxy);
	}
	return $self->request($req);
}
1;
__END__