Changeset 1958

Show
Ignore:
Timestamp:
09/14/06 18:20:41
Author:
miyagawa
Message:

added Number::Format

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/currency

    r1957 r1958  
    44use Getopt::Long; 
    55use Finance::Currency::Convert::Yahoo; 
     6use Number::Format; 
    67 
    78my $to   = "JPY"; 
     
    2526 
    2627my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to) or exit; 
    27 print "$quant $currency = $how $to\n"; 
     28print comma($quant), " $currency = ", comma($how), " $to\n"; 
     29 
     30sub comma { 
     31    Number::Format->new->format_number($_[0]); 
     32