view release on metacpan or  search on metacpan

lib/Game/EnergyLoop.pm  view on Meta::CPAN

# -*- Perl -*-
#
# Game::EnergyLoop - a simple energy system

package Game::EnergyLoop;
our $VERSION = '0.01';
use strict;
use warnings;

sub update {
    my ($enlos, $initiative, $arg) = @_;
    my $min = ~0;
    for my $ent (@$enlos) {
        my $energy = $ent->enlo_energy;
        $min = $energy if $energy < $min;
    }
    die "negative minimum energy $min" if $min < 0;
    my @active;
    for my $ent (@$enlos) {
        my $energy = $ent->enlo_energy;