File Coverage

blib/lib/Weewar/User.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

# Copyright (c) 2007 Jonathan Rockway

package Weewar::User;
use strict;
use warnings;

use Carp;
require Weewar;
use base 'Weewar::Base';

# my own mini WSDL, i guess
sub _ATTRIBUTES {
    qw/name id/
}
sub _ELEMENTS {
    qw/points profile
       draws victories losses
       accountType readyToPlay gamesRunning lastLogin
       basesCaptured creditsSpent/;
}
sub _LISTS {
    ( favoriteUnits    => ['unit',   'Weewar::Unit' => 'code',      ],
      preferredPlayers => ['player', 'Weewar::User' => 'name',      ],
      preferredBy      => ['player', 'Weewar::User' => 'name',      ],
      games            => ['game',   'Weewar::Game' => ''    , 'id' ],
    );
}

sub get {
    my ($self, $what) = @_;
    return $self->{rating} if($self->{rating} && $what eq 'points');
    return $self->{points} if($self->{points} && $what eq 'rating');
    return $self->SUPER::get($what);
}

sub _TRANSFORMS {
    ( lastLogin   => __PACKAGE__->_TRANSFORM_DATE(),
      readyToPlay => __PACKAGE__->_TRANSFORM_BOOLEAN(),
    )
}

sub _get_xml {
    my $self = shift;
    my $name = $self->{name};
    croak "This user ($self) has no name" unless $name;
    return Weewar->_request("user/$name");
}

sub _root_tag { 'user' }

__PACKAGE__->mk_weewar_accessors;
__PACKAGE__->mk_ro_accessors('rating', 'result');

package Weewar::Unit; # no need to bless units
sub new { return $_[1]->{code} }

1;

__END__