File Coverage

blib/lib/Acme/Free/API/Stonks.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod	3	3	100.0
total	27	38	71.0

package Acme::Free::API::Stonks;

use strict;
use warnings;

our $VERSION = '1.0.2';

use HTTP::Tiny;
use JSON            qw/decode_json/;
use Util::H2O::More qw/baptise d2o/;

use constant {
    BASEURL => "https://tradestie.com/api/v1/apps/reddit",
};

sub new {
    my $pkg  = shift;
    my $self = baptise { ua => HTTP::Tiny->new }, $pkg;
    return $self;
}

sub get {
    my $self = shift;
    my $resp = d2o $self->ua->get(BASEURL);
    return d2o -autoundef, decode_json $resp->content;
}

sub stonks {
    my $self = shift;
    return $self->get;
}

1;

__END__