File Coverage

blib/lib/Chess/FIDE/Player.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	21	24	87.5
condition	16	18	88.8
subroutine	8	8	100.0
pod	1	1	100.0
total	94	99	94.9

package Chess::FIDE::Player;

use 5.008;
use strict;
use warnings FATAL => 'all';

use Exporter;
use Carp;

use base 'Exporter';

our %FIDE_defaults = (
	id        => -1,
	name      => 'Unknown',
	surname   => '',
	givenname => '',
	fed       => 'UNK',
	sex       => '',
	tit       => undef,
	wtit      => undef,
	otit      => undef,
	srtng     => undef,
	sgm       => undef,
	sk        => undef,
	rrtng     => undef,
	rgm       => undef,
	rk        => undef,
	brtng     => undef,
	bgm       => undef,
	bk        => undef,
	bday      => 0,
	flag      => '',
	fidename  => '',
);

our @EXPORT = qw(%FIDE_defaults);

our $AUTOLOAD;
our $VERSION = '1.21';

sub new ($;@) {

	my $class = shift;
    my %param = @_;

    my $player = {};
    bless $player, $class;
    for (keys %param) {
		unless (exists $FIDE_defaults{$_}) {
			warn "$_ is not recognized as a valid field, ignoring" if $ENV{CHESS_FIDE_VERBOSE};
			next;
		}
		$player->{$_} = defined $param{$_} ? $param{$_} : $FIDE_defaults{$_};
	}
	for (keys %FIDE_defaults) {
		$player->{$_} ||= $FIDE_defaults{$_};
	}
	$player->{fed} = 'UNK' if $player->{fed} eq '*';
	$player->{sex} ||= $player->{flag} =~ /^w/ ? 'F' : 'M';
	$player->{otit} =~ s/^\,// if $player->{otit};
	$player->{tit} = 'i'  if $player->{tit} && $player->{tit} eq 'm';
	$player->{tit} = 'wi' if $player->{tit} && $player->{tit} eq 'wm';
	$player->{tit} = uc($player->{tit}) . 'M'
		if $player->{tit} && $player->{tit} ne 'WH' && $player->{tit} !~ /m$/i;
	$player->{fed} = uc($player->{fed});
    return $player;
}

sub AUTOLOAD ($;$) {

	my $self  = shift;
	my $param = shift;

	my $method = $AUTOLOAD;
	$method = lc $method;
	my @path = split(/\:\:/, $method);
	$method = pop @path;
	return if $method =~ /^destroy$/;
	unless (exists $self->{$method}) {
		carp "No such method or property $method";
		return undef;
	}
	$self->{$method} = $param if ($param);
	$self->{$method};
}

1;

__END__