diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2016-11-24 22:55:50 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2016-11-24 22:55:50 +0100 |
| commit | eabf885d15ce6bbafc0a737f1ecd171f6067d5ed (patch) | |
| tree | 73d83ec06a3ca3704a4eff05f0c40dce3e8c8471 | |
| parent | c5bbefa81be609cd9b4ee325d1c226489a020ca6 (diff) | |
minor optimization
| -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 " |