diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 1 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 961136d..9052f4c 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -11,7 +11,6 @@ our $VERSION = '1.11'; use Carp qw(confess cluck); use DateTime; use DateTime::Format::Strptime; -use Encode qw(encode decode); use List::Util qw(first); use List::MoreUtils qw(uniq); use List::UtilsBy qw(uniq_by); diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index d1f2ccd..75bff00 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -141,7 +141,7 @@ sub new { my $dp = $ref->{departure} = $ref->{sched_departure} = $ref->parse_ts( $opt{departure_ts} ); - if ( not( $ar or $dp ) ) { + if ( not( defined $ar or defined $dp ) ) { cluck( sprintf( "Neither arrival '%s' nor departure '%s' are valid " |