From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 27 Aug 2008 15:16:22 +0000 (+0000)
Subject: make junction work again
X-Git-Tag: 0_09~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ab2f54a21bb1ebab2c29f3129926ccab72712a0;p=gitmo%2FMoose-Autobox.git

make junction work again
---

diff --git a/Changes b/Changes
index 1384720..80956bd 100644
--- 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
--- 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
--- 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