File Coverage

blib/lib/Business/FR/SSN.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	11	12	91.6
condition	4	5	80.0
subroutine	10	10	100.0
pod	7	7	100.0
total	66	68	97.0

package Business::FR::SSN;

use strict;
use warnings;

our $VERSION = '1.00';

sub _check_ssn {
	my ($class, $ssn) = @_;

	$ssn =~ s#\s+##g;

	# SSN are 15 \d
	return '' if ($ssn !~ /^\d{15}$/);

	# SSN begins with 1 or 2
	return '' if ($ssn !~ /^(1|2)/);

	# SSN contains birth month (1 > 12)
	my $birth = substr($ssn, 3, 2);
	return '' if (($birth > 12) or ($birth == 0));

	return $ssn;
}

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

	my $self = bless \$ssn, $class;

	$ssn ||= '';
	$ssn = $self->_check_ssn($ssn);

	$self;
}

sub is_valid {
	my $self = shift;
	my $ssn = shift;

	$$self = $self->_check_ssn($ssn) if ($ssn);

	(substr($$self, 13, 2) == (97 - (substr($$self, 0, 13) % 97))) ? return 1 : return 0;
}

sub ssn {
	my $self = shift;
	my $ssn = shift;

	$$self = $self->_check_ssn($ssn) if ($ssn);

	return $$self;
}

sub get_sex {
	my $self = shift;

	return substr($$self, 0, 1);
}

sub get_birth_year {
	my $self = shift;

	return substr($$self, 1, 2);
}

sub get_birth_month {
	my $self = shift;

	return substr($$self, 3, 2);
}

sub get_birth_department {
	my $self = shift;

	return substr($$self, 5, 2);
}

1;

__END__