Revision 0f3c5d34
SL/DATEV.pm | ||
---|---|---|
191 | 191 |
my $self = shift; |
192 | 192 |
|
193 | 193 |
if (@_) { |
194 |
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime'; |
|
194 | 195 |
$self->{from} = $_[0]; |
195 | 196 |
} |
196 | 197 |
|
... | ... | |
201 | 202 |
my $self = shift; |
202 | 203 |
|
203 | 204 |
if (@_) { |
205 |
die "Invalid type, need DateTime Object" unless ref $_[0] eq 'DateTime'; |
|
204 | 206 |
$self->{to} = $_[0]; |
205 | 207 |
} |
206 | 208 |
|
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