File Coverage

lib/BalanceOfPower/Relations/MilitarySupport.pm

Criterion	Covered	Total	%
statement	13	26	50.0
branch	1	2	50.0
condition			n/a
subroutine	5	8	62.5
pod	0	5	0.0
total	19	41	46.3

package BalanceOfPower::Relations::MilitarySupport;
$BalanceOfPower::Relations::MilitarySupport::VERSION = '0.400110';
use strict;
use v5.10;

use Moo;

with 'BalanceOfPower::Relations::Role::Relation';

has army => (
    is => 'rw',
    default => 0
);


sub bidirectional
{
    return 0;
}

sub casualities
{
    my $self = shift;
    my $casualities = shift;
    $self->army($self->army - $casualities);
    $self->army(0) if($self->army < 0);
}

sub print
{
    my $self = shift;
    return $self->node1 . " --> " . $self->node2 . " [" . $self->army . "]";
}
sub dump
{
    my $self = shift;
    my $io = shift;
    my $indent = shift;
    print {$io} $indent . join(";", $self->node1, $self->node2, $self->army) . "\n";
}
sub load
{
    my $self = shift;
    my $data = shift;
    $data =~ s/^\s+//;
    chomp $data;
    my ($node1, $node2, $army) = split ";", $data;
    return $self->new(node1 => $node1, node2 => $node2, army => $army);
}




1;