Lines 226-231
sub _swaggerize_exception {
Link Here
|
226 |
$ret->{$name} = {}; |
226 |
$ret->{$name} = {}; |
227 |
foreach my $field ($exceptions->{$ex}->Fields) { |
227 |
foreach my $field ($exceptions->{$ex}->Fields) { |
228 |
my $val = $exceptions->{$ex}->$field; |
228 |
my $val = $exceptions->{$ex}->$field; |
|
|
229 |
return unless $val; |
229 |
if ($val =~ /^(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2}):(\d{2})/) { |
230 |
if ($val =~ /^(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2}):(\d{2})/) { |
230 |
eval { |
231 |
eval { |
231 |
$val = dt_from_string($val, 'sql')->strftime('%FT%T%z'); |
232 |
$val = dt_from_string($val, 'sql')->strftime('%FT%T%z'); |
232 |
- |
|
|