- my ($self, $name, $value, %params) = @_;
+ my ($name, $value, %params) = @_;
+
+ $params{type} //= 'customer' if 'SL::DB::Customer' eq ref $value;
+ $params{type} //= 'vendor' if 'SL::DB::Vendor' eq ref $value;
+
+ croak 'Unknown "type" parameter' unless $params{type} =~ m{^(?:customer|vendor)$};
+ croak 'Unknown value class' if $value && ref($value) && (ref($value) !~ m{^SL::DB::(?:Customer|Vendor)$});
+
+ if ($value && !ref $value) {
+ my $class = $params{type} eq 'customer' ? 'SL::DB::Manager::Customer' : 'SL::DB::Manager::Vendor';
+ $value = $class->find_by(id => $value);
+ }