view release on metacpan or  search on metacpan

lib/Games/Quake/Player.pm  view on Meta::CPAN

    my $self = shift;
    $self->{_times_fragged} = $self->{_times_fragged} + 1;
}



###############################################
# 
# update_stats
#
sub update_stats {
    my ($self, $fraggee_name) = @_;
    my $stats = $self->{_stats};
 
    my $fraggee = Player->new(
	_name => $fraggee_name,
	);
   
    my $found_player = $stats->{$fraggee_name};
    my $fragged_player;