I haven't done this in Perl, and your code looks like a good implementation of a class I wrote (once upon a time) in Java. I called my class a "Loaded Die." Some games require dice with unusual numbers of faces, and some games require non-uniform affine probabilities. It had a set of possible face values, and an associated probability for each face.

I agree, if you submit this as a full-fledged module to CPAN, call it something useful. I'd suggest Quantum::Quaint if you want to demonstrate its similarity to the other Quantum::* modules, or Tie::Scalar::Random or something that people would find with a search. CPAN's searches are disappointing but well-chosen names go a long way.

--
[ e d @ h a l l e y . c c ]