File Coverage

blib/lib/Chess/FIDE/Player.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	5	6	83.3
condition	3	6	50.0
subroutine	7	7	100.0
pod	0	1	0.0
total	52	57	91.2

package Chess::FIDE::Player;

use 5.008;
use strict;
use warnings;

use Exporter;
use Carp;

our @ISA = qw(Exporter);

our @FIDE_field = qw(
	id surname givenname name title federation rating games year flags
);
our @FIDE_default = (
	0, '', '', '', '', '', 0, 0, 0, ''
);
our @EXPORT = qw(@FIDE_field);
our $AUTOLOAD;
our $VERSION = '1.10';

sub new ($;@) {

    my $self = shift;
    my $class = ref($self) || $self;
    my %param = @_;

    my $player = {};
    bless $player,$class;
	my $f = 0;
    for (@FIDE_field) {
		$player->{$_} = $param{$_} || $FIDE_default[$f];
		$f++;
	}
    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);
	return $self->{$method};
}

# Preloaded methods go here.

1;
__END__