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

Result: Add is_cancelled accessor

parent 39c39051

Changelog

+4 −0
Original line number Diff line number Diff line 
git HEAD



    * Result: Add is_cancelled accessor



Travel::Status::DE::DeutscheBahn 1.04 - Sun May 03 2015



    * Result: Add type accessor

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

+14 −0
Original line number Diff line number Diff line
@@ -62,6 +62,16 @@ sub delay { 
	return;

}



sub is_cancelled {

	my ($self) = @_;

	my $info = $self->info_raw;



	if ( $info =~ m{ Fahrt \s f.llt \s aus }ox ) {

		return 1;

	}

	return 0;

}



sub origin {

	my ($self) = @_;
@@ -207,6 +217,10 @@ Returns the train's delay in minutes, or undef if it is unknown. 
Returns additional information, for instance the reason why the train is

delayed. May be an empty string if no (useful) information is available.



=item $result->is_cancelled



True if the train was cancelled, false otherwise.



=item $result->line



=item $result->train