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

Changelog

@@ -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

@@ -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

@@ -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