Finance::Currency::ParValueSeparate module can give least number of every parvalue within a certain amount.
SYNOPSIS
# create new object to resolve RMB 317 needs which least number of parvalue
use Finance::Currency::ParValueSeparate;
my $pvs = new Finance::Currency::ParValueSeparate( RMB => 317 );
$pvs->parse;
# list all parvalue which we need and how many we need
map { print "parvalue $$_: ", $pvs->number_of_dollar($_), "n" } $pvs->dollar_parvalues;
more flexible usage see the method part below.
When we offer salaies to employees with cash, we should prepare some different parvalue of money. For example, we pay $327 to a guy, we should prepare three $100 parvalue and one $20 parvalue and one $5 parvalue and two $2 parvalue. Of course it's easy for a man to decide how many and which parvalue we need to pay, and in my later project, the customer often parepare salaies for a group of employees, so many person's salaies we should compute then let perl take it over, and further more, the customer only want know totally how many every parvalue he should prepare to pay the group. Here this module comes.
Product's homepage
Requirements:
· Perl