1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
package PDF::Builder::Resource::XObject::Form::BarCode::codabar;
use base 'PDF::Builder::Resource::XObject::Form::BarCode';
use strict;
use warnings;
our $VERSION = '3.028'; # VERSION
our $LAST_UPDATE = '3.027'; # manually update whenever code is changed
=head1 NAME
PDF::Builder::Resource::XObject::Form::BarCode::codabar - Specific information for CodaBar bar codes
Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode>
=head1 METHODS
=head2 new
PDF::Builder::Resource::XObject::Form::BarCode::codabar->new()
=over
Create a Codabar bar code object. Note that it is invoked from the Builder.pm
level method!
=back
=cut
# TBD document code, caption options
sub new {
my ($class, $pdf, %options) = @_;
# copy dashed option names to preferred undashed names
if (defined $options{'-code'} && !defined $options{'code'}) { $options{'code'} = delete($options{'-code'}); }
my $self = $class->SUPER::new($pdf, %options);
my @bars = $self->encode($options{'code'});
$self->drawbar([@bars], $options{'caption'});
return $self;
}
# allowed alphabet and translation to bar widths
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;
|
