File Coverage

blib/lib/Business/CN/IdentityCard.pm

Criterion	Covered	Total	%
statement	56	79	70.8
branch	13	32	40.6
condition	2	6	33.3
subroutine	10	12	83.3
pod	4	7	57.1
total	85	136	62.5

package Business::CN::IdentityCard;

use strict;
use vars qw($VERSION);
$VERSION = '0.05';
use base 'Class::Accessor::Fast';
use Date::Simple; # for validate_birthday

__PACKAGE__->mk_accessors(qw/err errstr province birthday/);

sub new {
	my ($proto, $id) = @_; # $id = the IdentityCard string
	my $class = ref($proto) || $proto;
	my $self = bless { }, $class;

	$self->_parse($id) if ($id);

	return $self;
}

sub _parse {
	my $self = shift;
	my $id = lc shift;

	unless ($id =~ /^(\d{17}(\d|x)|\d{15})$/) {
		$self->err('LENGTH');
		$self->errstr("Must be 15 or 18 length number!");
		return 0;
	}

	$self->{id} = $id;

	# parse
	( $self->{benti},
	  $self->{province_code}, $self->{district_code},
	  $self->{birthday}, $self->{serial_number},
	  $self->{postfix} )

	= ( length($id) == 18 )
			? ( $id =~ /((\d{2})(\d{4})(\d{8})(\d{3}))(\w)/ )
			: ( $id =~ /((\d{2})(\d{4})(\d{6})(\d{3}))/ );
	return 1;
}

sub validate {
	my ($self, $id) = @_;

	# we support new($id)+validate and new()+validate($id)
	unless($id) { $id = $self->{id}; }
	$self->_parse($id);

	$self->validate_province() and
	$self->validate_birthday() and
	$self->validate_postfix();

	return 0 if ($self->err);
	return 1;
}

sub validate_province {
	my $self = shift;

	my @province = ('','','','','','','','','','','','±±¾©','Ìì½ò','ºÓ±±','ɽÎ÷','ÄÚÃɹÅ','','','','','','ÁÉÄþ','¼ªÁÖ','ºÚÁú½­','','','','','','','','ÉϺ£','½­ËÕ','Õã½­','°²Î¢','¸£½¨','½­Î÷','ɽ¶«','','','','ºÓÄÏ','ºþ±±','ºþÄÏ','¹ã¶«','¹ãÎ÷','º£ÄÏ','','','','ÖØÇì','ËÄ´¨','¹óÖÝ','ÔÆÄÏ','Î÷²Ø','','','','','','','ÉÂÎ÷','¸ÊËà','Çຣ','ÄþÏÄ','н®','','','','','','̨Íå','','','','','','','','','','Ïã¸Û','°ÄÃÅ','','','','','','','','','¹úÍâ');
	my $province = substr($self->{id}, 0, 2);
	if (! $province[$self->{province_code}]) {
		$self->err('PROVINCE');
		$self->errstr('Province is faked');
		return 0;
	} else {
		$self->province($province[$self->{province_code}]);
		return 1;
	}
}

sub validate_birthday {
	my $self = shift;

	my ($year,$month,$day) = ( $self->birthday =~ /(\d{2,4})(\d{2})(\d{2})$/ );
	$year = ( length $year == 4 ) ? $year : '19'.$year;
	my $birthday = "$year-$month-$day";

	my $date  = Date::Simple->new($birthday);

	if ($date) {
		$self->birthday($birthday);
		return 1;
	} else {
		$self->err('BIRTHDAY');
		$self->errstr(sprintf("birthday: %s is invalid!", $self->birthday));
		return 0;
	}
}

sub validate_postfix {
	my $self = shift;
	return 1 if (length($self->{id}) == 15);

	my @gene = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2);
	my @v_code = ('1','0','x','9','8','7','6','5','4','3','2');
	my @id = split(//, $self->{benti});

	my $sum;
	map { $sum += $id[$_] * $gene[$_] } (0..16);

	if ($self->{postfix} ne $v_code[ $sum % 11 ]) {
		$self->err('POSTFIX');
		$self->errstr('postfix is invalid!');
		return 0;
	}
	return 1;
}

sub gender {
	my ($self, $format) = @_;
	$format = 'CN' unless ($format);
	if ($self->{serial_number} % 2 == 0 ) {
		return ($format eq 'CN') ? 'Å®' : 'Female';
	} else {
		return ($format eq 'CN') ? 'ÄÐ' : 'Male';
	}
}

sub district {
	my $self = shift;
	eval('require Business::CN::IdentityCard::District;');
	my $key = $self->{province_code} . $self->{district_code};
	if (exists $Business::CN::IdentityCard::District::district{$key}) {
		return $Business::CN::IdentityCard::District::district{$key};
	} else {
		$self->err('DISTRICT');
		$self->errstr(sprintf("district code: %s is invalid or unkown district!", $key ));
		return undef;
	}
}

1;
__END__