lib/Moose/Autobox/String.pm

   1 package Moose::Autobox::String;
   2 use Moose::Role;
   3
   4 our $VERSION = '0.01';
   5
   6 # perl built-ins
   7
   8 sub lc      { CORE::lc      $_[0] }
   9 sub lcfirst { CORE::lcfirst $_[0] }
  10 sub uc      { CORE::uc      $_[0] }
  11 sub ucfirst { CORE::ucfirst $_[0] }
  12 sub chomp   { CORE::chomp   $_[0] }
  13 sub chop    { CORE::chop    $_[0] }
  14 sub reverse { CORE::reverse $_[0] }
  15 sub length  { CORE::length  $_[0] }
  16 sub index   { CORE::index   $_[0], $_[1], (defined $_[2] ? $_[2] : ()) }
  17
  18 # FIXME: this is not working
  19 #sub rindex  { CORE::rindex  $_[0], $_[1], (defined $_[2] ? $_[2] : ()) }
  20
  21 1;