'Catalyst::Model::DBIC::Schema' => '0.18',
'DBIx::Class' => '0.08',
'Moose' => 0,
+ 'namespace::autoclean' => 0,
'List::MoreUtils' => 0,
);
sub get {
my ($self, $field) = @_;
- if ($self->_user->can($field)) {
- return $self->_user->$field;
+ if (my $code = $self->_user->can($field)) {
+ return $self->_user->$code;
}
elsif (my $accessor = $self->_user->result_source->column_info($field)->{accessor}) {
return $self->_user->$accessor;
(my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
return if $method eq "DESTROY";
- if (my $accessor = $self->_user->result_source->column_info($method)->{accessor}) {
- $method = $accessor;
+ if (my $code = $self->_user->can($method)) {
+ $self->_user->$code(@_);
+ }
+ elsif (my $accessor = $self->_user->result_source->column_info($method)->{accessor}) {
+ $self->_user->$accessor(@_);
}
-
- $self->_user->$method(@_);
}
__PACKAGE__->meta->make_immutable(inline_constructor => 0);