The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

VERSION

Version 0.03

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

AUTHOR

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

BUGS

Who knows...

ACKNOWLEDGEMENTS

All Perl family.

COPYRIGHT & LICENSE

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.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 113:

Non-ASCII character seen before =encoding in '£ukasz'. Assuming CP1252