Why not reimplement _http_get method? You can subclass XML::RSS::Tools like so:
package XML::RSS::Tools::Mine; use base 'XML::RSS::Tools'; use strict; use warnings; use LWP::UserAgent; # # Grab something via HTTP # sub _http_get { my $self= shift; my $uri = shift; my $ua = LWP::UserAgent->new; $ua->agent('my_user_agent'); my $response = $ua->request(HTTP::Request->new('GET', $uri)); return $self->_raise_error("HTTP error: " . $response->status_line) +if $response->is_error; return $response->content(); } 1;
Then change the calling code:
use XML::RSS::Tools::Mine; my $rss_feed = XML::RSS::Tools::Mine->new; $rss_feed->rss_uri('http://freshmeat.net/backend/fm-releases.rdf'); print $rss_feed->as_string(rss), "\n";
HTH, Valerio
In reply to Re: Overriding module-internal calls
by valdez
in thread Overriding module-internal calls
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |