File Coverage

blib/lib/MyConText/URL.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	30	56.6

package MyConText::URL;
use MyConText::String;
use strict;
use vars qw! @ISA !;
@ISA = qw! MyConText::String !;

use LWP::UserAgent;

sub index_document {
	my ($self, $uri) = @_;
	my $ua = ( defined $self->{'user_agent'}
		? $self->{'user_agent'}
		: $self->{'user_agent'} = new LWP::UserAgent );

	my $request = new HTTP::Request('GET', $uri);
	my $response = $ua->simple_request($request);
	if ($response->is_success) {
		return $self->SUPER::index_document($uri, $response->content);
		}
	else {
		$self->{'errstr'} = $response->message;
		}
	return;
	}

1;