File Coverage

lib/Video/NRK/Cache.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	31	31	100.0

use v5.37.9;
use feature 'class';
no warnings 'experimental::class';

package Video::NRK::Cache 3.02;  # Dist::Zilla doesn't know about class yet

class Video::NRK::Cache;
# ABSTRACT: Cache NRK Video on Demand broadcasts for offline viewing


use Carp qw( croak );
use HTTP::Tiny ();
use JSON::PP qw( decode_json );

use Video::NRK::Cache::ProgramId;
use Video::NRK::Cache::Ytdlp;


my $version = $Video::NRK::Cache::VERSION ? "/$Video::NRK::Cache::VERSION" : " (DEV)";
our %UA_CONFIG = ( agent => "nrkcache$version ", verify_SSL => 1 );


field $program_id;
field $url         :param;
field $psapi_base  :param //= undef;
field $meta        :param ||= {};
field $options     :param ||= {};
field $store_class :param //= 'Video::NRK::Cache::Ytdlp';
field $store;
field $ua = HTTP::Tiny->new( %UA_CONFIG );

# :reader
method program_id () { $program_id }
method url        () { $url }
method store      () { $store }


ADJUST {
	my $prf = Video::NRK::Cache::ProgramId->new(
		ua => $ua,
		parse => $url,
		psapi_base => $psapi_base,
	);
	$program_id = $prf->id or die;
	$psapi_base = $prf->psapi_base;
	$self->get_metadata() unless defined $meta->{title} && defined $meta->{desc};

	$store = $store_class->new(
		program_id => $program_id,
		url        => $url = $prf->url,
		meta_title => $meta->{title},
		meta_desc  => $meta->{desc},
		options    => $options,
	);
}


method get_json ($endpoint) {
	my $json_url = "$psapi_base$endpoint" =~ s/\{id\}/$program_id/r;
	my $res = $ua->get($json_url, {headers => { Accept => 'application/json' }});
	my $error = $res->{status} == 599 ? ": $res->{content}" : "";
	croak "HTTP error $res->{status} $res->{reason} on $res->{url}$error" unless $res->{success};
	return decode_json $res->{content};
}


method get_metadata () {
	my $json = $self->get_json("/playback/metadata/program/{id}");

	my $title = $json->{preplay}{titles}{title} // '';
	if (my $subtitle = $json->{preplay}{titles}{subtitle}) {
		$title .= " $subtitle" if length $subtitle < 30;
		# The "subtitle" sometimes contains the full-length description,
		# which we don't want in the file name.
	}
	$title =~ s/$/-$program_id/ unless $title =~ m/$program_id$/;
	$meta->{title} //= $title;

	my $description = $json->{preplay}{description} // '';
	$description .= " ($program_id)";
	$meta->{desc} //= $description;

	return $meta;
}


1;

__END__