Revision 51d553bd
Von Jan Büren vor etwa 7 Jahren hinzugefügt
| SL/DATEV/CSV.pm | ||
|---|---|---|
| 20 | 20 |
type => 'Value', |
| 21 | 21 |
required => 1, |
| 22 | 22 |
input_check => sub { my ($input) = @_; return (looks_like_number($input) && length($input) <= 13) },
|
| 23 |
formatter => sub { my ($input) = @_; return _format_amount($input) },
|
|
| 23 |
formatter => \&_format_amount,
|
|
| 24 | 24 |
valid_check => sub { my ($check) = @_; return ($check =~ m/^\d{1,10}(\,\d{1,2})?$/) },
|
| 25 | 25 |
}, |
| 26 | 26 |
{
|
Auch abrufbar als: Unified diff
DATEV::CSV Bessere wartbarer Aufruf für _format_amount