diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-06-23 14:01:12 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-06-23 14:01:12 +0200 |
| commit | 5cd051ad84b572fe83f82ab3f8353fdf3ca3eb06 (patch) | |
| tree | d99c4eda589c8a949b333922792a0b6673cb3efd /lib/Travel/Status/DE/EFA.pm | |
| parent | c3daa7061eaad138b6662d159744859f64bce686 (diff) | |
fix perlcritic warnings
Diffstat (limited to 'lib/Travel/Status/DE/EFA.pm')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index f261855..2f475d8 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -4,7 +4,7 @@ use strict; use warnings; use 5.010; -no if $] >= 5.018, warnings => "experimental::smartmatch"; +no if $] >= 5.018, warnings => 'experimental::smartmatch'; our $VERSION = '1.09'; @@ -163,7 +163,7 @@ sub sprintf_date { my ($e) = @_; if ( $e->getAttribute('day') == -1 ) { - return undef; + return; } return sprintf( '%02d.%02d.%d', @@ -177,7 +177,7 @@ sub sprintf_time { my ($e) = @_; if ( $e->getAttribute('minute') == -1 ) { - return undef; + return; } return sprintf( '%02d:%02d', @@ -441,7 +441,7 @@ sub results { $platform_is_db = 1; } - if ( $platform_name and $platform_name =~ m{ ^ (Gleis | Bstg\.)}ox ) { + if ( $platform_name and $platform_name =~ m{ ^ (Gleis | Bstg[.])}ox ) { $platform = ( split( / /, $platform_name ) )[1]; } elsif ( $platform_name and not $platform ) { |