diff options
Diffstat (limited to 'lib/PDF/Builder/Resource/XObject/Form')
7 files changed, 111 insertions, 27 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; diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode/codabar.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode/codabar.pm index f6276aa..dbc3c7e 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode/codabar.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode/codabar.pm @@ -5,13 +5,26 @@ use base 'PDF::Builder::Resource::XObject::Form::BarCode'; 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 =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 diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode/code128.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode/code128.pm index 1d582ae..93fc5bc 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode/code128.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode/code128.pm @@ -5,8 +5,8 @@ use base 'PDF::Builder::Resource::XObject::Form::BarCode'; 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 =head1 NAME @@ -14,11 +14,14 @@ PDF::Builder::Resource::XObject::Form::BarCode::code128 - Code 128 and EAN-128 b =head1 METHODS -=over +=head2 new + + $res = PDF::Builder::Resource::XObject::Form::BarCode::code128->new($pdf, %options) -=item $res = PDF::Builder::Resource::XObject::Form::BarCode::code128->new($pdf, %options) +=over Returns a code128 object. Use 'ean' option to encode using EAN128 mode. +Note that this should be invoked via the Builder.pm method! =back diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode/code3of9.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode/code3of9.pm index eba3c9f..d937786 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode/code3of9.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode/code3of9.pm @@ -5,13 +5,26 @@ use base 'PDF::Builder::Resource::XObject::Form::BarCode'; 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 =head1 NAME PDF::Builder::Resource::XObject::Form::BarCode::code3of9 - specific information for 3-of-9 bar codes. Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode> +=head1 METHODS + +=head2 new + + PDF::Builder::Resource::XObject::Form::BarCode::code3of9->new() + +=over + +Create a Code 3 of 9 bar code object. Note that it is invoked from the +Builder.pm level method! + +=back + =cut sub new { diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode/ean13.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode/ean13.pm index ecdd89e..57bd07c 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode/ean13.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode/ean13.pm @@ -5,13 +5,26 @@ use base 'PDF::Builder::Resource::XObject::Form::BarCode'; 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 =head1 NAME PDF::Builder::Resource::XObject::Form::BarCode::ean13 - specific information for EAN-13 bar codes. Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode> +=head1 METHODS + +=head2 new + + PDF::Builder::Resource::XObject::Form::BarCode::ean13->new() + +=over + +Create an EAN-13 bar code object. Note that it is invoked from the Builder.pm +level method! + +=back + =cut sub new { diff --git a/lib/PDF/Builder/Resource/XObject/Form/BarCode/int2of5.pm b/lib/PDF/Builder/Resource/XObject/Form/BarCode/int2of5.pm index 8294a65..a0a7387 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/BarCode/int2of5.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/BarCode/int2of5.pm @@ -5,12 +5,25 @@ use base 'PDF::Builder::Resource::XObject::Form::BarCode'; 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 =head1 NAME -PDF::Builder::Resource::XObject::Form::BarCode::int2of5 - specific information for int 2-of-5 bar codes. Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode> +PDF::Builder::Resource::XObject::Form::BarCode::int2of5 - specific information for interleaved 2-of-5 bar codes. Inherits from L<PDF::Builder::Resource::XObject::Form::BarCode> + +=head1 METHODS + +=head2 new + + PDF::Builder::Resource::XObject::Form::BarCode::int2of5->new() + +=over + +Create an Interleaved 2 of 5 bar code object. Note that it is invoked from the +Builder.pm level method! + +=back =cut diff --git a/lib/PDF/Builder/Resource/XObject/Form/Hybrid.pm b/lib/PDF/Builder/Resource/XObject/Form/Hybrid.pm index 182672c..97238bf 100644 --- a/lib/PDF/Builder/Resource/XObject/Form/Hybrid.pm +++ b/lib/PDF/Builder/Resource/XObject/Form/Hybrid.pm @@ -5,8 +5,8 @@ use base qw(PDF::Builder::Content PDF::Builder::Content::Text PDF::Builder::Reso use strict; use warnings; -our $VERSION = '3.025'; # VERSION -our $LAST_UPDATE = '3.016'; # 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::Basic::PDF::Dict; use PDF::Builder::Basic::PDF::Utils; @@ -15,6 +15,18 @@ use PDF::Builder::Resource::XObject::Form; PDF::Builder::Resource::XObject::Form::Hybrid - support routines for Forms. Inherits from L<PDF::Builder::Content>, L<PDF::Builder::Content::Text>, and L<PDF::Builder::Resource::XObject::Form> +=head1 METHODS + +=head2 new + + PDF::Builder::Resource::XObject::Form->new(args) + +=over + +Create a new object for a form. + +=back + =cut sub new { @@ -27,7 +39,7 @@ sub new { $self->{' charspace'} = 0; $self->{' hscale'} = 100; $self->{' wordspace'} = 0; - $self->{' lead'} = 0; + $self->{' leading'} = 0; $self->{' rise'} = 0; $self->{' render'} = 0; $self->{' matrix'} = [1, 0, 0, 1, 0, 0]; @@ -57,7 +69,7 @@ sub outobjdeep { # # missing: stream, poststream, apiistext # # added: api, apipdf, apipage # foreach my $key (qw(api apipdf apipage font fontsize charspace hscale -# wordspace lead rise render matrix fillcolor +# wordspace leading rise render matrix fillcolor # strokecolor translate scale skew rotate)) { # delete $self->{" $key"}; # } |