File Coverage

blib/lib/Business/Zahlschein.pm

Criterion	Covered	Total	%
statement	13	43	30.2
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	17	55	30.9

package Business::Zahlschein;

use warnings;
use strict;

our $VERSION = '0.02';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &PzMehrzweckfeld &Mehrzweckfeld );
}

sub PzMehrzweckfeld {

	my $mehrzweckfeld = shift;
	my $zwischensumme = 0;
	my $gesamtsumme   = 0;

	my $tab = "12121212121";

	for (my $i = 0; $i <= 10; $i++) {
		$zwischensumme = substr($mehrzweckfeld,$i,1) * substr($tab,$i,1);
		$gesamtsumme   = $gesamtsumme + Quersumme($zwischensumme);
	} # for

	$zwischensumme = 10 - ($gesamtsumme % 10);
	$zwischensumme = 0 if $zwischensumme == 10;

	$zwischensumme;

} # PzMehrzweckfeld

sub Mehrzweckfeld {

	my ($mehrzweckfeld, $pzMehrzweckfeld, $kontonummer, $blz, $belegart) = @_;

	my $mzfKontoNrBlz = $mehrzweckfeld.$pzMehrzweckfeld.$kontonummer.substr($blz,- 5);

	my $zwischensumme = 0;
	my $gesamtsumme   = 0;
	my $summe         = 0;
	my $pzBlz         = "";
	my $lz            = "";

	my $tab = "1791791791791791791791791791";

	for (my $i = 0; $i <= 27; $i++) {
		$zwischensumme = substr($mzfKontoNrBlz,$i,1) * substr($tab,$i,1);
		$gesamtsumme   = $gesamtsumme + $zwischensumme;
	} # for

	$zwischensumme = $gesamtsumme % 10;
	$pzBlz         = $zwischensumme;

	$lz = $mehrzweckfeld.$pzMehrzweckfeld."< ".$kontonummer."+ ".$pzBlz.$blz.">              ".$belegart."+";

	$lz;

} # Mehrzweckfeld

sub Quersumme {

   my $zwischensumme = shift;
	my $quersumme     = 0;

	for (my $i = 0; $i < length($zwischensumme); $i++) {
		$quersumme = $quersumme + substr($zwischensumme,$i,1);
	} # for

	$quersumme;

} # Quersumme


1;
__END__