From 06e7486d854c0ec32bceb83d2074d48888db4fc7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 22 Sep 2015 16:32:23 +0200
Subject: perlcritic

---
 bin/hafas-m                   | 5 +++--
 lib/Travel/Status/DE/HAFAS.pm | 3 ++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/bin/hafas-m b/bin/hafas-m
index 97ecaa2..5476cb5 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -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 {
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 28d069b..979a538 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -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 {
-- 
cgit v1.2.3