view release on metacpan or  search on metacpan

script/game-life-faster  view on Meta::CPAN

    pod2usage( { -verbose => 2, -exitval => 'NOEXIT' } );
    return;
}

sub cmd_living {
    _state_opt( living => @_ );
    return;
}

sub cmd_load {
    local @ARGV = @_;
    my %o = %opt;
    GetOptions( \%o,
	qw{ living=s },
    ) or return;
    my ( $file, $x, $y ) = @ARGV;
    $x ||= 0;
    $y ||= 0;
    my @rows;
    local $_ = undef;
    open my $fh, '<:encoding(utf-8)', $file