use Digest::MD5;
BEGIN {
}
=head1 NAME
use C4::Context;
use C4::Debug;
sub _check_params {
my $given_params = {};
use C4::Creators::PDF;
# FIXME: Consider this style parameter verification instead...
# my %param = @_;
use File::Temp;
use List::Util qw/first/;
sub _InitVars {
my $self = shift;
use C4::Creators::Lib qw(get_unit_values);
use C4::Creators::Profile;
shift if $_[0] =~ m/::/; # this seems a bit hackish
use autouse 'Data::Dumper' => qw(Dumper);
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
use C4::Biblio;
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
use constant TEMPLATE_TABLE => 'creator_templates';
use MARC::Record;
use C4::Creators::PDF qw(StrWidth);
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
sub new {
my ($invocant, %params) = @_;
=head1 METHODS
use C4::Output;
-