use strict;
use warnings;
package App::bovespa;
use LWP::UserAgent;
use JSON;
my $agent_string = "Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0";
sub new {
my ( $class ) = @
:single = 1;
my %url_params = (
q => $yahoo_query,
format => "json",
env => "store://datatables.org/alltableswithkeys",
callback => unde
$raw_html = $response->decoded_content;
}else{
die;
}
my $data = decode_json $raw_html;
return $data->{ query }{ results }{ quote }{ Bid };
}
=head1 NAME
App::bovespa