|
package SL::DB::Helper::ConventionManager;
|
|
|
|
use strict;
|
|
|
|
use Rose::DB::Object::ConventionManager;
|
|
|
|
use base qw(Rose::DB::Object::ConventionManager);
|
|
|
|
sub auto_manager_class_name {
|
|
my $self = shift;
|
|
my $object_class = shift || $self->meta->class;
|
|
|
|
my @parts = split m/::/, $object_class;
|
|
my $last = pop @parts;
|
|
|
|
return join('::', @parts, 'Manager', $last);
|
|
}
|
|
|
|
# Base name used for 'make_manager_class', e.g. 'get_all',
|
|
# 'update_all'
|
|
sub auto_manager_base_name {
|
|
return 'all';
|
|
}
|
|
|
|
sub auto_manager_base_class {
|
|
return 'SL::DB::Helper::Manager';
|
|
}
|
|
|
|
sub auto_foreign_key_name
|
|
{
|
|
my($self, $f_class, $current_name, $key_columns, $used_names) = @_;
|
|
|
|
my $f_meta = $f_class->meta or return $current_name;
|
|
my $package_name = SL::DB::Helper::Mappings::get_name_for_table($f_meta->table);
|
|
my $name = $package_name || $current_name;
|
|
|
|
if(keys %$key_columns == 1)
|
|
{
|
|
my($local_column, $foreign_column) = %$key_columns;
|
|
|
|
# Try to lop off foreign column name. Example:
|
|
# my_foreign_object_id -> my_foreign_object
|
|
if($local_column =~ s/_$foreign_column$//i)
|
|
{
|
|
$name = $local_column;
|
|
}
|
|
else
|
|
{
|
|
$name = $package_name || $current_name;
|
|
}
|
|
}
|
|
|
|
# Avoid method name conflicts
|
|
if($self->method_name_conflicts($name) || $used_names->{$name})
|
|
{
|
|
foreach my $s ('_obj', '_object')
|
|
{
|
|
# Try the name with a suffix appended
|
|
unless($self->method_name_conflicts($name . $s) ||
|
|
$used_names->{$name . $s})
|
|
{
|
|
return $name . $s;
|
|
}
|
|
}
|
|
|
|
my $i = 1;
|
|
|
|
# Give up and go with numbers...
|
|
$i++ while($self->method_name_conflicts($name . $i) ||
|
|
$used_names->{$name . $i});
|
|
|
|
return $name . $i;
|
|
}
|
|
|
|
return $name;
|
|
}
|
|
|
|
1;
|