File Coverage

bin/rcon-minecraft

Criterion	Covered	Total	%
statement	47	47	100.0
branch	18	18	100.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	74	74	100.0

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Net::RCON::Minecraft;
use Getopt::Long qw< GetOptionsFromArray >;
use Pod::Usage;
no warnings 'uninitialized';

exit main(@ARGV) unless caller;

sub main {
    my $ARGV = \@_;

    my %o = ( command => [ ] );
    GetOptionsFromArray($ARGV, \%o, qw< host=s port=i password=s timeout=f
        command|cmd=s@ color quiet echo help version > )           or return 2;
    if ($o{help})    { pod2usage -verbose => 1, -exitval => 'noexit'; return }
    if ($o{version}) { print "rcon-minecraft version 0.04\n";         return }

    push @{$o{command}}, join(' ', @$ARGV) if @$ARGV;

    $o{rcon} = Net::RCON::Minecraft->new(%o);
    $o{rcon}->connect; # Not necessary, but better here to fail early

    if (@{$o{command}}) {   for (@{$o{command}}) { run_command(\%o, $_) } }
    else                { while () { chomp; run_command(\%o, $_) } }

    return;
}

# Run the command and display the output, echoing if so configured
sub run_command {
    my $o = shift;
    print "> $_[0]\n" if $o->{echo};

    my $resp = $o->{rcon}->command($_[0]);
    my $disp = $o->{color} ? $resp->ansi : $resp->plain;

    print length $resp ? "$disp\n" : "[Command sent]\n" unless $o->{quiet};
}

__END__