File Coverage

blib/lib/Game/EnergyLoop.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	12	12	100.0
condition	3	3	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	46	46	100.0

# -*- 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;
        $energy -= $min;
        push @active, $ent if $energy == 0;
        $ent->enlo_energy($energy);
    }
    $initiative->( \@active ) if defined $initiative and @active > 1;
    my @newbies;
    for my $ent (@active) {
        my ( $new_energy, $noobs ) = $ent->enlo_update( $min, $arg );
        die "negative entity new_energy $new_energy" if $new_energy < 0;
        $ent->enlo_energy($new_energy);
        push @newbies, @$noobs if defined $noobs;
    }
    push @$enlos, @newbies;
    return $min;
}

# TODO may need a return flag to indicate whether game is blocked? but
# if that's important the caller could set a flag in their world object
# and check for that...

1;
__END__