Help language development. Donate to The Perl Foundation

AccountableBagHash cpan:ELIZABETH last updated on 2018-09-30

AccountableBagHash-0.0.2/

Build Status

NAME

AccountableBagHash - be an accountable BagHash

SYNOPSIS

use AccountableBagHash;

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

CATCH {
    when X::BagHash::Acountable {
        say "You do not have enough {.key}";
        .resume
    }
}

DESCRIPTION

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

Also exports a X::BagHash::Acountable 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 Elizabeth Mattijsen

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