File Coverage

blib/lib/Business/PFR.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	11	14	78.5
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	58	61	95.0

package Business::PFR;
{
  $Business::PFR::VERSION = '1.0.1';
}

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) = @_;

    return '00' if $sum == 100;

    return sprintf("%02d", $sum % 101);
}

1;

__END__