eed0db7897
The signatures feature has been "experimental" since Perl 5.20 (May 2014), but expected to stay. After 8 years I'm ready to take the risk :) Have added Perl v5.28 (June 2018) as the minimum requirement, even though the current revbank should work with 5.20, to see if this bothers any users. Perl v5.28 is in Debian "buster", which is now oldstable.
94 lines
2.2 KiB
Perl
94 lines
2.2 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;
|
|
|
|
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\::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, or an unknown barcode.\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;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
RevBank::Global - Constants and utility functions
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use RevBank::Global;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module unconditionally exports the following symbols into the calling
|
|
namespace:
|
|
|
|
=head2 ACCEPT, ABORT, REJECT, NEXT, DONE
|
|
|
|
Return codes for plugins. See L<RevBank::Plugins>.
|
|
|
|
=head2 say
|
|
|
|
Print with newline, in case your Perl version doesn't already have a C<say>.
|
|
|
|
=head2 call_hooks($hook, @arguments)
|
|
|
|
See C<call_hooks> in L<RevBank::Plugins>.
|
|
|
|
=head2 parse_amount($amount)
|
|
|
|
Returns the amount given if it is well formed, undef if it was not. Dies if
|
|
the given amount exceeds certain boundaries.
|
|
|
|
Commas are changed to periods so C<3,50> and C<3.50> both result in C<3.5>.
|
|
|
|
=head2 parse_user($username)
|
|
|
|
See C<parse_user> in L<RevBank::Users>.
|
|
|
|
Returns the canonical username, or undef if the account does not exist.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Juerd Waalboer <#####@juerd.nl>
|
|
|
|
=head1 LICENSE
|
|
|
|
Pick your favourite OSI license.
|