Esto es lo único que he encontrado, buscando mucho...
Using perl Syntax Highlighting
head2 PDF::API2::Barcode
Subclassed from PDF::API2::Hybrid.
=item $bc = PDF::API2::Barcode->new $pdfkey, %options
Returns a new barcode object (called from $pdf->barcode).
B<Example:>
PDF::API2::Barcode->new(
$key,
-font => $fontobj, # the font to use for text
-type => '3of9', # the type of barcode
-code => '0123456789', # the code of the barcode
-extn => '012345', # the extension of the barcode
# (if applicable)
-umzn => 10, # (u)pper (m)ending (z)o(n)e
-lmzn => 10, # (l)ower (m)ending (z)o(n)e
-zone => 50, # height (zone) of bars
-quzn => 10, # (qu)iet (z)o(n)e
-ofwt => 0.01, # (o)ver(f)low (w)id(t)h
-fnsz => 10, # (f)o(n)t(s)i(z)e
-text => 'alternative text'
);
B<Note:> There is currently only support for the following barcodes:
3of9, 3of9ext, 3of9chk, 3of9extchk,
code128a, code128b, code128c, ean128,
ean13
=item $wd = $bc->width
=item $ht = $bc->height
=head1 AUTHOR
alfred reibenschuh
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Corresponde a la versión anterior de PDF::API2, así que no deberías copiar el ejemplo literalmente, pero sí ver la definición de las opciones.
Además, en el código de
PDF::API2::Resource::XObject::Form::BarCode aparece:
Using perl Syntax Highlighting
sub new {
my ($class,$pdf,%opts) = @_;
my $self;
$class = ref $class if ref $class;
$self=$class->SUPER::new($pdf);
$self->{' bfont'}=$opts{-font};
$self->{' umzn'}=$opts{-umzn}; # (u)pper (m)ending (z)o(n)e
$self->{' lmzn'}=$opts{-lmzn}; # (l)ower (m)ending (z)o(n)e
$self->{' zone'}=$opts{-zone};
$self->{' quzn'}=$opts{-quzn}; # (qu)iet (z)o(n)e
$self->{' ofwt'}=$opts{-ofwt}||0.01; # (o)ver(f)low (w)id(t)h
$self->{' fnsz'}=$opts{-fnsz}; # (f)o(n)t(s)i(z)e
$self->{' spcr'}=$opts{-spcr}||'';
return($self);
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
y ahí hay unas definiciones de las opciones posibles.
