POE::Component::AssaultCube::ServerQuery::Server - Holds the server info

	use POE::Component::AssaultCube::ServerQuery;

	sub _start {
		my $query = POE::Component::AssaultCube::ServerQuery->new;
		$query->register;
		my $server = POE::Component::AssaultCube::ServerQuery::Server->new( {
			server		=> '123.123.123.123',
			frequency	=> 60,
		} );
		$query->addserver( $server );
	}

# Declare our package
package POE::Component::AssaultCube::ServerQuery::Server;

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

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

use Games::AssaultCube::Utils qw( default_port );
use Time::HiRes qw( time );

# TODO improve validation for everything here, ha!

has 'ID' => (
	isa		=> 'Str',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		return $self->server . ':' . $self->port;
	},
);

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

has 'port' => (
	isa		=> 'Int',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		return default_port;
	},
);

has 'last_pingtime' => (
	isa		=> 'Num',
	is		=> 'rw',
	default		=> 0,
);

has 'frequency' => (
	isa		=> 'Num',
	is		=> 'rw',
	default		=> 300,
);

has 'get_players' => (
	isa		=> 'Bool',
	is		=> 'rw',
	default		=> 0,
);

sub nextping {
	my $self = shift;

	# if it was never pinged, do it now!
	if ( $self->last_pingtime == 0 ) {
		return 0;
	}

	my $pingtime = ( $self->last_pingtime + $self->frequency ) - time();

#warn "server(" . $self->ID . ") last_pingtime(" . $self->last_pingtime . ") frequency(" . $self->frequency . ") time(" . time() . ") pingtime(" . $pingtime . ")";

	if ( $pingtime < 0 ) {
		return 0;
	} else {
		return $pingtime;
	}
}

sub BUILDARGS {
	my $class = shift;

	if ( @_ == 1 && ! ref $_[0] ) {
		# set the server as the first argument
		return { server => $_[0] };
	} elsif ( @_ == 2 && ! ref $_[0] ) {
		# server/port argument
		return { server => $_[0], port => $_[1] };
	} else {
		# normal hash/hashref way
		return $class->SUPER::BUILDARGS(@_);
	}
}

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

1;
__END__