File Coverage

blib/lib/Business/BR/CNJ.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	20	20	100.0

package Business::BR::CNJ;

use strict;
use utf8;
use Exporter 'import';

our $VERSION = 0.02;
our @EXPORT_OK = qw/ cnj_check_number /;

sub cnj_check_number {
 my $n = shift;
 my @n = $n =~ m|^(\d{7}).?(\d{2}).?(\d{4}).?(\d).?(\d{2}).?(\d{4})$|;

 my $d = 98-(
              (
                sprintf( '%02s', ( sprintf( '%02s', $n[0] % 97 ) .
                                   sprintf( '%07s', join( '', @n[2,3,4] ) )
                                 ) % 97 ) .
                sprintf( '%04s', $n[-1] ) .
                '00'
              ) % 97
            );

 return $d == $n[1] ? 1 : 0;
}

1;

__END__