Raku Land

AccountableBagHash

cpan:ELIZABETH

NAME

AccountableBagHash - be an accountable BagHash / MixHash

SYNOPSIS

use AccountableBagHash;

my %abh is AccountableBagHash = a => 42, b => 666;
%abh<a> =  5; # ok
%abh<a> = -1; # throws

my %amh is AccountableMixHash = a => 3.14, b => 666;
%abh<a> =  6.28; # ok
%abh<a> = -1;    # throws
  
CATCH {
    when X::BagHash::Acountable {
        say "You do not have enough {.key}";
        .resume
    }
}

DESCRIPTION

This module makes an AccountableBagHash / AccountableMixHash class available that can be used instead of the normal BagHash / MixHash. The only difference with a normal BagHash / MixHash is, is that if an attempt is made to set the value of a key to less than 0, that an exception is thrown rather than just deleting the key from the BagHash / MixHash.

Also exports a X::BagHash::Accountable error class that will be thrown if an attempt is made to set the value to below 0.

AUTHOR

Elizabeth Mattijsen liz@wenzperl.nl

Source can be located at: https://github.com/lizmat/AccountableBagHash . Comments and Pull Requests are welcome.

COPYRIGHT AND LICENSE

Copyright 2018, 2020 Elizabeth Mattijsen

This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.