From 3319aec82e92a1e64a5270e8c84a537d6fb2d2c2 Mon Sep 17 00:00:00 2001 From: Lars Dieckow Date: Tue, 23 Apr 2013 14:25:37 +0200 Subject: [PATCH] fix warning: Unquoted string "strictures" may clash with future reserved word --- lib/Sipwise/Base.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lib/Sipwise/Base.pm b/lib/Sipwise/Base.pm index 4705edf..aba34db 100644 --- a/lib/Sipwise/Base.pm +++ b/lib/Sipwise/Base.pm @@ -1,6 +1,6 @@ package Sipwise::Base; use utf8; -use Module::Runtime qw(require_module); +use Module::Runtime qw(use_module); use parent 'autodie'; our $VERSION = '1.000'; @@ -8,11 +8,8 @@ sub import { my ($class) = @_; my $caller = caller; - require_module('strictures'); - strictures->import(1); - - require_module('perl5i::2'); - perl5i::2->import(-skip => [qw(Signatures Try::Tiny)]); + use_module('strictures')->import(1); + use_module('perl5i::2')->import(-skip => [qw(Signatures Try::Tiny)]); eval <<""; package $caller;