Commit 43e06258 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Result: Add ->type accessor

parent 68cd2f9b

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

+14 −0
Original line number Diff line number Diff line
@@ -137,6 +137,15 @@ sub TO_JSON { 
	return { %{$self} };

}



sub type {

	my ($self) = @_;



	# $self->{train} is either "TYPE 12345" or "TYPE12345"

	my ($type) = ( $self->{train} =~ m{ ^ ([A-Z]+) }x );



	return $type;

}



1;



__END__
@@ -259,6 +268,11 @@ references of the form C<< [ arrival time, station name ] >>. 


Returns the arrival/departure time as string in "hh:mm" format.



=item $result->type



Returns the type of this train, e.g. "S" for S-Bahn, "RE" for Regional Express

or "ICE" for InterCity-Express.



=back



=head2 INTERNAL