Commit 0c6b8879 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add Line->key and JSON export

parent ba3500bd

lib/Travel/Status/DE/VRR.pm

+4 −0
Original line number Diff line number Diff line
@@ -113,6 +113,8 @@ sub new { 


	$self->{tree} = XML::LibXML->load_xml( string => $self->{xml}, );



	#	say $self->{tree}->toString(1);



	$self->check_for_ambiguous();



	return $self;
@@ -313,6 +315,7 @@ sub results { 
		my $line      = $e_line->getAttribute('number');

		my $dest      = $e_line->getAttribute('direction');

		my $info      = $e_info->textContent;

		my $key       = $e_line->getAttribute('key');

		my $countdown = $e->getAttribute('countdown');

		my $delay     = $e_info->getAttribute('delay') // 0;

		my $type      = $e_info->getAttribute('name');
@@ -334,6 +337,7 @@ sub results { 
				time        => $rtime,

				platform    => $platform,

				platform_db => $platform_is_db,

				key         => $key,

				lineref     => $line_obj[0] // undef,

				line        => $line,

				destination => decode( 'UTF-8', $dest ),

lib/Travel/Status/DE/VRR/Line.pm

+7 −0
Original line number Diff line number Diff line
@@ -18,6 +18,13 @@ sub new { 


	return bless( $ref, $obj );

}



sub TO_JSON {

	my ($self) = @_;



	return { %{$self} };

}



1;



__END__

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

+13 −1
Original line number Diff line number Diff line
@@ -9,7 +9,7 @@ use parent 'Class::Accessor'; 
our $VERSION = '1.03';



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

	qw(countdown date delay destination info line lineref platform

	qw(countdown date delay destination info key line lineref platform

	  platform_db sched_date sched_time time type)

);
@@ -20,6 +20,13 @@ sub new { 


	return bless( $ref, $obj );

}



sub TO_JSON {

	my ($self) = @_;



	return { %{$self} };

}



1;



__END__
@@ -86,6 +93,11 @@ an address were requested, this is the stop name, otherwise it may be recent 
news related to the line's schedule.  If no information is available, returns

an empty string.



=item $departure->key



Unknown.  Appears to be the UUID for this departure (unique over all

lines, reused daily).



=item $departure->line



The name/number of the line.