#!/usr/bin/perl

use strict;
use warnings;

use PDF::WebKit;
use Mojo::UserAgent;

# Change to Letter, or whatever
my $pagesize = 'A4';

# URLs for metacpan API and POD
my $metacpanapi = 'https://fastapi.metacpan.org/v1/module/';
my $metacpanpod = 'https://metacpan.org/pod/';

my ($module) = @ARGV 
  or die "no module specified: $0 Module::Name";

my $ua = Mojo::UserAgent->new();

# check metacpan for distribution
my $dist = $ua->get( $metacpanapi.$module )->res->json->{distribution}
  or die "Can't find $module. Are you sure it exists in the CPAN?\n";

# default filename is distname.pod.pdf
my $pdffilename = $dist . '.pod.pdf';
$dist =~ s/-/::/g;

$metacpanpod .= $dist;

# create PDF
my $kit = PDF::WebKit->new( $metacpanpod, page_size => $pagesize );

my $pdf = $kit->to_pdf;
 
# save the PDF to a file