From eabf885d15ce6bbafc0a737f1ecd171f6067d5ed Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 24 Nov 2016 22:55:50 +0100
Subject: minor optimization

---
 lib/Travel/Status/DE/IRIS.pm        | 1 -
 lib/Travel/Status/DE/IRIS/Result.pm | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib')

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 "
-- 
cgit v1.2.3