NAME

GD::Barcode::UPCA - Create UPC-A barcode image with GD

SYNOPSIS

ex. CGI

use GD::Barcode::UPCA;
binmode(STDOUT);
print "Content-Type: image/png\n\n";
print GD::Barcode::UPCA->new('12345678901')->plot->png;

with Error Check

my $oGdBar = GD::Barcode::UPCA->new('123456789');
die $GD::Barcode::UPCA::errStr unless($oGdBar);	#Invalid Length

DESCRIPTION

GD::Barcode::UPCA is a subclass of GD::Barcode and allows you to create UPC-A barcode image with GD.

new

$oGdBar = GD::Barcode::UPCA->new($sTxt);

Constructor. Creates a GD::Barcode::UPCA object for $sTxt. $sTxt has 11 or 12 numeric characters([0-9]). If $sTxt has 11 characters, this module calacurates CD for you.

plot()

$oGd = $oGdBar->plot([Height => $iHeight, NoText => 0 | 1]);

creates GD object with barcode image for the $sTxt specified at new method. $iHeight is height of the image. If NoText is 1, the image has no text image of $sTxt.

ex.
 my $oGdB = GD::Barcode::UPCA->new('12345678901');
 my $oGD = $oGdB->plot(NoText=>1, Height => 20);
 # $sGD is a GD image with Height=>20 pixels, with no text.

barcode()

$sPtn = $oGdBar->barcode();

returns a barcode pattern in string with '1', 'G' and '0'. '1' means black, 'G' also means black but little bit long, '0' means white.

ex.
 my $oGdB = GD::Barcode::UPCA->new('12345678901');
 my $sPtn = $oGdB->barcode();
 # $sPtn = '';

$errStr

$GD::Barcode::UPCA::errStr

has error message.

$text

$oGdBar->{$text}

has barcode text based on $sTxt specified in new method.

AUTHOR

Kawai Takanori GCD00051@nifty.ne.jp

SEE ALSO

GD::Barcode