Games::AssaultCube::Log::Line::AdminPasswords - Describes the AdminPasswords event in a log line

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

Index

Code Index:

Games::AssaultCube::Log::Line::AdminPasswords - Describes the AdminPasswords event in a log line

ABSTRACT

Top

Describes the AdminPasswords event in a log line

DESCRIPTION

Top

This module holds the "AdminPasswords" 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 the AC server successfully loaded the admin passwords from the configfile.

Attributes

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.

count

The number of passwords loaded

config

The admin password config filename ( sometimes it's a zero-length string... )

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. 
# Declare our package
package Games::AssaultCube::Log::Line::AdminPasswords;

# import the Moose stuff
use Moose;

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

extends 'Games::AssaultCube::Log::Line::Base';

# TODO improve validation for everything here, ha!

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

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

has 'tostr' => (
	isa		=> 'Str',
	is		=> 'ro',
	lazy		=> 1,
	default		=> sub {
		my $self = shift;
		return "Loaded " . $self->count . " passwords from " . $self->config;
	},
);

no Moose;
__PACKAGE__->meta->make_immutable;

1;
__END__