Replacing Encode->export_to_level with Encode->import::into

--- lib/Encode/Escape.pm
+++ lib/Encode/Escape.pm
@@ -9,6 +9,8 @@ use 5.008008;
 use strict;
 use warnings;
 
+use Import::Into;
+
 our $VERSION = do { q$Revision: 1.14 $ =~ /\d+\.(\d+)/; sprintf "%.2f", $1 / 100  };
 
 
@@ -26,7 +28,8 @@ sub import {
     }
 
     require Encode;
-    Encode->export_to_level(1, @_);
+    shift @_; # no need for the package name
+    Encode->import::into(1, @_);
 }
 
 use Encode::Escape::ASCII;
--- lib/Encode/Escape/ASCII.pm
+++ lib/Encode/Escape/ASCII.pm
@@ -9,6 +9,7 @@ our $VERSION  = do { q$Revision: 1.19 $ =~ /\d+\.(\d+)/; sprintf "%.2f", $1 / 10
 use 5.008008;
 use strict;
 use warnings;
+use Import::Into;
 
 use Encode::Encoding;
 use base qw(Encode::Encoding);
@@ -18,7 +19,8 @@ __PACKAGE__->Define(qw/ascii-escape ascii_escape/);
 sub import {
 
     require Encode;
-    Encode->export_to_level(1, @_);
+    shift @_; # no need for the package name
+    Encode->import::into(1, @_);
 }
 
 sub enmode ($$) {
--- lib/Encode/Escape/Unicode.pm
+++ lib/Encode/Escape/Unicode.pm
@@ -9,6 +9,7 @@ our $VERSION  = do { q$Revision: 1.13 $ =~ /\d+\.(\d+)/; sprintf "%.2f", $1 / 10
 use 5.008008;
 use strict;
 use warnings;
+use Import::Into;
 
 use Encode::Encoding;
 use base qw(Encode::Encoding);
@@ -21,7 +22,8 @@ sub import {
     __PACKAGE__->demode('default');
 
     require Encode;
-    Encode->export_to_level(1, @_);
+    shift @_; # no need for the package name
+    Encode->import::into(1, @_);
 }
 
 our $enmode;