File Coverage

lib/BalanceOfPower/Commands/RecallRebelMilitarySupport.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	30	26.6

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

use BalanceOfPower::Constants ':all';

extends 'BalanceOfPower::Commands::TargetNation';

sub get_available_targets
{
    my $self = shift;
    my @supported = $self->world->rebel_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 REBEL MILITARY SUPPORT " . $supports[0];
        }
    }
    return undef;
}

1;