Checking if your kit is complete... Looks good Writing Makefile for Finance::Currency::ParValueSeparate cp ParValueSeparate/RMB.pm blib/lib/Finance/Currency/ParValueSeparate/RMB.pm cp ParValueSeparate.pm blib/lib/Finance/Currency/ParValueSeparate.pm Manifying blib/man3/Finance::Currency::ParValueSeparate.3 PERL_DL_NONLAZY=1 /home/cpanrun/tmp/5.10.0/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl 1..1 ok 1 $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); -------------------------------------------------------------------------------- amount as array: $VAR1 = '317.34'; $VAR2 = '512.14'; amount as array ref: $VAR1 = [ '317.34', '512.14' ]; -------------------------------------------------------------------------------- with dollor: $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [ '1', '50', '10', '2', '100' ], '_with_dollar' => [ '20', '5' ], '_AMOUNT' => [ '317.34', '512.14' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); with dollor: $VAR1 = 20; $VAR2 = 10; without dollor: $VAR1 = '1'; $VAR2 = '50'; $VAR3 = '2'; $VAR4 = '100'; $VAR5 = '5'; -------------------------------------------------------------------------------- without dollor: $VAR1 = bless( { '_without_cent' => [], '_without_dollar' => [ '20', '5' ], '_with_dollar' => [ '1', '50', '10', '2', '100' ], '_AMOUNT' => [ '317.34', '512.14' ], '_with_cent' => [ '50', '20', '10', '5', '2', '1' ] }, 'Finance::Currency::ParValueSeparate::RMB' ); with dollor: $VAR1 = '1'; $VAR2 = '50'; $VAR3 = '2'; $VAR4 = '100'; $VAR5 = '5'; without dollor: $VAR1 = 20; $VAR2 = 10; -------------------------------------------------------------------------------- only_dollor set 1: 1 only_dollor set 0: 0 only_dollor return: 0 -------------------------------------------------------------------------------- amount 314.65 dollar parvalue $100: 3 dollar parvalue $50: 0 dollar parvalue $5: 2 dollar parvalue $2: 2 dollar parvalue $1: 0 cent parvalue $50: 1 cent parvalue $20: 0 cent parvalue $10: 1 cent parvalue $5: 1 cent parvalue $2: 0 cent parvalue $1: 0 -------------------------------------------------------------------------------- amount 314.65,45.23 dollar parvalue $100: 3 dollar parvalue $50: 0 dollar parvalue $5: 11 dollar parvalue $2: 2 dollar parvalue $1: 0 cent parvalue $50: 1 cent parvalue $20: 1 cent parvalue $10: 1 cent parvalue $5: 1 cent parvalue $2: 1 cent parvalue $1: 1 -------------------------------------------------------------------------------- amount 573 dollar parvalue $100: 5 dollar parvalue $50: 1 dollar parvalue $5: 4 dollar parvalue $2: 1 dollar parvalue $1: 1 cent parvalue $50: 0 cent parvalue $20: 0 cent parvalue $10: 0 cent parvalue $5: 0 cent parvalue $2: 0 cent parvalue $1: 0 -------------------------------------------------------------------------------- amount 573 x 10 dollar parvalue $100: 50 dollar parvalue $50: 10 dollar parvalue $5: 40 dollar parvalue $2: 10 dollar parvalue $1: 10 cent parvalue $50: 0 cent parvalue $20: 0 cent parvalue $10: 0 cent parvalue $5: 0 cent parvalue $2: 0 cent parvalue $1: 0 Installing /home/cpanrun/build/5.10.0/html/site/lib/Finance/Currency/ParValueSeparate.html Installing /home/cpanrun/build/5.10.0/site/lib/Finance/Currency/ParValueSeparate.pm Installing /home/cpanrun/build/5.10.0/site/lib/Finance/Currency/ParValueSeparate/RMB.pm Installing /home/cpanrun/build/5.10.0/site/man/man3/Finance::Currency::ParValueSeparate.3 Appending installation info to /home/cpanrun/build/5.10.0/lib/perllocal.pod