use Syntax::Keyword::Junction, not Perl6::Junction

diff --git a/Makefile.PL b/Makefile.PL
index 4f491c7..0bff2e2 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -10,7 +10,7 @@ all_from('lib/Moose/Autobox.pm');
 requires 'autobox'         => '2.23';
 requires 'parent'          => 0;
 requires 'Moose'           => '0.42';
-requires 'Perl6::Junction' => '1.40000';
+requires 'Syntax::Keyword::Junction' => 0;
 
 test_requires 'Test::More'      => '0.89';
 test_requires 'Test::Exception' => '0.21';

diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm
index bf994be..4e7abd7 100644 (file)
--- a/lib/Moose/Autobox/Array.pm
+++ b/lib/Moose/Autobox/Array.pm
@@ -1,8 +1,12 @@
 package Moose::Autobox::Array;
 use Moose::Role 'with';
-use Perl6::Junction;
 use Moose::Autobox;
 
+use Syntax::Keyword::Junction::All ();
+use Syntax::Keyword::Junction::Any ();
+use Syntax::Keyword::Junction::None ();
+use Syntax::Keyword::Junction::One ();
+
 our $VERSION = '0.12';
 
 with 'Moose::Autobox::Ref',
@@ -181,22 +185,22 @@ sub flatten_deep {
 
 sub all {
     my ($array) = @_;     
-    return Perl6::Junction::all(@$array);
+    return Syntax::Keyword::Junction::All->new(@$array);
 }
 
 sub any {
     my ($array) = @_;     
-    return Perl6::Junction::any(@$array);
+    return Syntax::Keyword::Junction::Any->new(@$array);
 }
 
 sub none {
     my ($array) = @_;     
-    return Perl6::Junction::none(@$array);
+    return Syntax::Keyword::Junction::None->new(@$array);
 }
 
 sub one {
     my ($array) = @_; 
-    return Perl6::Junction::one(@$array);
+    return Syntax::Keyword::Junction::One->new(@$array);
 }
 
 ## Print
@@ -204,6 +208,8 @@ sub one {
 sub print { CORE::print @{$_[0]} }
 sub say   { CORE::print @{$_[0]}, "\n" }
 
+no Moose::Role;
+
 1;
 
 __END__