From 0201467b3458a6ef74a3e7a975c0db065b0edb4c Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Fri, 1 Sep 2023 12:32:20 +0200 Subject: do not use now-deprecated smartmatch feature --- lib/Travel/Status/DE/EFA.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lib/Travel/Status/DE/EFA.pm') 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( -- cgit v1.2.3