File Coverage

blib/lib/Business/PL/NIP.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	3	0.0
total	41	48	85.4

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.01';

sub new {
    my ( $class, %args ) = @_;

    bless \%args => $class;
}

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

sub is_valid {
    my ($self,%args) = @_;

    my $nip = $self->{nip} || $args{nip};

    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;
}


sub is_valid_nip {
    my $nip = shift;

    return __PACKAGE__->new->is_valid(nip => $nip);
}


1;

__END__