view release on metacpan or  search on metacpan

lib/App/bovespa.pm  view on Meta::CPAN

sub yahoo {
    my ( $self, $stock ) = @_;

    my $url = "https://query.yahooapis.com/v1/public/yql";

    #$stock = uc $stock . ".sa";
    $stock = uc $stock;
    my $yahoo_query = "select * from yahoo.finance.quotes where symbol in ( \"$stock\" )";

    my $ua = LWP::UserAgent->new();
    $ua->ssl_opts( verify_hostname => 0 );
    $ua->timeout( 10 );

    $DB::single = 1;

    my %url_params = (
        q           => $yahoo_query,
        format      => "json",
        env         => "store://datatables.org/alltableswithkeys", 
        callback    => undef,
    );