implement flatten

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

diff --git a/lib/Moose/Autobox/List.pm b/lib/Moose/Autobox/List.pm
index b3f9048..5810ce5 100644 (file)
--- a/lib/Moose/Autobox/List.pm
+++ b/lib/Moose/Autobox/List.pm
@@ -1,22 +1,20 @@
 
 package Moose::Autobox::List;
 use Moose::Role 'with', 'requires';
-use autobox;
+use Moose::Autobox;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 with 'Moose::Autobox::Value';
 
-requires qw/
-    head 
-    tail
-    length 
-    join     
-    grep 
-    map 
-    sort
-    reverse
-/;
+requires 'head';
+requires 'tail';
+requires 'length'; 
+requires 'join'; 
+requires 'grep'; 
+requires 'map'; 
+requires 'sort';
+requires 'reverse';
 
 sub reduce {
     my ($array, $func) = @_;
@@ -47,25 +45,29 @@ __END__
 
 Moose::Autobox::List - the List role
 
-=head1 SYNOPOSIS
-
-  use Moose::Autobox;
-  use autobox;
-
 =head1 DESCRIPTION
 
+This is a role to describes a List interface. This is not 
+meant to be any specific Perl type, but instead an interface
+that certain Perl types might implement. Currenly only 
+L<Moose::Autobox::Array> implements this.
+
 =head1 METHODS
 
 =over 4
 
-=item B<meta>
-
 =item B<reduce>
 
 =item B<zip>
 
 =back
 
+=over 4
+
+=item B<meta>
+
+=back
+
 =head1 REQUIRED METHODS
 
 =over 4
@@ -100,11 +102,11 @@ Stevan Little E<lt>stevan@iinteractive.comE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2008 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
+=cut