summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/EFA.pm
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-09-01 12:32:20 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2023-09-01 12:32:20 +0200
commit0201467b3458a6ef74a3e7a975c0db065b0edb4c (patch)
tree34db3b898a93d320916cc2bc69feabf5c104388e /lib/Travel/Status/DE/EFA.pm
parent7e6b9de3abc7fd649d892560cad591465b5e2c91 (diff)
do not use now-deprecated smartmatch feature
Diffstat (limited to 'lib/Travel/Status/DE/EFA.pm')
-rw-r--r--lib/Travel/Status/DE/EFA.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 1c994d8..5de9a76 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -5,11 +5,9 @@ use warnings;
use 5.010;
use utf8;
-no if $] >= 5.018, warnings => 'experimental::smartmatch';
-
our $VERSION = '1.21';
-use Carp qw(confess cluck);
+use Carp qw(confess cluck);
use Encode qw(encode);
use Travel::Status::DE::EFA::Line;
use Travel::Status::DE::EFA::Result;
@@ -34,7 +32,9 @@ sub new {
if ( not( $opt{name} ) ) {
confess('You must specify a name');
}
- if ( $opt{type} and not( $opt{type} ~~ [qw[stop stopID address poi]] ) ) {
+ if ( $opt{type}
+ and not( $opt{type} =~ m{ ^ (?: stop stopID address poi ) $ }x ) )
+ {
confess('type must be stop, stopID, address, or poi');
}
@@ -332,7 +332,7 @@ sub lines {
my $type = $e_info->getAttribute('name');
my $mot = $e->getAttribute('motType');
my $route = ( $e_route ? $e_route->textContent : undef );
- my $operator = ( $e_oper ? $e_oper->textContent : undef );
+ my $operator = ( $e_oper ? $e_oper->textContent : undef );
my $identifier = $e->getAttribute('stateless');
push(