File Coverage

blib/lib/Games/AssaultCube/Log/Line/FlagStole.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             # Declare our package
2             package Games::AssaultCube::Log::Line::FlagStole;
3              
4             # import the Moose stuff
5 1     1   2839 use Moose;
  0            
  0            
6              
7             # Initialize our version
8             use vars qw( $VERSION );
9             $VERSION = '0.04';
10              
11             extends 'Games::AssaultCube::Log::Line::Base';
12              
13             with 'Games::AssaultCube::Log::Line::Base::NickIP';
14              
15             has 'tostr' => (
16             isa => 'Str',
17             is => 'ro',
18             lazy => 1,
19             default => sub {
20             my $self = shift;
21             return "Player " . $self->nick . " stole the flag";
22             },
23             );
24              
25             no Moose;
26             __PACKAGE__->meta->make_immutable;
27              
28             1;
29             __END__
30              
31             =for stopwords ip
32              
33             =head1 NAME
34              
35             Games::AssaultCube::Log::Line::FlagStole - Describes the FlagStole event in a log line
36              
37             =head1 ABSTRACT
38              
39             Describes the FlagStole event in a log line
40              
41             =head1 DESCRIPTION
42              
43             This module holds the "FlagStole" event data from a log line. Normally, you would not use this class directly
44             but via the L<Games::AssaultCube::Log::Line> class.
45              
46             This line is emitted when a client steals a flag.
47              
48             =head2 Attributes
49              
50             Those attributes hold information about the event. As this class extends the L<Games::AssaultCube::Log::Line::Base>
51             class, you can also use it's attributes too.
52              
53             =head3 nick
54              
55             The nick of the client who stole the flag
56              
57             =head3 ip
58              
59             The ip of the client
60              
61             =head1 AUTHOR
62              
63             Apocalypse E<lt>apocal@cpan.orgE<gt>
64              
65             Props goes to the BS clan for the support!
66              
67             This project is sponsored by L<http://cubestats.net>
68              
69             =head1 COPYRIGHT AND LICENSE
70              
71             Copyright 2009 by Apocalypse
72              
73             This library is free software; you can redistribute it and/or modify
74             it under the same terms as Perl itself.
75              
76             =cut