Result.pm: Add JSON serializer

2 files changed, 10 insertions, 0 deletions

diff --git a/Changelog b/Changelog
index ce4150c..31c9881 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,7 @@
+git HEAD
+
+    * Add primitive JSON serializer to Travel::Status::DE::DeutscheBahn::Result
+
 Travel::Status::DE::DeutscheBahn 1.02 - Tue Sep 17 2013
 
     * Respect proxy environment variables
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
index 8e127ae..9c62a71 100644
--- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
@@ -131,6 +131,12 @@ sub route_timetable {
 	return @{ $self->{route} };
 }
 
+sub TO_JSON {
+	my ($self) = @_;
+
+	return { %{$self} };
+}
+
 1;
 
 __END__