Commit eabf885d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

minor optimization

parent c5bbefa8

lib/Travel/Status/DE/IRIS.pm

+0 −1
Original line number Diff line number Diff line
@@ -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);

lib/Travel/Status/DE/IRIS/Result.pm

+1 −1
Original line number Diff line number Diff line
@@ -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 "