Archived
1
0
Fork 0

Add a way to remove bonus/malus

This commit is contained in:
Mercier Pierre-Olivier 2013-10-02 19:45:48 +02:00
commit f3904e62b2
4 changed files with 33 additions and 6 deletions

View file

@ -115,6 +115,14 @@ sub addId($$;$)
$self->{ids}{$key} = $value;
}
sub delId($$)
{
my $self = shift;
my $key = shift;
delete $self->{ids}{$key};
}
sub toString ($;$)
{
my $self = shift;