Как переопределить автоматически сгенерированные методы доступа в Perl Class::DBI?

Я следовал примеру на http://wiki.class-dbi.com/wiki/Overriding_autogenerated_accessors

Я хочу изменить URL-адрес, прежде чем он будет вставлен в базу данных:

package Hosting::Company;
use base 'Class::DBI';

 my $class = __PACKAGE__;

$class->table('Companies');
$class->columns(Primary => 'CompanyId');
$class->columns(Others => qw/Name Url Comment/);

sub Url {
my $self = shift;

    # modify URL.
    if (@_) {
        $_[0] = 'aaaaaaaaaaaa';
        # return $self->_Url_accessor('aaaaaaaaaaaa'); - doesn't work either
    }

    # Back to normal Class::DBI 
    return $self->_Url_accessor(@_);
}

Но это не работает:

my $company = Hosting::Company->insert({ Name => 'Test', Url => 'http://http://url' });
print $company->Url, "\n";

Показывает:

http://http://url

Я бы хотел, чтобы список рассылки Class:DBI был еще жив!


perl class-dbi
person Julien    schedule 31.01.2009    source источник

Ответы (2)


arrow_upward
1
arrow_downward

Переопределение аксессора не изменяет insert. Лучший способ справиться с нормализацией данных — переопределить normalize_column_values(). Но Манни прав, твой аксессуар сломан.

PS список рассылки CDBI все еще активен, просто в нем мало сообщений. Большинство из них перешли на DBIx::Class.

person Community    schedule 31.01.2009

arrow_upward
3
arrow_downward

В вашем URL-аксессоре вы проверяете, был ли параметр передан этому методу. Но вы ничего не передаете, поэтому метод доступа ничего не сделает, кроме вызова _Url_accessor(). Вероятно, вам следует сначала вызвать _Url_accessor, а затем изменить результат:

sub Url {
    my $self = shift;

    # Was there a param passed in?
    if ( @_ ) {
         # Do you really want to modify it here?
         return $self->_Url_accessor(@_);
    }
    else {
        my $url = $self->_Url_accessor();
        # mangle result here:
        $url = 'aaaaaaaaa';
        return $url;
     }
}

Если вы хотите изменить URL-адрес еще до того, как он попадет в базу данных, я думаю, вы должны указать normalize_column_values ​​в своем классе, и это будет вызываться каждый раз при вставке.

person innaM    schedule 31.01.2009
comment
Я думаю, вы имеете в виду return $self->_Url_accessor(@_); и my $url = $self->_Url_accessor(); - person Schwern; 31.01.2009
comment
Я удалил отрицательный голос. Вы правы в том, что переопределение доступа к OP было разорвано. Я думал, что это было только из-за проблемы вставки-не-использования-аксессоров. - person Schwern; 31.01.2009