foo

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

diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm
index a33c1b5..6d4c1e8 100644 (file)
--- a/lib/Moose/Autobox/Array.pm
+++ b/lib/Moose/Autobox/Array.pm
@@ -5,7 +5,8 @@ use autobox;
 our $VERSION = '0.01';
 
 with 'Moose::Autobox::Ref',
-     'Moose::Autobox::List';
+     'Moose::Autobox::List',
+     'Moose::Autobox::Indexed';
     
 ## Array Interface
 
@@ -46,6 +47,16 @@ sub sprintf { CORE::sprintf $_[1], @{$_[0]} }
 sub head { $_[0]->[0] }
 sub tail { [ @{$_[0]}[ 1 .. $#{$_[0]} ] ] }
  
+sub at {
+    my ($array, $index) = @_;
+    $array->[$index];
+} 
+
+sub put {
+    my ($array, $index, $value) = @_;
+    $array->[$index] = $value;
+}
+ 
 sub length {
     my ($array) = @_;
     CORE::scalar @$array;
@@ -105,3 +116,41 @@ sub kv {
 }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME 
+
+Moose::Autobox::Array - the Array role
+
+=head1 SYNOPOSIS
+
+  use Moose::Autobox;
+  use autobox;
+    
+  print "Squares: " . [ 1 .. 10 ]->map(sub { $_ * $_ })->join(', ');
+
+=head1 DESCRIPTION
+
+=head1 BUGS
+
+All complex software has bugs lurking in it, and this module is no 
+exception. If you find a bug please either email me, or add the bug
+to cpan-RT.
+
+=head1 AUTHOR
+
+Stevan Little E<lt>stevan@iinteractive.comE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2006 by Infinity Interactive, Inc.
+
+L<http://www.iinteractive.com>
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
\ No newline at end of file