Finance-YahooQuote
view release on metacpan or search on metacpan
YahooQuote.pm view on Meta::CPAN
package RequestAgent; # this code taken from lwp-request, see
no strict 'vars'; # the various LWP manual pages
@ISA = qw(LWP::UserAgent);
sub new {
my $self = LWP::UserAgent::new(@_);
$self->agent("Finance-YahooQuote/0.18");
$self;
}
sub get_basic_credentials {
my $self = @_;
if (defined($PROXYUSER) and defined($PROXYPASSWD) and
$PROXYUSER ne "" and $PROXYPASSWD ne "") {
return ($PROXYUSER, $PROXYPASSWD);
} else {
return (undef, undef)
}
}
}
( run in 0.254 second using v1.01-cache-2.11-cpan-4d50c553e7e )