Commit 08d0de73 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add line_no / train_no accessors

parent c8044c76

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

+15 −0
Original line number Diff line number Diff line
@@ -109,6 +109,21 @@ sub type { 
	return $type;

}



sub line_no {

	my ($self) = @_;



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

	my ($line_no) = ( $self->{train} =~ m{ ([^[:space:]]+) $ }x );



	return $line_no;

}



sub train_no {

	my ($self) = @_;



	return $self->line_no;

}



1;



__END__