Attempt to switch to perl5.

Not working yet.
audreyt · Jul 18, 2011 · 0ce57fb · 0ce57fb
1 parent 0f2645c
commit 0ce57fb
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 37 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -1,5 +1,2 @@
 #!/usr/bin/env perl
-use inc::Module::Package 'Au:dry 1';
-requires $_ for qw(
-    rig::engine::base
-);
+use inc::Module::Package 'Au:dry 0.01';
diff --git a/lib/use.pm b/lib/use.pm
@@ -2,8 +2,9 @@ package use;
 use strict;
 use warnings;
 use 5.008;
-our $VERSION = '0.02';
-use base 'rig::engine::base';
+our $VERSION = '0.03';
+use perl5 0.06 ();
+use base 'perl5';
 use version 0.86 'is_lax';
 
 sub use {
@@ -12,39 +13,21 @@ sub use {
 }
 
 sub import {
-    goto &{rig::engine::base->can('import')} if @_;
-}
-
-sub build_import {
-    shift;
-
-    my @use;
-    while (my $arg = shift) {
-        if (ref $arg eq 'ARRAY') {
-            push @{ $use[-1]->{args} ||= [] }, @$arg;
-        }
-        elsif (ref $arg eq 'HASH') {
-            $use[-1] = { %{$use[-1]}, %$arg };
-        }
-        elsif (is_lax($arg)) {
-            if (@use) {
-                $use[-1]{version} = $arg;
-                next;
-            }
-
-            my $perl_version = version->parse($arg)->numify;
-            push @use, { name => $perl_version };
-            if ($perl_version >= 5.009003 and $perl_version < 6) {
-                my $sub_version = int(($perl_version - 5) * 1000);
-                push @use, { name => 'strict' };
-                push @use, { name => 'feature', args => [":5.$sub_version"] };
-            }
-        }
-        else {
-            push @use, { name => $arg };
+    return unless @_;
+    my $class = shift(@_);
+    if (@_ and is_lax($_[0])) {
+        my $perl_version = version->parse(shift(@_))->numify;
+        eval "use $perl_version; 1" or die $@;
+        if ($perl_version >= 5.009003 and $perl_version < 6) {
+            my $sub_version = int(($perl_version - 5) * 1000);
+            push @_, (
+                strict =>
+                feature => [":5.$sub_version"],
+            );
         }
     }
-    return ({'' => { use => \@use }}, '');
+    unshift @_, $class;
+    goto &{perl5->can('importer')};
 }
 
 1;