Add --raw-json option

1 files changed, 7 insertions, 1 deletions

diff --git a/bin/hafas b/bin/hafas
index 8658d4e..33fdca8 100755
--- a/bin/hafas
+++ b/bin/hafas
@@ -18,7 +18,7 @@ use Travel::Status::DE::HAFAS;
 my ( $date, $time, $arrival, $language );
 my $types = q{};
 my $developer_mode;
-my $json_output;
+my ( $json_output, $raw_json_output );
 my $show_full_route;
 my ( $list_services, $service );
 my ( @excluded_mots, @exclusive_mots );
@@ -56,6 +56,7 @@ GetOptions(
 	'V|version'       => \&show_version,
 	'devmode'         => \$developer_mode,
 	'json'            => \$json_output,
+	'raw-json'        => \$raw_json_output,
 	'list'            => \$list_services,
 
 ) or show_help(1);
@@ -273,6 +274,11 @@ if ( my $err = $hafas->errstr ) {
 	exit 2;
 }
 
+if ($raw_json_output) {
+	say JSON->new->convert_blessed->encode( $hafas->{raw_json} );
+	exit 0;
+}
+
 if ($json_output) {
 	say JSON->new->convert_blessed->encode( [ $hafas->connections ] );
 	exit 0;