while (my ($key, $value) = each %options) {
if ($key eq 'pdf_export') {
$self->{options}->{pdf_export}->{$_} = $value->{$_} for keys %{ $value };
while (my ($key, $value) = each %options) {
if ($key eq 'pdf_export') {
$self->{options}->{pdf_export}->{$_} = $value->{$_} for keys %{ $value };