Add a way to remove bonus/malus
This commit is contained in:
parent
663a77a084
commit
f3904e62b2
4 changed files with 33 additions and 6 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Reference in a new issue