File Coverage

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