Commit 1608d648 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

result->info: return undef if no info is available

parent 476ecf88

Changelog

+2 −0
Original line number Diff line number Diff line
@@ -24,6 +24,8 @@ git HEAD 
    * Result: Remove route, route_raw, route_info, route_interesting and

      route_timetable accessors

    * Result: Add is_changed_platform and messages accessors

    * Result->info is now undef instead of an empty string when no information

      is available



Travel::Status::DE::DeutscheBahn 1.05 - Thu May 14 2015

lib/Travel/Status/DE/HAFAS.pm

+1 −3
Original line number Diff line number Diff line
@@ -305,11 +305,9 @@ sub results { 


		substr( $date, 6, 0, '20' );



		$info //= q{};



		# delayReason=" " means no delay reason

		if ( $info eq q{ } ) {

			$info = q{};

			$info = undef;

		}



		$train =~ s{#.*$}{};

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

+2 −2
Original line number Diff line number Diff line
@@ -11,7 +11,7 @@ use parent 'Class::Accessor'; 
our $VERSION = '1.05';



Travel::Status::DE::HAFAS::Result->mk_ro_accessors(

	qw(date info raw_e_delay raw_delay time train route_end info_raw));

	qw(date info raw_e_delay raw_delay time train route_end));



sub new {

	my ( $obj, %conf ) = @_;
@@ -169,7 +169,7 @@ Also returns undef if the arrival/departure has been cancelled. 
=item $result->info



Returns additional information, for instance the most recent delay reason.

Returns an empty string if no (useful) information is available.

undef if no (useful) information is available.



=item $result->is_cancelled