Money::PaymentPreparer - change sum to bills and coins.
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();
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.
creates the object.
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);
value to change. It returns %hash of nominals with numbers of bills.
returns %hash of nominals with numbers of bills.
Support for decimal values.
Check for indivisible values.
£ukasz M±drzycki, <email@example.com>.
All Perl family.
Copyright(C) 2004, 2005 £ukasz M±drzycki, <firstname.lastname@example.org>. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.