bpschuck/.FinanceQuote

## .FinanceQuote
Gist for Finance::Quote
Test code snippets and other miscellaneous files.

## C_YahooJSON_v11.pm
#!/usr/bin/perl -w
# vi: set ts=2 sw=2 ic noai showmode showmatch:

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
#    02110-1301, USA

#    Copyright (C) 2023, Bruce Schuck <bschuck@asgard-systems.com>

package Finance::Quote::CurrencyRates::YahooJSON;

use strict;
use warnings;

use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';

use JSON;

# VERSION

my $YIND_URL_HEAD = 'https://query2.finance.yahoo.com/v11/finance/quoteSummary/?symbols=';
my $YIND_URL_TAIL = '&modules=price';
my $browser = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10_1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36';

sub new
{
  my $self = shift;
  my $class = ref($self) || $self;

  my $this = {};
  bless $this, $class;

  my $args = shift;

  ### YahooJSON->new args : $args

  return $this;
}

sub multipliers
{
  my ($this, $ua, $from, $to) = @_;

  my $json_data;
  my $rate;

  my $cookie_jar = HTTP::Cookies->new();

  $ua->cookie_jar( $cookie_jar );
  $ua->agent($browser);

  # get Yahoo cookies that are needed for crumb
  my $reply = $ua->get('https://login.yahoo.com');

  # get the crumb that corrosponds to cookies retrieved
  $reply = $ua->get('https://query2.finance.yahoo.com/v1/test/getcrumb');
  my $crumb = $reply->content;

  $reply = $ua->get($YIND_URL_HEAD
    . ${from}
    . ${to}
    . '%3DX'
    . '&crumb=' . $crumb
    . $YIND_URL_TAIL);

  ### HTTP Status: $reply->code
  return unless ($reply->code == 200);

  my $body = $reply->content;

  $json_data = JSON::decode_json $body;

  ### JSON: $json_data

  if ( !$json_data || !$json_data->{'quoteSummary'}->{'result'}->[0]->{'price'}->{'regularMarketPrice'}{'raw'} ) {
    return;
  }

  $rate =
    $json_data->{'quoteSummary'}->{'result'}->[0]->{'price'}->{'regularMarketPrice'}{'raw'};

  ### Rate from JSON: $rate

  return unless $rate + 0;

  # For small rates, request the inverse
  if ($rate < 0.001) {
    ### Rate is too small, requesting inverse : $rate
    my ($a, $b) = $this->multipliers($ua, $to, $from);
    return ($b, $a);
  }

  return (1.0, $rate);
}


1;

=head1 NAME

Finance::Quote::CurrencyRates::YahooJSON - Obtain currency rates from
https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price

=head1 SYNOPSIS

    use Finance::Quote;

    $q = Finance::Quote->new(currency_rates => {order => ['YahooJSON']});

    $value = $q->currency('18.99 EUR', 'USD');

=head1 DESCRIPTION

This module fetches currency rates from
https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price
provides data to Finance::Quote to convert the first argument to the equivalent
value in the currency indicated by the second argument.

This module is not the default currency conversion module for a Finance::Quote
object.

=head1 Terms & Conditions

Use of https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price is
governed by any terms & conditions of that site.

Finance::Quote is released under the GNU General Public License, version 2,
which explicitly carries a "No Warranty" clause.

=cut

## C_YahooJSON_v8.pm
#!/usr/bin/perl -w
# vi: set ts=2 sw=2 ic noai showmode showmatch:

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
#    02110-1301, USA

#    Copyright (C) 2023, Bruce Schuck <bschuck@asgard-systems.com>

#    Changes:
#    2024-04-13 - Changed to use
#    https://query1.finance.yahoo.com/v8/finance/chart/

package Finance::Quote::CurrencyRates::YahooJSON;

use strict;
use warnings;

use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';

use JSON;

# VERSION

my $YIND_URL_HEAD = 'https://query1.finance.yahoo.com/v8/finance/chart/';
my $YIND_URL_TAIL = '?metrics=high&interval=1d&range=1d';

sub new
{
  my $self = shift;
  my $class = ref($self) || $self;

  my $this = {};
  bless $this, $class;

  my $args = shift;

  ### YahooJSON->new args : $args

  return $this;
}

sub multipliers
{
  my ($this, $ua, $from, $to) = @_;

  my $json_data;
  my $rate;
  my $reply = $ua->get($YIND_URL_HEAD
      . ${from}
      . ${to}
      . '%3DX'
      . $YIND_URL_TAIL);

  ### HTTP Status: $reply->code
  return unless ($reply->code == 200);

  my $body = $reply->content;

  $json_data = JSON::decode_json $body;

  ### JSON: $json_data

  if ( !$json_data || !$json_data->{'chart'}->{'result'}->[0]->{'meta'}->{'regularMarketPrice'} ) {
    return;
  }

  $rate =
    $json_data->{'chart'}->{'result'}->[0]->{'meta'}->{'regularMarketPrice'};

  ### Rate from JSON: $rate

  return unless $rate + 0;

  # For small rates, request the inverse
  if ($rate < 0.001) {
    ### Rate is too small, requesting inverse : $rate
    my ($a, $b) = $this->multipliers($ua, $to, $from);
    return ($b, $a);
  }

  return (1.0, $rate);
}


1;

=head1 NAME

Finance::Quote::CurrencyRates::YahooJSON - Obtain currency rates from
https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price

=head1 SYNOPSIS

    use Finance::Quote;

    $q = Finance::Quote->new(currency_rates => {order => ['YahooJSON']});

    $value = $q->currency('18.99 EUR', 'USD');

=head1 DESCRIPTION

This module fetches currency rates from
https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price
provides data to Finance::Quote to convert the first argument to the equivalent
value in the currency indicated by the second argument.

This module is not the default currency conversion module for a Finance::Quote
object.

=head1 Terms & Conditions

Use of https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price is
governed by any terms & conditions of that site.

Finance::Quote is released under the GNU General Public License, version 2,
which explicitly carries a "No Warranty" clause.

=cut

## Module-Template.pm
#!/usr/bin/perl -w
# vi: set ts=2 sw=2 noai ic showmode showmatch:
#
#    Copyright (C) 2023, Bruce Schuck <bschuck@asgard-systems.com>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
#    02110-1301, USA
#

package Finance::Quote::FooBar;

use strict;
use warnings;

use Encode qw(decode);
use HTTP::Request::Common;

use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments', '###';

# VERSION

my $BVB_URL = 'https://bvb.ro/FinancialInstruments/Details/FinancialInstrumentsDetails.aspx?s=';

sub methods {
  return (bvb        => \&foobar,
          romania    => \&foobar,
          tradeville => \&foobar,
          europe     => \&foobar);
}

our @labels = qw/symbol name open high low last bid ask date currency method/;

sub labels {
  return (foobar     => \@labels,
          romania    => \@labels,
          tradeville => \@labels,
          europe     => \@labels);
}

sub foobar {

  my $quoter = shift;
  my @stocks = @_;
  my (%info, $tree, $table, $pricetable, $url, $reply);
  my $ua = $quoter->user_agent();

  foreach my $stock (@stocks) {

    $url   = $BVB_URL . $stock;
    $reply = $ua->request( GET $url);

    my $code    = $reply->code;
    my $desc    = HTTP::Status::status_message($code);
    my $headers = $reply->headers_as_string;
    my $body    = decode('UTF-8', $reply->content);

    ### Body: $body

    my ($name, $bid, $ask, $last, $open, $high, $low, $date);

    $info{ $stock, "symbol" } = $stock;

    if ( $code == 200 ) {

      # Use HTML::TreeBuilder to parse HTML in $body
      $tree = HTML::TreeBuilder->new;
      if ($tree->parse($body)) {

        $tree->eof;
        if ( $tree->look_down(_tag => 'div', id => 'ctl00_body_divNoData') ) {
          $info{ $stock, "success" } = 0;
          $info{ $stock, "errormsg" } =
            "Error retrieving quote for $stock. No data returned";
          next;
        }
        $name = $tree->look_down(_tag => 'h2', class => qr/^mBot0 large textStyled/)->as_text;
        $info{ $stock, 'success' } = 1;
        ($info{ $stock, 'name' } = $name) =~ s/^\s+|\s+$//g ;
        $info{ $stock, 'currency' } = 'RON';
        $info{ $stock, 'method' } = 'bvb';
        $table = $tree->look_down(_tag => 'table', id => qr/^ctl00_body_ctl02_PricesControl_dvCPrices/)->as_HTML;
        $pricetable = HTML::TableExtract->new();
        $pricetable->parse($table);
        foreach my $row ($pricetable->rows) {
          if ( @$row[0] =~ m/Ask$/ ) {
            ($bid, $ask) = @$row[1] =~ m|^\s+([\d\.]+)\s+\/\s+([\d\.]+)|;
            $info{ $stock, 'bid' } = $bid;
            $info{ $stock, 'ask' } = $ask;
          }
          elsif ( @$row[0] =~ m|^Date/time| ) {
            ($date) = @$row[1] =~ m|^([\d/]+)\s|;
            $quoter->store_date(\%info, $stock, {usdate => $1}) if $date =~ m|([0-9]{1,2}/[0-9]{2}/[0-9]{4})|;
          }
          elsif ( @$row[0] =~ m|^Last price| ) {
            ($last) = @$row[1] =~ m|^([\d\.]+)|;
            $info{ $stock, 'last' } = $last;
          }
          elsif ( @$row[0] =~ m|^Open price| ) {
            ($open) = @$row[1] =~ m|^([\d\.]+)|;
            $info{ $stock, 'open' } = $open;
          }
          elsif ( @$row[0] =~ m|^High price| ) {
            ($high) = @$row[1] =~ m|^([\d\.]+)|;
            $info{ $stock, 'high' } = $high;
          }
          elsif ( @$row[0] =~ m|^Low price| ) {
            ($low) = @$row[1] =~ m|^([\d\.]+)|;
            $info{ $stock, 'low' } = $low;
          }
        }

      } else {
        $tree->eof;
        $info{ $stock, "success" } = 0;
        $info{ $stock, "errormsg" } =
          "Error retrieving quote for $stock. Could not parse HTML returned from $url.";
      }

    } else {       # HTTP Request failed (code != 200)
      $info{ $stock, "success" } = 0;
      $info{ $stock, "errormsg" } =
        "Error retrieving quote for $stock. Attempt to fetch the URL $url resulted in HTTP response $code ($desc)";
    }

  }

  return wantarray() ? %info : \%info;
  return \%info;

}

1;

__END__

=head1 NAME

Finance::Quote::FooBar - Obtain quotes from FooBar Stock Exchange.

=head1 SYNOPSIS

    use Finance::Quote;

    $q = Finance::Quote->new;

    %info = $q->fetch("foobar", "tlv");  # Only query foobar

    %info = $q->fetch("romania", "brd");     # Failover to other sources OK.

=head1 DESCRIPTION

This module fetches information from L<https://foobar.ro/>.

This module is loaded by default on a Finance::Quote object. It's also possible
to load it explicitly by placing "foobar" in the argument list to
Finance::Quote->new().

This module provides "foobar", "tradeville", "romania", and "europe"
fetch methods. It was written to replace a non-working Tradeville.pm
module.

Information obtained by this module may be covered by Bucharest Stock
Exchange terms and conditions.

=head1 LABELS RETURNED

The following labels are returned:

=over

=item name

=item symbol

=item open

=item high

=item low

=item price

=item bid

=item ask

=item date

=item currency

=back

## bloomberg-session.chls

      
    Raw
  

              bloomberg-session.chls
            
          
      This file has been truncated, but you can view the full file.
    

            View raw
        
    
## bloomberg-session_2.chls

      
    Raw
  

              bloomberg-session_2.chls
            
          
            View raw
              (Sorry about that, but we can’t show files that are this big right now.)
        
    
## datetest.pl

      
    Raw
  

              datetest.pl
            
          
            View raw
              (Sorry about that, but we can’t show files that are this big right now.)
        
    
## methodinfo

      
    Raw
  

              methodinfo
            
          
            View raw
              (Sorry about that, but we can’t show files that are this big right now.)
        
    
## test-ms.pl

      
    Raw
  

              test-ms.pl
            
          
            View raw
              (Sorry about that, but we can’t show files that are this big right now.)
        
    
## test-stooq.pl

      
    Raw
  

              test-stooq.pl
            
          
            View raw
              (Sorry about that, but we can’t show files that are this big right now.)
	Gist for Finance::Quote
	Test code snippets and other miscellaneous files.
	#!/usr/bin/perl -w
	# vi: set ts=2 sw=2 ic noai showmode showmatch:

	# This program is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# This program is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with this program; if not, write to the Free Software
	# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
	# 02110-1301, USA

	# Copyright (C) 2023, Bruce Schuck <bschuck@asgard-systems.com>

	package Finance::Quote::CurrencyRates::YahooJSON;

	use strict;
	use warnings;

	use constant DEBUG => $ENV{DEBUG};
	use if DEBUG, 'Smart::Comments';

	use JSON;

	# VERSION

	my $YIND_URL_HEAD = 'https://query2.finance.yahoo.com/v11/finance/quoteSummary/?symbols=';
	my $YIND_URL_TAIL = '&modules=price';
	my $browser = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10_1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36';

	sub new
	{
	my $self = shift;
	my $class = ref($self) \|\| $self;

	my $this = {};
	bless $this, $class;

	my $args = shift;

	### YahooJSON->new args : $args

	return $this;
	}

	sub multipliers
	{
	my ($this, $ua, $from, $to) = @_;

	my $json_data;
	my $rate;

	my $cookie_jar = HTTP::Cookies->new();

	$ua->cookie_jar( $cookie_jar );
	$ua->agent($browser);

	# get Yahoo cookies that are needed for crumb
	my $reply = $ua->get('https://login.yahoo.com');

	# get the crumb that corrosponds to cookies retrieved
	$reply = $ua->get('https://query2.finance.yahoo.com/v1/test/getcrumb');
	my $crumb = $reply->content;

	$reply = $ua->get($YIND_URL_HEAD
	. ${from}
	. ${to}
	. '%3DX'
	. '&crumb=' . $crumb
	. $YIND_URL_TAIL);

	### HTTP Status: $reply->code
	return unless ($reply->code == 200);

	my $body = $reply->content;

	$json_data = JSON::decode_json $body;

	### JSON: $json_data

	if ( !$json_data \|\| !$json_data->{'quoteSummary'}->{'result'}->[0]->{'price'}->{'regularMarketPrice'}{'raw'} ) {
	return;
	}

	$rate =
	$json_data->{'quoteSummary'}->{'result'}->[0]->{'price'}->{'regularMarketPrice'}{'raw'};

	### Rate from JSON: $rate

	return unless $rate + 0;

	# For small rates, request the inverse
	if ($rate < 0.001) {
	### Rate is too small, requesting inverse : $rate
	my ($a, $b) = $this->multipliers($ua, $to, $from);
	return ($b, $a);
	}

	return (1.0, $rate);
	}


	1;

	=head1 NAME

	Finance::Quote::CurrencyRates::YahooJSON - Obtain currency rates from
	https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price

	=head1 SYNOPSIS

	use Finance::Quote;

	$q = Finance::Quote->new(currency_rates => {order => ['YahooJSON']});

	$value = $q->currency('18.99 EUR', 'USD');

	=head1 DESCRIPTION

	This module fetches currency rates from
	https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price
	provides data to Finance::Quote to convert the first argument to the equivalent
	value in the currency indicated by the second argument.

	This module is not the default currency conversion module for a Finance::Quote
	object.

	=head1 Terms & Conditions

	Use of https://query2.finance.yahoo.com/v11/finance/quoteSummary/...?modules=price is
	governed by any terms & conditions of that site.

	Finance::Quote is released under the GNU General Public License, version 2,
	which explicitly carries a "No Warranty" clause.

	=cut
	#!/usr/bin/perl -w
	# vi: set ts=2 sw=2 noai ic showmode showmatch:
	#
	# Copyright (C) 2023, Bruce Schuck <bschuck@asgard-systems.com>
	#
	# This program is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# This program is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with this program; if not, write to the Free Software
	# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
	# 02110-1301, USA
	#

	package Finance::Quote::FooBar;

	use strict;
	use warnings;

	use Encode qw(decode);
	use HTTP::Request::Common;

	use constant DEBUG => $ENV{DEBUG};
	use if DEBUG, 'Smart::Comments', '###';

	# VERSION

	my $BVB_URL = 'https://bvb.ro/FinancialInstruments/Details/FinancialInstrumentsDetails.aspx?s=';

	sub methods {
	return (bvb => \&foobar,
	romania => \&foobar,
	tradeville => \&foobar,
	europe => \&foobar);
	}

	our @labels = qw/symbol name open high low last bid ask date currency method/;

	sub labels {
	return (foobar => \@labels,
	romania => \@labels,
	tradeville => \@labels,
	europe => \@labels);
	}

	sub foobar {

	my $quoter = shift;
	my @stocks = @_;
	my (%info, $tree, $table, $pricetable, $url, $reply);
	my $ua = $quoter->user_agent();

	foreach my $stock (@stocks) {

	$url = $BVB_URL . $stock;
	$reply = $ua->request( GET $url);

	my $code = $reply->code;
	my $desc = HTTP::Status::status_message($code);
	my $headers = $reply->headers_as_string;
	my $body = decode('UTF-8', $reply->content);

	### Body: $body

	my ($name, $bid, $ask, $last, $open, $high, $low, $date);

	$info{ $stock, "symbol" } = $stock;

	if ( $code == 200 ) {

	# Use HTML::TreeBuilder to parse HTML in $body
	$tree = HTML::TreeBuilder->new;
	if ($tree->parse($body)) {

	$tree->eof;
	if ( $tree->look_down(_tag => 'div', id => 'ctl00_body_divNoData') ) {
	$info{ $stock, "success" } = 0;
	$info{ $stock, "errormsg" } =
	"Error retrieving quote for $stock. No data returned";
	next;
	}
	$name = $tree->look_down(_tag => 'h2', class => qr/^mBot0 large textStyled/)->as_text;
	$info{ $stock, 'success' } = 1;
	($info{ $stock, 'name' } = $name) =~ s/^\s+\|\s+$//g ;
	$info{ $stock, 'currency' } = 'RON';
	$info{ $stock, 'method' } = 'bvb';
	$table = $tree->look_down(_tag => 'table', id => qr/^ctl00_body_ctl02_PricesControl_dvCPrices/)->as_HTML;
	$pricetable = HTML::TableExtract->new();
	$pricetable->parse($table);
	foreach my $row ($pricetable->rows) {
	if ( @$row[0] =~ m/Ask$/ ) {
	($bid, $ask) = @$row[1] =~ m\|^\s+([\d\.]+)\s+\/\s+([\d\.]+)\|;
	$info{ $stock, 'bid' } = $bid;
	$info{ $stock, 'ask' } = $ask;
	}
	elsif ( @$row[0] =~ m\|^Date/time\| ) {
	($date) = @$row[1] =~ m\|^([\d/]+)\s\|;
	$quoter->store_date(\%info, $stock, {usdate => $1}) if $date =~ m\|([0-9]{1,2}/[0-9]{2}/[0-9]{4})\|;
	}
	elsif ( @$row[0] =~ m\|^Last price\| ) {
	($last) = @$row[1] =~ m\|^([\d\.]+)\|;
	$info{ $stock, 'last' } = $last;
	}
	elsif ( @$row[0] =~ m\|^Open price\| ) {
	($open) = @$row[1] =~ m\|^([\d\.]+)\|;
	$info{ $stock, 'open' } = $open;
	}
	elsif ( @$row[0] =~ m\|^High price\| ) {
	($high) = @$row[1] =~ m\|^([\d\.]+)\|;
	$info{ $stock, 'high' } = $high;
	}
	elsif ( @$row[0] =~ m\|^Low price\| ) {
	($low) = @$row[1] =~ m\|^([\d\.]+)\|;
	$info{ $stock, 'low' } = $low;
	}
	}

	} else {
	$tree->eof;
	$info{ $stock, "success" } = 0;
	$info{ $stock, "errormsg" } =
	"Error retrieving quote for $stock. Could not parse HTML returned from $url.";
	}

	} else { # HTTP Request failed (code != 200)
	$info{ $stock, "success" } = 0;
	$info{ $stock, "errormsg" } =
	"Error retrieving quote for $stock. Attempt to fetch the URL $url resulted in HTTP response $code ($desc)";
	}

	}

	return wantarray() ? %info : \%info;
	return \%info;

	}

	1;

	__END__

	=head1 NAME

	Finance::Quote::FooBar - Obtain quotes from FooBar Stock Exchange.

	=head1 SYNOPSIS

	use Finance::Quote;

	$q = Finance::Quote->new;

	%info = $q->fetch("foobar", "tlv"); # Only query foobar

	%info = $q->fetch("romania", "brd"); # Failover to other sources OK.

	=head1 DESCRIPTION

	This module fetches information from L<https://foobar.ro/>.

	This module is loaded by default on a Finance::Quote object. It's also possible
	to load it explicitly by placing "foobar" in the argument list to
	Finance::Quote->new().

	This module provides "foobar", "tradeville", "romania", and "europe"
	fetch methods. It was written to replace a non-working Tradeville.pm
	module.

	Information obtained by this module may be covered by Bucharest Stock
	Exchange terms and conditions.

	=head1 LABELS RETURNED

	The following labels are returned:

	=over

	=item name

	=item symbol

	=item open

	=item high

	=item low

	=item price

	=item bid

	=item ask

	=item date

	=item currency

	=back