Commit 53e0db6d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

fix smartmatch warnings on perl >= 5.018

parent f6490ac3

lib/Travel/Status/DE/DeutscheBahn.pm

+2 −0
Original line number Diff line number Diff line
@@ -4,6 +4,8 @@ use strict; 
use warnings;

use 5.010;



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



use Carp qw(confess);

use LWP::UserAgent;

use POSIX qw(strftime);

lib/Travel/Status/DE/DeutscheBahn/Result.pm

+2 −0
Original line number Diff line number Diff line
@@ -4,6 +4,8 @@ use strict; 
use warnings;

use 5.010;



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



use parent 'Class::Accessor';



our $VERSION = '1.01';