File Coverage

blib/lib/Webservice/Rosary/API.pm

Criterion	Covered	Total	%
statement	18	44	40.9
branch	0	10	0.0
condition	0	3	0.0
subroutine	6	10	60.0
pod	3	4	75.0
total	27	71	38.0

package Webservice::Rosary::API;

use v5.10;
use strict;

use Util::H2O::More qw/baptise ddd HTTPTiny2h2o h2o o2d/;
use HTTP::Tiny qw//;

our $VERSION = "0.1.5";

use constant {
  BASEURL  => "https://the-rosary-api.vercel.app/v1",
  DAILYURL => "https://dailyrosary.cf",
};

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

sub _make_call {
  my ($self, $when) = @_;
  my $URL = sprintf "%s/%s", BASEURL, $when;
  my $resp = HTTPTiny2h2o $self->ua->get($URL);
  return $resp->content;
}

sub mp3Link {
  my ($self, $when) = @_;
  my @mp3 = qw/today yesterday tomorrow random/;
  # invalid
  return "" if (not grep { m/^$when$/i } @mp3);
  # valid
  my $resp = $self->_make_call($when);
  my $ref = $resp->shift;
  # the problem here is that this API call in the past has returned
  # a JSON hash rather than an array in some cases; in other cases
  # it has returned an empty JSON array
  if (my $ref = $resp->shift) {
    return sprintf "%s/%s", DAILYURL, $ref->mp3Link;
  }
  elsif (ref o2d $resp ne "ARRAY" and my $file = $resp->mp3Link) {
    return sprintf "%s/%s", DAILYURL, $file;
  }
  else {
    warn "\nNo content in response from https://therosaryapi.cf ... try the following links:\n";
    warn <

    https://www.discerninghearts.com/catholic-podcasts/holy-rosary/ -

      + https://www.discerninghearts.com/Devotionals/Rosary-Joyful-Mysteries.mp3

      + https://www.discerninghearts.com/Devotionals/Rosary-Luminous-Mysteries.mp3

      + https://www.discerninghearts.com/Devotionals/Rosary-Sorrowful-Mysteries.mp3

      + https://www.discerninghearts.com/Devotionals/Rosary-Glorious-Mysteries.mp3

... please try back again later
EOF
    die "\n";
  }
}

sub day {
  my ($self, $when) = @_;
  my @days = qw/sunday monday tuesday wednesday thursday friday/;
  return "" if (not grep { m/^$when$/i } @days);
  return $self->_make_call($when)->get(0);
}

# Get detailed recitations
sub details {
  my ($self, $when) = @_;
  my @mysteries = qw/joyful glorious sorrowful luminous/;
  return "" if (not grep { m/^$when$/i } @mysteries);
  return $self->_make_call($when);
}

123

__END__