diff options
author | gregor herrmann <gregoa@debian.org> | 2023-12-15 21:25:55 +0100 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2023-12-15 21:25:55 +0100 |
commit | 900134cb227e50fe9047d0f48707ec7899c8c1f0 (patch) | |
tree | fe5bc6f0e7e00ccf9ad39ee858720d842bb82a1f /lib/PDF/Builder/Resource/XObject/Form/BarCode.pm | |
parent | 00c23136faf4a0a7015ba5f8daecb98fb33ba6cc (diff) | |
parent | e2f017af7599617065e54b1ad68a0ccc6afaf980 (diff) |
Update upstream source from tag 'upstream/3.026'
Update to upstream version '3.026'
with Debian dir d8536bf85ae20bcf7ac21ae3322a229ea3f49b28
Diffstat (limited to 'lib/PDF/Builder/Resource/XObject/Form/BarCode.pm')
-rw-r--r-- | lib/PDF/Builder/Resource/XObject/Form/BarCode.pm | 37 |
1 files changed, 27 insertions, 10 deletions
diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode.pm index caf94ac..dc410e4 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode.pm @@ -5,8 +5,8 @@ use base 'PDF::Builder::Resource::XObject::Form::Hybrid'; use strict; use warnings; -our $VERSION = '3.025'; # VERSION -our $LAST_UPDATE = '3.024'; # manually update whenever code is changed +our $VERSION = '3.026'; # VERSION +our $LAST_UPDATE = '3.026'; # manually update whenever code is changed use PDF::Builder::Util; use PDF::Builder::Basic::PDF::Utils; @@ -17,12 +17,16 @@ PDF::Builder::Resource::XObject::Form::BarCode - Base class for one-dimensional =head1 METHODS -=over +=head2 new + + $barcode = PDF::Builder::Resource::XObject::Form::BarCode->new($pdf, %options) -=item $barcode = PDF::Builder::Resource::XObject::Form::BarCode->new($pdf, %options) +=over Creates a barcode form resource. +=back + =cut sub new { @@ -179,7 +183,15 @@ sub drawbar { return; } -=item $width = $barcode->width() +=head2 width + + $width = $barcode->width() + +=over + +Returns the width of the bar code. + +=back =cut @@ -189,18 +201,23 @@ sub width { return $self->{' w'}; } -=item $height = $barcode->height() +=head2 height + + $height = $barcode->height() + +=over + +Returns the height of the bar code. + +=back =cut + sub height { my $self = shift; return $self->{' h'}; } -=back - -=cut - 1; |