package Moose::Autobox::Array;
use Moose::Role 'with';
+use Perl6::Junction;
use autobox;
our $VERSION = '0.01';
$array->keys->map(sub { [ $_, $array->[$_] ] });
}
+## Junctions
+
+sub all {
+ my ($array) = @_;
+ return Perl6::Junction::All->all(@$array);
+}
+
+sub any {
+ my ($array) = @_;
+ return Perl6::Junction::Any->any(@$array);
+}
+
+sub none {
+ my ($array) = @_;
+ return Perl6::Junction::None->none(@$array);
+}
+
+sub one {
+ my ($array) = @_;
+ return Perl6::Junction::One->one(@$array);
+}
+
1;
__END__
=back
+=head2 Junctions
+
+=over 4
+
+=item B<all>
+
+=item B<any>
+
+=item B<none>
+
+=item B<one>
+
+=back
+
=over 4
=item B<meta>