summaryrefslogtreecommitdiff
path: root/lib/PDF/Builder/Resource/XObject/Form/BarCode.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PDF/Builder/Resource/XObject/Form/BarCode.pm')
-rw-r--r--lib/PDF/Builder/Resource/XObject/Form/BarCode.pm37
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;