X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FUtils.pm;fp=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FUtils.pm;h=4fc5fb6f135b8fd897de4736ee27b3e95a3d1436;hb=6e880a070b97b7770354c04cbeb79b61083e1ef9;hp=66a92c739938ba3c9292fe5da92b2424cca7e962;hpb=171fc09c8296eaac797cd369724db32f885cb250;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/Utils.pm b/lib/DBIx/Class/Schema/Loader/Utils.pm
index 66a92c7..4fc5fb6 100644
--- a/lib/DBIx/Class/Schema/Loader/Utils.pm
+++ b/lib/DBIx/Class/Schema/Loader/Utils.pm
@@ -4,6 +4,7 @@ package # hide from PAUSE
 use strict;
 use warnings;
 use Test::More;
+use String::CamelCase 'wordsplit';
 use Carp::Clan qw/^DBIx::Class/;
 use List::Util 'all';
 use namespace::clean;
@@ -21,12 +22,6 @@ use constant BY_NON_ALPHANUM =>
 my $LF   = "\x0a";
 my $CRLF = "\x0d\x0a";
 
-# Copied from String::CamelCase because of RT#123030
-sub wordsplit {
-    my $s = shift;
-    split /[_\s]+|\b|(?<![A-Z])(?=[A-Z])|(?<=[A-Z])(?=[A-Z][a-z])/, $s;
-}
-
 sub split_name($;$) {
     my ($name, $v) = @_;