File Coverage

blib/lib/GD/Barcode/NW7.pm

Criterion	Covered	Total	%
statement	31	43	72.0
branch	2	8	25.0
condition			n/a
subroutine	8	9	88.8
pod	3	4	75.0
total	44	64	68.7

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

use GD::Barcode;
use parent qw(Exporter);
use vars qw($VERSION @ISA $errStr);
@ISA     = qw(GD::Barcode Exporter);
our $VERSION = '2.00';
my $nw7Bar = {
    '0' => '0000011',
    '1' => '0000110',
    '2' => '0001001',
    '3' => '1100000',
    '4' => '0010010',
    '5' => '1000010',
    '6' => '010000ß1',
    '7' => '0100100',
    '8' => '0110000',
    '9' => '1001000',
    '-' => '0001100',
    '$' => '0011000',
    ':' => '1000101',
    '/' => '1010001',
    '.' => '1010100',
    '+' => '0010101',
    'A' => '0011010',
    'B' => '0101001',
    'C' => '0001011',
    'D' => '0001110'
};

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\-\$:\/.+ABCD]/ );

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

sub barcode {
    my ($oThis) = @_;

    my $sTxt = $oThis->{text};
    my $sRes = '';
    foreach my $sWk ( split( //, $sTxt ) ) {
        $sRes .= GD::Barcode::dumpCode( $nw7Bar->{$sWk} . '0' );
    }
    return $sRes;
}

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

    my $sTxt = $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
        $oGd->string(
            GD::Font->Small,
            ( length($sPtn) - $fW * ( length($sTxt) ) ) / 2,
            $iHeight - $fH,
            $sTxt, $cBlack
        );
    }
    return $oGd;
}
1;

__END__