bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ditch floating point numbers, use cents instead; bump version to 3.2

Browse source
This commit is contained in:
Juerd Waalboer 2021-12-02 22:07:58 +01:00
parent 9b582d5f9b
commit 38a0229899
17 changed files with 545 additions and 168 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/RevBank/Global.pm
View file

@ -1,6 +1,7 @@
package RevBank::Global;
use strict;
use POSIX qw(strftime);
use RevBank::Amount;
sub import {
require RevBank::Plugins;
@ -17,15 +18,15 @@ sub import {
my ($amount) = @_;
defined $amount or return undef;
length $amount or return undef;
$amount =~ /^(-)?[0-9]*(?:[,.][0-9]{1,2})?$/ or return undef;
if ($1) {
$amount = RevBank::Amount->parse_string($amount) // return undef;
if ($amount->cents < 0) {
die "For our sanity, no negative amounts, please :).\n";
}
$amount =~ s/,/./g;
if ($amount > 999) {
if ($amount->cents > 99900) {
die "That's way too much money, or an unknown barcode.\n";
}
return 0 + $amount;
return $amount;
};
*{"$caller\::call_hooks"} = \&RevBank::Plugins::call_hooks;
*{"$caller\::say"} = sub {