File Coverage

lib/BalanceOfPower/Relations/TradeRoute.pm

Criterion	Covered	Total	%
statement	13	30	43.3
branch	3	8	37.5
condition	0	2	0.0
subroutine	4	7	57.1
pod	0	4	0.0
total	20	51	39.2

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

use Moo;

has factor1 => (
    is => 'ro'
);
has factor2 => (
    is => 'ro'
);

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

sub factor_for_node
{
    my $self = shift;
    my $node = shift;
    if ($self->node1 eq $node)
    {
        return $self->factor1;
    }
    elsif ($self->node2 eq $node)
    {
        return $self->factor2;
    }
    else
    {
        return undef;
    }
}
sub print
{
    my $self = shift;
    my $from = shift;
    if($from eq $self->node1)
    {
        return $from . " -[x" . $self->factor1 . "]-> " . $self->node2;
    }
    elsif($from eq $self->node2)
    {
        return $from . " -[x" . $self->factor2 . "]-> " . $self->node1;
    }
}
sub dump
{
    my $self = shift;
    my $io = shift;
    my $indent = shift || "";
    print {$io} $indent . join(";", $self->node1, $self->node2, $self->factor1, $self->factor2) . "\n";
}
sub load
{
    my $self = shift;
    my $data = shift;
    $data =~ s/^\s+//;
    chomp $data;
    my ($node1, $node2, $factor1, $factor2) = split ";", $data;
    return $self->new(node1 => $node1, node2 => $node2, factor1 => $factor1, factor2 => $factor2);
}






1;