Games::AssaultCube::ServerQuery::Response - Holds the various data from a ServerQuery response

	use Games::AssaultCube::ServerQuery;
	my $query = Games::AssaultCube::ServerQuery->new( 'my.server.com' );
	#my $query = Games::AssaultCube::ServerQuery->new( 'my.server.com', 12345 );
	#my $query = Games::AssaultCube::ServerQuery->new({ server => 'foo.com', port => 12345, timeout => 5 });
	my $response = $query->run;
	if ( defined $response ) {
		print "Server is running with " . $response->players . " players\n";
	} else {
		print "Server is not responding!\n";
	}

# Declare our package
package Games::AssaultCube::ServerQuery::Response;

# import the Moose stuff
use Moose;
use MooseX::StrictConstructor;

# Initialize our version
use vars qw( $VERSION );
$VERSION = '0.04';

# get some utility stuff
use Games::AssaultCube::Utils qw( parse_pingresponse default_port getpongflag stripcolors );

# This is a bit "weird" but very convenient, ha!
with	'Games::AssaultCube::Log::Line::Base::GameMode';

# TODO improve validation for everything here, ha!

has 'server' => (
	isa		=> 'Str',
	is		=> 'ro',
	required	=> 1,
);

has 'port' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'pingtime' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'query' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'protocol' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'players' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'minutes_left' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'map' => (
	isa		=> 'Str',
	is		=> 'ro',
	required	=> 1,
);

has 'desc' => (
	isa		=> 'Str',
	is		=> 'ro',
	required	=> 1,
);

has 'desc_nocolor' => (
	isa		=> 'Str',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		return stripcolors( $self->desc );
	},
);

has 'max_players' => (
	isa		=> 'Int',
	is		=> 'ro',
	required	=> 1,
);

has 'pong' => (
	isa		=> 'Int',
	is		=> 'ro',
	default		=> 0,
);

has 'pong_name' => (
	isa		=> 'Str',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		return getpongflag( $self->pong );
	},
);

has 'player_list' => (
	isa		=> 'ArrayRef[Str]',
	is		=> 'ro',
	default		=> sub { [] },
);

has 'is_full' => (
	isa		=> 'Bool',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		if ( $self->players == $self->max_players ) {
			return 1;
		} else {
			return 0;
		}
	},
);

has 'datagram' => (
	isa		=> 'Str',
	is		=> 'ro',
	required	=> 1,
);

has 'tohash' => (
	isa		=> 'HashRef',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		my $data = {};

		foreach my $attr ( qw( timestamp gamemode server port pingtime protocol players minutes_left map desc max_players ) ) {
			$data->{ $attr } = $self->$attr();
		}

		# extra data
		if ( scalar @{ $self->player_list } ) {
			$data->{player_list} = [ @{ $self->player_list } ];
		} else {
			$data->{player_list} = [];
		}

		return $data;
	},
);

has 'timestamp' => (
	isa		=> 'Int',
	is		=> 'ro',
	default		=> sub {
		scalar time();
	},
);

sub BUILDARGS {
	my $class = shift;

	# Normally, we would be created by Games::AssaultCube::ServerQuery and contain 2 args
	if ( @_ == 2 && ref $_[0] ) {
		if ( ref( $_[0] ) eq 'Games::AssaultCube::ServerQuery' ) {
			# call the parse method
			return {
				server		=> $_[0]->server,
				port		=> $_[0]->port,
				datagram	=> $_[1],
				%{ parse_pingresponse( $_[1] ) },
			};
		} elsif ( ref( $_[0] ) eq 'POE::Component::AssaultCube::ServerQuery' ) {
			# parse it a bit differently
			return {
				server		=> $_[1]->{addr},
				port		=> $_[1]->{port},
				datagram	=> $_[1]->{payload}->[0],
				%{ parse_pingresponse( $_[1]->{payload}->[0] ) },
			};
		} else {
			die "unknown arguments";
		}
	} else {
		return $class->SUPER::BUILDARGS(@_);
	}
}

# from Moose::Manual::BestPractices
no Moose;
__PACKAGE__->meta->make_immutable;

1;
__END__