summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2016-11-24 22:55:50 +0100
committerDaniel Friesel <derf@finalrewind.org>2016-11-24 22:55:50 +0100
commiteabf885d15ce6bbafc0a737f1ecd171f6067d5ed (patch)
tree73d83ec06a3ca3704a4eff05f0c40dce3e8c8471 /lib/Travel/Status/DE
parentc5bbefa81be609cd9b4ee325d1c226489a020ca6 (diff)
minor optimization
Diffstat (limited to 'lib/Travel/Status/DE')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm1
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm2
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 "