Money::PaymentPreparer - change sum to bills and coins.

Version 0.03

 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.

new

creates the 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.

Support for decimal values.

Check for indivisible values.

Łukasz M±drzycki, <uksza@cpan.org>.

Who knows...

All Perl family.

Copyright(C) 2004, 2005 Łukasz M±drzycki, <uksza@cpan.org>. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.