Fixed typo in doc, added NonMooX feature

lib/MooX.pm

@@ -13,7 +13,13 @@ sub import {
 	unshift @modules, 'Moo';
 	while (@modules) {
 		my $package = shift @modules;
-		$package = 'MooX::'.$package unless $package eq 'Moo';
+		if (substr($package,0,1) eq '+') {
+			$package = substr($package,1);
+		} elsif ($package eq 'Moo') {
+			# do nothing
+		} else {
+			$package = 'MooX::'.$package;
+		}
 		croak "No package name given" if ref $package;
 		my @args = ref $modules[0] eq 'ARRAY'
 						? @{shift @modules}
@@ -43,12 +49,14 @@ sub import {
 
   use MooX
     SomeThing => [qw( import params )],
-    OtherThing, MoreThing => { key => 'value' };
+    'OtherThing', MoreThing => { key => 'value' },
+    '+NonMooXStuff';
 
   # use Moo;
   # use MooX::SomeThing qw( import params );
-  # use OtherThing;
-  # use MoreThing key => 'value';
+  # use MooX::OtherThing;
+  # use MooX::MoreThing key => 'value';
+  # use NonMooXStuff;
 
 =head1 DESCRIPTION
 

t/02-importparams.t

@@ -14,7 +14,7 @@ eval "use MooXTestTest;";
 
 my $mooxtesttest = MooXTestTest->new;
 
-is($COUNT,6,'Correct import function called with proper parameters');
+is($COUNT,60,'Correct import function called with proper parameters');
 isa_ok($mooxtesttest,'Moo::Object');
 
 done_testing;

t/03-nonmoox.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+package main;
+
+use strict;
+use warnings;
+use Test::More;
+
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+
+our $COUNT = 0;
+
+eval "use MooXTestTestTest;";
+
+my $mooxtesttesttest = MooXTestTestTest->new;
+
+is($COUNT,101,'Correct import function called on NonMooX class');
+isa_ok($mooxtesttesttest,'Moo::Object');
+
+done_testing;

t/lib/MooXTestTest.pm

@@ -3,6 +3,6 @@ package MooXTestTest;
 use strict;
 use warnings;
 
-use MooX D => [qw( 1 2 3 )];
+use MooX D => [qw( 10 20 30 )];
 
 1;

t/lib/MooXTestTestTest.pm

@@ -0,0 +1,8 @@
+package MooXTestTestTest;
+
+use strict;
+use warnings;
+
+use MooX 'A', '+NonMooX::A';
+
+1;

t/lib/NonMooX/A.pm

@@ -0,0 +1,10 @@
+package NonMooX::A;
+
+use strict;
+use warnings;
+
+sub import {
+	$main::COUNT += 100 if $main::COUNT == 1;
+}
+
+1;