1 package Moose::Autobox::String;
6 with 'Moose::Autobox::Value';
10 sub lc { CORE::lc $_[0] }
11 sub lcfirst { CORE::lcfirst $_[0] }
12 sub uc { CORE::uc $_[0] }
13 sub ucfirst { CORE::ucfirst $_[0] }
14 sub chomp { CORE::chomp $_[0] }
15 sub chop { CORE::chop $_[0] }
16 sub reverse { CORE::reverse $_[0] }
17 sub length { CORE::length $_[0] }
19 return CORE::index($_[0], $_[1]) if scalar @_ == 2;
20 return CORE::index($_[0], $_[1], $_[2]);
23 # FIXME: this is not working
24 #sub rindex { CORE::rindex $_[0], $_[1], (defined $_[2] ? $_[2] : ()) }
34 Moose::Autobox::String - the String role
40 "Hello World"->uc; # HELLO WORLD
44 This is a role to describes a String value.
78 All complex software has bugs lurking in it, and this module is no
79 exception. If you find a bug please either email me, or add the bug
84 Stevan Little E<lt>stevan@iinteractive.comE<gt>
86 =head1 COPYRIGHT AND LICENSE
88 Copyright 2006 by Infinity Interactive, Inc.
90 L<http://www.iinteractive.com>
92 This library is free software; you can redistribute it and/or modify
93 it under the same terms as Perl itself.