Add merge method for hashes.

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

diff --git a/lib/Moose/Autobox/String.pm b/lib/Moose/Autobox/String.pm
index 6e224a4..69bc977 100644 (file)
--- a/lib/Moose/Autobox/String.pm
+++ b/lib/Moose/Autobox/String.pm
@@ -15,7 +15,10 @@ sub chomp   { CORE::chomp   $_[0] }
 sub chop    { CORE::chop    $_[0] }
 sub reverse { CORE::reverse $_[0] }
 sub length  { CORE::length  $_[0] }
-sub index   { CORE::index   $_[0], $_[1], (defined $_[2] ? $_[2] : ()) }
+sub index   { 
+    return CORE::index($_[0], $_[1]) if scalar @_ == 2;
+    return CORE::index($_[0], $_[1], $_[2]);
+}
 
 # FIXME: this is not working 
 #sub rindex  { CORE::rindex  $_[0], $_[1], (defined $_[2] ? $_[2] : ()) }
@@ -33,12 +36,43 @@ Moose::Autobox::String - the String role
 =head1 SYNOPOSIS
 
   use Moose::Autobox;
-  use autobox;
   
   "Hello World"->uc; # HELLO WORLD
 
 =head1 DESCRIPTION
 
+This is a role to describes a String value.
+
+=head1 METHODS
+
+=over 4
+
+=item B<chomp>
+
+=item B<chop>
+
+=item B<index>
+
+=item B<lc>
+
+=item B<lcfirst>
+
+=item B<length>
+
+=item B<reverse>
+
+=item B<uc>
+
+=item B<ucfirst>
+
+=back
+
+=over 4
+
+=item B<meta>
+
+=back
+
 =head1 BUGS
 
 All complex software has bugs lurking in it, and this module is no