Yet Another CPAN Grep

Finance-QuoteHist ( M/MS/MSISK/Finance-QuoteHist-1.32.tar.gz, MSISK, 2021; MetaCPAN )

Finance-QuoteHist/lib/Finance/QuoteHist/Yahoo.pm ( view source; MetaCPAN )

;

use Finance::QuoteHist::Generic;
@ISA = qw(Finance::QuoteHist::Generic);

use Date::Manip;
use JSON;

# curl 'https://query2.finance.yahoo.com/v8/finance/chart/TLSA?formatted=true&crumb=l92p7dftYe%

  my $that = shift;
  my $class = ref($that) || $that;
  my %parms = @_;

  $parms{parse_mode} = 'json';
  $parms{ua_params} ||= {};
  $parms{ua_params}{cookie_jar} ||= {};

  my $self = __PACKAGE__->

   $target_mode eq 'split' ||
                      $target_mode eq 'dividend';

  $parse_mode = "json";

  my $granularity = lc($parms{granularity} || $self->granularity);
  my $grain = 'd';
  $granu