view release on metacpan or  search on metacpan

lib/BalanceOfPower/Relations/RelPack.pm  view on Meta::CPAN

        push @{$self->links}, $link;
        $self->links_grid->{$node1}->{$node2} = $link;
        $self->links_grid->{$node2}->{$node1} = $link;
        return 1;
    }
    else
    {
        return 0;
    }
}
sub update_link
{
    my $self = shift;
    my $link = shift;
    $self->delete_link($link->node1, $link->node2);
    $self->add_link($link);
}
sub delete_references
{
    my $self = shift;
    my $node1 = shift;

lib/BalanceOfPower/Role/WebMaster.pm  view on Meta::CPAN

                $self->get_player($p->name)->add_control_order($_->{nation}, $_->{command});
            }
        }
        else
        { 
            say "$game - Orders for $user NOT retrieved";
        }  
    }
}

sub update_web_players
{
    my $self = shift;
    my $game = shift;
    my $password = $self->admin_password;
    my @players = @{$self->players};
    foreach my $p (@players)
    {
        my $res = $self->post_web_data("/api/$game/user-data", { password => $password,
                                                                 player => $p->name,
                                                                 money => $p->money,