| Łukasz M±drzycki 2004-12-29, 3:56 pm |
| Hi!
I've made module for my friend. Mayby someone need it too?
Comments, sugestions and spell checking gladly accepted.
regards,
Luk
NAME
Money::PaymentPreparer - change sum to bills and coins.
VERSION
Version 0.01
SYNOPSIS
use Money::PaymentPreparer;
my @my_bills = qw (200 100 50 20 10 5 2 1);
my $object = PaymentPreparer->new();
$object->set_bill(@my_bills);
$object->add(153);
$object->add(68);
%result = $object->get();
DESCRIPTION
This module change sum (i.e. payment) to collection of bills and coins
and keep it all in one hash returned by *add* or *get*.
new creates the array object.
set_bill
gets @list of nominations bills and coins. In Europe it should looks
like this:
"@my_table = qw (500 200 100 50 20 10 5 2 1);"
add value to change. It returns %hash of nominals with numbers of bills.
get returns %hash of nominals with numbers of bills.
TO DO
Support for decimal values.
Check for indivisible values.
BUGS
Who knows...
--
*- uksza(@)at(@)wp(.)dot(.)pl
*- RLU: #272802 | got slack?
|