1 package # hide from PAUSE
2 DBIx::Class::Schema::Loader::Utils;
8 our @EXPORT_OK = qw/split_name/;
10 use constant BY_CASE_TRANSITION =>
11 qr/(?<=[[:lower:]\d])[\W_]*(?=[[:upper:]])|[\W_]+/;
13 use constant BY_NON_ALPHANUM =>
19 split $name =~ /[[:upper:]]/ && $name =~ /[[:lower:]]/ ? BY_CASE_TRANSITION : BY_NON_ALPHANUM, $name;
23 # vim:et sts=4 sw=4 tw=0: