view release on metacpan or  search on metacpan

DISCO.pm  view on Meta::CPAN

  $self = { URI => $params{URI} || undef };

  bless ($self, $class);

  return $self;
}

sub _get_data
{
    my $uri = shift; 
    my $req = HTTP::Request->new(GET => $uri);
  
    my $ua = LWP::UserAgent->new;
    $ua->agent("DISCO.pm/$VERSION " . $ua->agent);
    my $res = $ua->request($req);

    if ($res->is_success) {
        return $res->content;
    } else {
        print $res->status_line;
    }