From bff6b3ed58e48a7c10d71e11032ee4da81bb52a6 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 23 Jun 2009 10:24:28 -0500
Subject: use Data::OptList to pull out things for also from import args

---
 lib/MooseX/Extension.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/MooseX/Extension.pm b/lib/MooseX/Extension.pm
index ccfc54c..de49c2a 100644
--- a/lib/MooseX/Extension.pm
+++ b/lib/MooseX/Extension.pm
@@ -2,12 +2,19 @@ package MooseX::Extension;
 use Moose ();
 use Moose::Exporter;
 use Moose::Util::MetaRole;
+use Data::OptList qw(mkopt_hash);
 
-my ($import, $unimport);
+my ($unimport, $args);
 
 sub import {
     my $caller = caller;
-    ($import, $unimport) = Moose::Exporter->build_import_methods;
+    shift;
+    $args = mkopt_hash(\@_);
+    my @also = grep { !defined $args->{$_} && delete $args->{$_} } keys %$args;
+    my $import;
+    ($import, $unimport) = Moose::Exporter->build_import_methods(
+        also => \@also,
+    );
     goto $import;
 }
 
-- 
cgit v1.2.3