Yet Another CPAN Grep

Finance-Google-Portfolio ( G/GR/GRYPHON/Finance-Google-Portfolio-1.08.tar.gz, GRYPHON, 2025; MetaCPAN )

Finance-Google-Portfolio/lib/Finance/Google/Portfolio.pm ( view source; MetaCPAN )

use strict;
use warnings;

use Moo;
use namespace::clean;
use LWP::UserAgent;
use HTML::Form;
use JSON::PP;
use Carp 'croak';
use URI;

our $VERSION = '1.08'; # VERSION

has user      => ( is => 'rwp'

hed => ( is => 'rwp', default => 0 );
has hash      => ( is => 'rwp' );
has json      => ( is => 'ro', default => sub { JSON::PP->new->utf8->allow_barekey } );
has ua        => (
    is      => 'ro',

 s/^\s*google\.finance\.data\s*=\s*//;
    $fgp_data_string =~ s/;$//;

    my $fgp_data = $self->json->decode($fgp_data_string);
    $self->_set_hash( $fgp_data->{common}{hash} );

    return $fgp_da