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

[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Array.pm

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__