Revision 82948af1
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/DB/Helper/Payment.pm | ||
|---|---|---|
|
validate_pos(
|
||
|
@_,
|
||
|
{ can => [ qw(forex get_exchangerate) ],
|
||
|
callbacks => { 'has forex' => sub { return $_[0]->forex } } },
|
||
|
callbacks => { 'has forex' => sub { return $_[0]->forex },
|
||
|
'has exchangerate' => sub { return $_[0]->get_exchangerate > 0 } } },
|
||
|
{ callbacks => {
|
||
|
'is a positive real' => sub { return $_[0] =~ m/^[+]?\d+(\.\d+)?$/ }, },
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Payment-Helper mehr Parameter prüfen (Testfall)