use Class::C3;
use Carp::Clan qw/^DBIx::Class/;
use Lingua::EN::Inflect::Phrase ();
+use DBIx::Class::Schema::Loader::Constants 'BY_CASE_TRANSITION';
our $VERSION = '0.07000';
sub _normalize_name {
my ($self, $name) = @_;
- my @words = split /(?<=[[:lower:]])[\W_]*(?=[[:upper:]])|[\W_]+/, $name;
+ my @words = split BY_CASE_TRANSITION, $name;
return join '_', map lc, @words;
}