make junction work again

diff --git a/Changes b/Changes
index 1384720..80956bd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension Moose::Autobox
 
+    - update Perl6::Junction dependency and support new version
+
 0.08 Mon. May 12, 2008
     - add flatten method to Array and Hash
     - upped the dependency on autobox from 1.22 to 2.23

diff --git a/Makefile.PL b/Makefile.PL
index ebe5a13..c4871ed 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,13 +1,14 @@
 use strict;
 use warnings;
 use inc::Module::Install;
+use Module::Install::ExtraTests;
 
 name('Moose-Autobox');
 all_from('lib/Moose/Autobox.pm');
 
 requires 'autobox'         => '2.23';
 requires 'Moose'           => '0.42';
-requires 'Perl6::Junction' => '1.10';
+requires 'Perl6::Junction' => '1.40000';
 
 test_requires 'Test::More'      => '0.62';
 test_requires 'Test::Exception' => '0.21';

diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm
index 4fabd46..ecc4127 100644 (file)
--- a/lib/Moose/Autobox/Array.pm
+++ b/lib/Moose/Autobox/Array.pm
@@ -125,22 +125,22 @@ sub flatten {
 
 sub all {
     my ($array) = @_;     
-    return Perl6::Junction::All->all(@$array);
+    return Perl6::Junction::All->new(@$array);
 }
 
 sub any {
     my ($array) = @_;     
-    return Perl6::Junction::Any->any(@$array);
+    return Perl6::Junction::Any->new(@$array);
 }
 
 sub none {
     my ($array) = @_;     
-    return Perl6::Junction::None->none(@$array);
+    return Perl6::Junction::None->new(@$array);
 }
 
 sub one {
     my ($array) = @_; 
-    return Perl6::Junction::One->one(@$array);
+    return Perl6::Junction::One->new(@$array);
 }
 
 ## Print