Unverified Commit e73b97dd authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add --raw-json option

parent f7141fdb

bin/hafas

+7 −1
Original line number Diff line number Diff line
@@ -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;