Revision 0e71a0c8
Von Jan Büren vor 11 Monaten hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
|
my $self = shift;
|
||
|
|
||
|
if (@_) {
|
||
|
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime';
|
||
|
$self->{from} = $_[0];
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
my $self = shift;
|
||
|
|
||
|
if (@_) {
|
||
|
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime';
|
||
|
$self->{to} = $_[0];
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
DATEV etwas besser gegen SQL-Injection schützen
Übergebener Typ muss DateTime sein, der wird später dann
in einer SQL-Abfrage interpoliert