File Coverage

blib/lib/Business/PL/NIP.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	33	36	91.6

package Business::PL::NIP;

use strict;
use warnings;

use Exporter::Easy ( OK => [ qw(is_valid_nip) ] );
use Carp qw(croak);
use List::Util qw(sum);

our $VERSION = '0.02';

my @weights = qw(6 5 7 2 3 4 5 6 7);

sub is_valid_nip {

    my $nip = shift;

    croak "No NIP number provided" unless $nip;
    $nip =~ s/^PL//;
    croak "NIP number invalid" unless $nip =~ /^[0-9]{10}$/;

    my @nip       = split "", $nip;
    my $check_sum = pop @nip;

    my $verify_check_sum += sum( map { $nip[$_] * $weights[$_] } 0..$#nip );

    $verify_check_sum %= 11;

    return $verify_check_sum == $check_sum;
}



1;

__END__