53 lines
1.6 KiB
Perl
53 lines
1.6 KiB
Perl
package RevBank::Global;
|
|
|
|
use v5.28;
|
|
use warnings;
|
|
use feature qw(signatures);
|
|
no warnings qw(experimental::signatures);
|
|
|
|
use POSIX qw(strftime);
|
|
use RevBank::Amount;
|
|
use RevBank::FileIO;
|
|
|
|
sub import {
|
|
require RevBank::Plugins;
|
|
require RevBank::Users;
|
|
no strict 'refs';
|
|
my $caller = caller;
|
|
*{"$caller\::ACCEPT"} = sub () { \1 };
|
|
*{"$caller\::ABORT"} = sub () { \2 };
|
|
*{"$caller\::REJECT"} = sub () { \3 };
|
|
*{"$caller\::NEXT"} = sub () { \4 };
|
|
*{"$caller\::DONE"} = sub () { \5 };
|
|
*{"$caller\::slurp"} = \&RevBank::FileIO::slurp;
|
|
*{"$caller\::spurt"} = \&RevBank::FileIO::spurt;
|
|
*{"$caller\::rewrite"} = \&RevBank::FileIO::rewrite;
|
|
*{"$caller\::append"} = \&RevBank::FileIO::append;
|
|
*{"$caller\::with_lock"} = \&RevBank::FileIO::with_lock;
|
|
*{"$caller\::parse_user"} = \&RevBank::Users::parse_user;
|
|
*{"$caller\::parse_amount"} = sub ($amount) {
|
|
defined $amount or return undef;
|
|
length $amount or return undef;
|
|
|
|
$amount = RevBank::Amount->parse_string($amount) // return undef;
|
|
if ($amount->cents < 0) {
|
|
die "For our sanity, no negative amounts, please :).\n";
|
|
}
|
|
if ($amount->cents > 99900) {
|
|
die "That's way too much money.\n";
|
|
}
|
|
return $amount;
|
|
};
|
|
*{"$caller\::call_hooks"} = \&RevBank::Plugins::call_hooks;
|
|
*{"$caller\::say"} = sub {
|
|
print @_, "\n";
|
|
};
|
|
*{"$caller\::now"} = sub () {
|
|
return strftime '%Y-%m-%d_%H:%M:%S', localtime;
|
|
};
|
|
|
|
}
|
|
|
|
__PACKAGE__->import;
|
|
|
|
1;
|