use Class::Unload ();
use Class::Inspector ();
-our $VERSION = '0.07010';
+our $VERSION = '0.07011';
# Glossary:
#
sub _sanitize_name {
my ($self, $name) = @_;
- $name =~ s/\W+/_/g;
+ $name = $self->loader->_to_identifier('relationships', $name, '_');
+
+ $name =~ s/\W+/_/g; # if naming >= 8 to_identifier takes care of it
return $name;
}
$name = $self->_sanitize_name($name);
- my @words = split_name $name;
+ my @words = split_name $name, $self->loader->_get_naming_v('relationships');
return join '_', map lc, @words;
}