Checking if your kit is complete... Looks good Writing Makefile for Finance::Currency::ParValueSeparate cp ParValueSeparate.pm blib/lib/Finance/Currency/ParValueSeparate.pm cp ParValueSeparate/RMB.pm blib/lib/Finance/Currency/ParValueSeparate/RMB.pm Manifying blib/man3/Finance::Currency::ParValueSeparate.3 PERL_DL_NONLAZY=1 /home/cpanrun/pa-risc1.1/build/5.6.1/bin/perl -Iblib/arch -Iblib/lib -I/home/cpanrun/pa-risc1.1/build/5.6.1/lib/5.6.1/PA-RISC1.1-thread-multi -I/home/cpanrun/pa-risc1.1/build/5.6.1/lib/5.6.1 test.pl 1..1 ok 1 $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [], '_with_dollar' => [ '100', '50', '20', '10', '5', '2', '1' ], '_AMOUNT' => [ '317.34', '512.14' ], '_without_cent' => [] }, '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( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [ '1', '2', '10', '50', '100' ], '_with_dollar' => [ '20', '5' ], '_AMOUNT' => [ '317.34', '512.14' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); with dollor: $VAR1 = 20; $VAR2 = 10; without dollor: $VAR1 = '1'; $VAR2 = '2'; $VAR3 = '50'; $VAR4 = '5'; $VAR5 = '100'; -------------------------------------------------------------------------------- without dollor: $VAR1 = bless( { '_with_cent' => [ '50', '20', '10', '5', '2', '1' ], '_without_dollar' => [ '20', '5' ], '_with_dollar' => [ '1', '2', '10', '50', '100' ], '_AMOUNT' => [ '317.34', '512.14' ], '_without_cent' => [] }, 'Finance::Currency::ParValueSeparate::RMB' ); with dollor: $VAR1 = '1'; $VAR2 = '2'; $VAR3 = '50'; $VAR4 = '5'; $VAR5 = '100'; 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/pa-risc1.1/build/5.6.1/lib/site_perl/5.6.1/Finance/Currency/ParValueSeparate.pm Installing /home/cpanrun/pa-risc1.1/build/5.6.1/lib/site_perl/5.6.1/Finance/Currency/ParValueSeparate/RMB.pm Installing /home/cpanrun/pa-risc1.1/build/5.6.1/man/man3/Finance::Currency::ParValueSeparate.3 Writing /home/cpanrun/pa-risc1.1/build/5.6.1/lib/site_perl/5.6.1/PA-RISC1.1-thread-multi/auto/Finance/Currency/ParValueSeparate/.packlist Appending installation info to /home/cpanrun/pa-risc1.1/build/5.6.1/lib/5.6.1/PA-RISC1.1-thread-multi/perllocal.pod