Games::AssaultCube::Log::Line::Base::GameMode - The GameMode role for subclasses

Games-AssaultCube documentation Contained in the Games-AssaultCube distribution.

Index

Code Index:

Games::AssaultCube::Log::Line::Base::GameMode - The GameMode role for subclasses

ABSTRACT

Top

This module provides the GameMode role for subclasses.

DESCRIPTION

Top

This module provides the GameMode role for subclasses. This is the AssaultCube game mode.

Attributes

Those attributes are part of the role, and will be applied to subclasses that use this.

gamemode

The numeric AssaultCube gamemode ( look at Games::AssaultCube::Utils for more info )

P.S. It's better to use the gamemode_fullname or gamemode_name accessors

gamemode_name

The gamemode name ( CTF, TDM, etc )

gamemode_fullname

The full gamemode name ( "capture the flag", "team one shot one kill", etc )

AUTHOR

Top

Apocalypse <apocal@cpan.org>

Props goes to the BS clan for the support!

This project is sponsored by http://cubestats.net

COPYRIGHT AND LICENSE

Top

Copyright 2009 by Apocalypse

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Games-AssaultCube documentation Contained in the Games-AssaultCube distribution. 
# the gamemode role
package Games::AssaultCube::Log::Line::Base::GameMode;
use Moose::Role;

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

use Games::AssaultCube::Utils qw( get_gamemode_from_name get_gamemode_from_fullname get_gamemode_name get_gamemode_fullname );

has 'gamemode' => (
	isa		=> 'Int',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		if ( exists $self->{'gamemode_name'} ) {
			return get_gamemode_from_name( $self->gamemode_name );
		} else {
			return get_gamemode_from_fullname( $self->gamemode_fullname );
		}
	},
);

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

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

sub BUILD {
	my $self = shift;

	# check role
	if ( ! exists $self->{'gamemode'} and ! exists $self->{'gamemode_name'} and ! exists $self->{'gamemode_fullname'} ) {
		die "Gamemode information is missing";
	}
	return;
}

1;
__END__