Dashboard
PHP:
8.1.34
OS:
Linux
User:
uid288609
/
/
usr
/
share
/
perl5
/
PDF
/
API2
/
Resource
/
XObject
/
Form
/
BarCode
đ€ Upload
đ New File
đ New Folder
Close
Editing: codabar.pm
package PDF::API2::Resource::XObject::Form::BarCode::codabar; use base 'PDF::API2::Resource::XObject::Form::BarCode'; use strict; use warnings; our $VERSION = '2.038'; # VERSION sub new { my ($class, $pdf, %options) = @_; my $self = $class->SUPER::new($pdf, %options); my @bars = $self->encode($options{'-code'}); $self->drawbar([@bars], $options{'caption'}); return $self; } my $codabar = q|0123456789-$:/.+ABCD|; my @barcodabar = qw( 11111221 11112211 11121121 22111111 11211211 21111211 12111121 12112111 12211111 21121111 11122111 11221111 21112121 21211121 21212111 11212121 aabbabaa ababaaba ababaaba aaabbbaa ); sub encode_char { my $self = shift(); my $char = uc shift(); return $barcodabar[index($codabar, $char)]; } 1;
Save
Cancel