File Coverage

blib/lib/Business/PFR.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	9	12	75.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	56	59	94.9

package Business::PFR;
$Business::PFR::VERSION = '1.0.2';
use strict;
use warnings FATAL => 'all';
use utf8;

# ABSTRACT: validate Russian pension fund number

use Carp;





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

    my $self = {};
    bless $self, $class;

    $self->{_maybe_pfr} = delete $params{value};

    croak "Incorrect constructor usage. Stopped" if %params;

    return $self;
}


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

    croak "Incorrect usage. Stopped" if @params;

    if (not defined $self->{_is_valid}) {
        $self->{_is_valid} = $self->_check_is_valid();
    }

    return $self->{_is_valid};
}

sub _check_is_valid {
    my ($self) = @_;

    return 0 if not defined $self->{_maybe_pfr};

    my $is_valid;

    my $maybe_pfr = $self->{_maybe_pfr};

    if ($maybe_pfr =~ /^(\d)(\d)(\d)-(\d)(\d)(\d)-(\d)(\d)(\d) (\d{2})$/a) {

        my $sum =
            $1 * 9
            + $2 * 8
            + $3 * 7
            + $4 * 6
            + $5 * 5
            + $6 * 4
            + $7 * 3
            + $8 * 2
            + $9 * 1
            ;

        if ( $self->_get_check_digit($sum) eq $10) {
            $is_valid = 1;
        } else {
            $is_valid = 0;
        }

    } else {
        $is_valid = 0;
    }

    return $is_valid;
}

sub _get_check_digit {
    my ($self, $sum) = @_;

    my ($digit) = sprintf("%02d", $sum % 101) =~ /(\d{2})\z/;

    return $digit;
}

1;

__END__