| Games-AssaultCube documentation | Contained in the Games-AssaultCube distribution. |
Games::AssaultCube::Log::Line::FlagScoredKTF - Describes the FlagScoredKTF event in a log line
Describes the FlagScoredKTF event in a log line
This module holds the "FlagScoredKTF" event data from a log line. Normally, you would not use this class directly but via the Games::AssaultCube::Log::Line class.
This line is emitted when a client scores a flag in KTF ( Keep The Flag ) mode.
Those attributes hold information about the event. As this class extends the Games::AssaultCube::Log::Line::Base class, you can also use it's attributes too.
The nick of the client who scored the flag
The ip of the client
How long ( in seconds ) the client carried the flag
The new score for the client
Apocalypse <apocal@cpan.org>
Props goes to the BS clan for the support!
This project is sponsored by http://cubestats.net
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. |
# Declare our package package Games::AssaultCube::Log::Line::FlagScoredKTF; # import the Moose stuff use Moose; # Initialize our version use vars qw( $VERSION ); $VERSION = '0.04'; extends 'Games::AssaultCube::Log::Line::FlagStole'; # TODO improve validation for everything here, ha! has 'carried' => ( isa => 'Int', is => 'ro', required => 1, ); has 'score' => ( isa => 'Int', is => 'ro', required => 1, ); has 'tostr' => ( isa => 'Str', is => 'ro', lazy => 1, default => sub { my $self = shift; return $self->nick . " scored the flag in KTF, carried it for " . $self->carried . " for a score of " . $self->score; }, ); no Moose; __PACKAGE__->meta->make_immutable; 1; __END__