File Coverage

blib/lib/GD/Barcode/Industrial2of5.pm

Criterion	Covered	Total	%
statement	35	54	64.8
branch	3	10	30.0
condition			n/a
subroutine	8	10	80.0
pod	3	5	60.0
total	49	79	62.0

package GD::Barcode::Industrial2of5;
use strict;
use warnings;

use GD::Barcode;
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA     = qw(GD::Barcode Exporter);
our $VERSION = '1.99_04';

sub new {
    my ( $sClass, $sTxt ) = @_;
    $errStr = '';
    my $oThis = {};
    bless $oThis, $sClass;
    return if ( $errStr = $oThis->init($sTxt) );
    return $oThis;
}

sub init {
    my ( $oThis, $sTxt ) = @_;

    #Check
    return 'Invalid Characters' if ( $sTxt =~ /[^0-9]/ );

    $oThis->{text} = $sTxt;
    return '';
}

sub barcodeWk {
    my ($sPtn) = @_;
    my $sRes   = '';
    my $sClr   = '1';
    for ( my $i = 0 ; $i < length($sPtn) ; $i++ ) {
        $sRes .= ( substr( $sPtn, $i, 1 ) eq '1' ) ? $sClr x 3 : $sClr;
        $sRes .= '0';
    }
    return $sRes;
}

sub barcode {
    my ($oThis) = @_;
    my $i;
    my $sRes;
    my $sTxt  = $oThis->{text};
    my $rhPtn = {
        'START' => '110',
        '0'     => '00110',
        '1'     => '10001',
        '2'     => '01001',
        '3'     => '11000',
        '4'     => '00101',
        '5'     => '10100',
        '6'     => '01100',
        '7'     => '00011',
        '8'     => '10010',
        '9'     => '01010',
        'STOP'  => '101',
    };
    $sRes = barcodeWk( $rhPtn->{START} );
    for ( $i = 0 ; $i < length($sTxt) ; $i++ ) {
        $sRes .= barcodeWk( $rhPtn->{ substr( $sTxt, $i, 1 ) } );
    }
    $sRes .= barcodeWk( $rhPtn->{STOP} );
    return substr( $sRes, 0, length($sRes) - 1 );
}

sub plot {
    my ( $oThis, %hParam ) = @_;

    my $sTxtWk = $oThis->{text};
    my $sPtn   = $oThis->barcode();

    #Create Image
    my $iHeight = ( $hParam{Height} ) ? $hParam{Height} : 50;
    my ( $oGd, $cBlack );
    if ( $hParam{NoText} ) {
        ( $oGd, $cBlack ) =
          GD::Barcode::plot( $sPtn, length($sPtn), $iHeight, 0, 0 );
    }
    else {
        my ( $fW, $fH ) = ( GD::Font->Small->width, GD::Font->Small->height );
        my $iWidth = length($sPtn);

        #Bar Image
        ( $oGd, $cBlack ) =
          GD::Barcode::plot( $sPtn, $iWidth, $iHeight, $fH, 0 );

        #String
        require GD;
        $oGd->string(
            GD::Font->Small,
            ( length($sPtn) - $fW * ( length($sTxtWk) ) ) / 2,
            $iHeight - $fH,
            $sTxtWk, $cBlack
        );
    }
    return $oGd;
}
1;
__END__