[Moose-commits] r7400 - in Moose-Autobox/trunk: . lib/Moose/Autobox t

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2009-01-27 23:21:12 -0800 (Tue, 27 Jan 2009)
New Revision: 7400

Modified:
   Moose-Autobox/trunk/Changes
   Moose-Autobox/trunk/lib/Moose/Autobox/String.pm
   Moose-Autobox/trunk/t/005_string.t
Log:
Implement String->words, String->lines, and String->split

Modified: Moose-Autobox/trunk/Changes
===================================================================
--- Moose-Autobox/trunk/Changes	2009-01-28 05:41:14 UTC (rev 7399)
+++ Moose-Autobox/trunk/Changes	2009-01-28 07:21:12 UTC (rev 7400)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Moose::Autobox
 
+0.10
+    - add split, words, lines to String (Sartak)
+
 0.09 Thu. Oct 23, 2008
     - update Perl6::Junction dependency and support new version
 

Modified: Moose-Autobox/trunk/lib/Moose/Autobox/String.pm
===================================================================
--- Moose-Autobox/trunk/lib/Moose/Autobox/String.pm	2009-01-28 05:41:14 UTC (rev 7399)
+++ Moose-Autobox/trunk/lib/Moose/Autobox/String.pm	2009-01-28 07:21:12 UTC (rev 7400)
@@ -15,6 +15,8 @@
 sub chop    { CORE::chop    $_[0] }
 sub reverse { CORE::reverse $_[0] }
 sub length  { CORE::length  $_[0] }
+sub lines   { CORE::split '\n', $_[0] }
+sub words   { CORE::split ' ',  $_[0] }
 sub index   { 
     return CORE::index($_[0], $_[1]) if scalar @_ == 2;
     return CORE::index($_[0], $_[1], $_[2]);
@@ -23,6 +25,10 @@
     return CORE::rindex($_[0], $_[1]) if scalar @_ == 2;
     return CORE::rindex($_[0], $_[1], $_[2]);
 }
+sub split   {
+    return CORE::split($_[1], $_[0]) if scalar @_ == 2;
+    return CORE::split($_[1], $_[0], $_[2]);
+}
 
 1;
 

Modified: Moose-Autobox/trunk/t/005_string.t
===================================================================
--- Moose-Autobox/trunk/t/005_string.t	2009-01-28 05:41:14 UTC (rev 7399)
+++ Moose-Autobox/trunk/t/005_string.t	2009-01-28 07:21:12 UTC (rev 7400)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 20;
+use Test::More tests => 23;
 use Test::Exception;
 
 BEGIN {
@@ -47,6 +47,10 @@
 
 is('Hello World, Hello'->rindex('Hello', 6), 0, '... got the correct right index');
 
+is_deeply(['/foo/bar/baz'->split('/')], ['', 'foo', 'bar', 'baz'], '... got the correct fragments');
+is_deeply(['Hello World'->words], ['Hello', 'World'], '... got the correct words');
+is_deeply(["Hello\nWor\n\nld\n"->lines], ['Hello', 'Wor', '', 'ld'], '... got the correct lines');
+
 eval 'Hello World, Hello'->dump;
 is($VAR1, 'Hello World, Hello' , '... eval of &dump works');