Commit 06e7486d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

perlcritic

parent bdd029cd

bin/hafas-m

+3 −2
Original line number Diff line number Diff line
@@ -85,10 +85,9 @@ sub show_version { 
sub parse_mot_options {



	my $default_yes = 1;

	my $help;



	for my $type ( split( qr{,}, $types ) ) {

		if ( $type eq 'help' or $type eq 'list' or $type eq '?' ) {

		if ( $type eq 'help' or $type eq 'list' or $type eq q{?} ) {

			if ( not $hafas_url ) {

				$service //= 'DB';

			}
@@ -113,6 +112,7 @@ sub parse_mot_options { 
			push( @exclusive_mots, $type );

		}

	}

	return;

}



sub show_similar_stops {
@@ -123,6 +123,7 @@ sub show_similar_stops { 
			printf( "%s (%s)\n", $c->{name}, $c->{id} );

		}

	}

	return;

}



sub display_result {

lib/Travel/Status/DE/HAFAS.pm

+2 −1
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ use warnings; 
use 5.010;

use utf8;



no if $] >= 5.018, warnings => "experimental::smartmatch";

no if $] >= 5.018, warnings => 'experimental::smartmatch';



use Carp qw(confess);

use LWP::UserAgent;
@@ -214,6 +214,7 @@ sub set_productfilter { 
		}

	}



	return;

}



sub check_input_error {