File Coverage

blib/lib/Palm/MaTirelire/Currencies.pm

Criterion	Covered	Total	%
statement	13	21	61.9
branch	0	4	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	0	3	0.0
total	18	39	46.1

#
# Author          : Maxime Soulé
# Created On      : Mon Aug 30 20:55:45 2004
# Last Modified By: Maxime Soule
# Last Modified On: Mon May  3 14:56:59 2010
# Update Count    : 2
#
# Copyright (C) 2005, Maxime Soulé
# You may distribute this file under the terms of the Artistic
# License, as specified in the README file.
#

package Palm::MaTirelire::Currencies;

use strict;

use Palm::BlockPack;

use Palm::MaTirelire::DBItemId;

use base qw(Palm::MaTirelire::DBItemId);

our $VERSION = '1.0';


# AppInfoBlock
my $APPINFO_BLOCK = Palm::BlockPack->new
    (N => [ 'last_ext_creation_date' => 0 ]);

# Each record
my $RECORD_BLOCK = Palm::BlockPack->new
    (UInt32	=> [
		    [ 'curr_id:8'	=> 0 ],
		    [ 'reference:1'	=> 0 ],
		    [ 'reserved:*'	=> 0 ],
		    ],
     'double'	=> [ 'reference_amount' => 1 ],
     'double'	=> [ 'currency_amount'  => 1 ],

     'Z4'	=> [ 'iso4217' => '' ],

     'Z*'	=> [ 'name' => '' ],
     );


sub import
{
    &Palm::PDB::RegisterPDBHandlers(__PACKAGE__, [ "MaT2", 'Curr' ]);
}


sub meta_infos ($)
{
    return { name	   => "MaTi-Currencies",
	     type	   => "Curr",
	     appinfo_block => $APPINFO_BLOCK,
	     record_block  => $RECORD_BLOCK,
	     id_field	   => 'curr_id',
	     num	   => (1 << 8),
	   };
}


sub reference ($)
{
    my $self = shift;

    foreach my $rec (@{$self->{records}})
    {
	return $rec if $rec->{reference};
    }
}


sub convert_amount ($$$$)
{
    my($self, $amount, $rec_old, $rec_new) = @_;

    return $amount if not defined $rec_old or not defined $rec_new;

    return sprintf('%.2f', ($amount * $rec_new->{currency_amount}
			    * $rec_old->{reference_amount})
		   / ($rec_new->{reference_amount}
		      * $rec_old->{currency_amount}));
}

1;
__END__