package PPD::PJL;

use Exporter 'import';
our @EXPORT = qw(jopt);

use PPD;

sub add_jcl(;$) {
	my $opt = $_[0] // {};
	set('JCLBegin', '<1B>%-12345X@PJL<0A>');
	set('JCLToPSInterpreter', '@PJL ENTER LANGUAGE = POSTSCRIPT<0A>');
	set('JCLToPDFInterpreter', '@PJL ENTER LANGUAGE = PDF<0A>') if $opt->{PDF};
	set('JCLEnd', '<1B>%-12345X@PJL EOJ<0A><1B>%-12345X<0A>');
}

sub jopt {
	my $out = "";
	while (@_) {
		my $key = shift @_;
		my $val = shift @_;
		$out .= sprintf('@PJL SET %s=%s<0A>', $key, $val);
	}
	return $out;
}

42;