lib/DBIx/Class/Schema/Loader/Constants.pm

   1 package # hide from PAUSE
   2     DBIx::Class::Schema::Loader::Constants;
   3
   4 use strict;
   5 use warnings;
   6 use Exporter 'import';
   7
   8 our @EXPORT_OK = qw/BY_CASE_TRANSITION/;
   9
  10 use constant BY_CASE_TRANSITION =>
  11     qr/(?<=[[:lower:]\d])[\W_]*(?=[[:upper:]])|[\W_]+/;
  12
  13 1;