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