File Coverage

lib/BalanceOfPower/Commands/RecallMilitarySupport.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	28	30	93.3

package BalanceOfPower::Commands::RecallMilitarySupport;
$BalanceOfPower::Commands::RecallMilitarySupport::VERSION = '0.400105';
use Moo;

use BalanceOfPower::Constants ':all';

extends 'BalanceOfPower::Commands::TargetNation';

sub get_available_targets
{
    my $self = shift;
    my @supported = $self->world->supporter($self->actor);
    my @out = ();
    for(@supported)
    {
        push @out, $_->destination($self->actor);
    }
    return @out;
}

sub IA
{
    my $self = shift;
    my $actor = $self->get_nation();
    if($actor->army <= ARMY_TO_RECALL_SUPPORT)
    {
        my @supports = $self->get_available_targets();
        if(@supports > 0)
        {
            @supports = $self->world->shuffle("Choosing support to recall", @supports);
            return "RECALL MILITARY SUPPORT " . $supports[0];
        }
    }
    return undef;
}

1;