File Coverage

blib/lib/GD/Barcode/ITF.pm

Criterion	Covered	Total	%
statement	49	62	79.0
branch	11	18	61.1
condition			n/a
subroutine	9	10	90.0
pod	3	5	60.0
total	72	95	75.7

package GD::Barcode::ITF;
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]/ );

    #Not Set Chec
    if ( length($sTxt) % 2 ) {
        $sTxt .= calcITFCD($sTxt);
    }
    $oThis->{text} = $sTxt;
    return '';
}

sub calcITFCD {
    my ($sTxt) = @_;
    my ( $i, $iSum );

    $iSum = 0;
    for ( $i = 0 ; $i < length($sTxt) ; $i++ ) {
        $iSum += substr( $sTxt, $i, 1 ) * ( ( $i % 2 ) ? 1 : 3 );
    }
    $iSum %= 10;
    $iSum = ( $iSum == 0 ) ? 0 : ( 10 - $iSum );
    return "$iSum";
}

sub barcode {
    my ($oThis) = @_;
    my ( $i, $sRes );
    my $sTxt  = $oThis->{text};
    my $rhPtn = {
        '0' => '00110',
        '1' => '10001',
        '2' => '01001',
        '3' => '11000',
        '4' => '00101',
        '5' => '10100',
        '6' => '01100',
        '7' => '00011',
        '8' => '10010',
        '9' => '01010'
    };

    $sRes = '';
    $sRes .= '1010';    #START
    for ( $i = 0 ; $i < length($sTxt) ; $i += 2 ) {
        my $sBlack = $rhPtn->{ substr( $sTxt, $i,     1 ) };
        my $sWhite = $rhPtn->{ substr( $sTxt, $i + 1, 1 ) };
        for ( my $j = 0 ; $j < length($sBlack) ; $j++ ) {
            $sRes .= ( substr( $sBlack, $j, 1 ) eq '1' ) ? '1' x 3 : '1';
            $sRes .= ( substr( $sWhite, $j, 1 ) eq '1' ) ? '0' x 3 : '0';
        }
    }
    $sRes .= '1' x 3 . '01';    #STOP
    return $sRes;
}

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

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

    #Create Image
    require GD;
    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
        $oGd->string(
            GD::Font->Small,
            ( length($sPtn) - $fW * ( length($sTxtWk) ) ) / 2,
            $iHeight - $fH,
            $sTxtWk, $cBlack
        );
    }
    return $oGd;
}
1;
__END__