• Files
• Commits
• Log
• Graph
• Stats

package RequestForm::PDF;

use Moo;
use IO::All;
use Data::Dumper;
use File::Temp qw(tempfile);
use Local::MooX::Types qw(String);

has content => ( is => 'ro', isa => String, required => 1 );

sub render {
    my $content = shift->content; # warn Dumper $content;

    my @args = ();
=begin
        '--margin-top 7', # combined with header-spacing to provide optimum layout
        '--header-spacing 2', # provide gap between header & banner
#		qq!--header-left "$report_id"!, # double-quote to allow for eg o'connor
		qq!--header-right 'Printed on: [date]'!, # [date] replaced by system date (in local format)
#        qq!--footer-html $base_addr/$footer!,
        '--header-font-size 8',
        '--margin-bottom 26', # provide space for footer
        '--disable-javascript', # if any
        '--disable-external-links', # no urls
        # '--footer-line', # draw line above - doesn't print
        # '--footer-spacing x', # might need this if long content reaches footer
	);
=cut

    # create temp file for input to wkhtmltopdf:
    my $tmp_file = File::Temp->new(SUFFIX => '.html', UNLINK => 0); # warn $tmp_file;	
	io($tmp_file->filename)->print($content); # save file to disk
    my $pdf = `wkhtmltopdf -q @args $tmp_file -`;
    return $pdf;
    # not required if using File::Temp OO interface (destroy is automatic):
    if ( -e $tmp_file ) {
        io($tmp_file)->unlink or warn "could not unlink $tmp_file: $!";
    }
}

1;