=cut
sub register_class {
- my ($class, $name, $to_register) = @_;
- my %reg = %{$class->class_registrations};
+ my ($self, $name, $to_register) = @_;
+ my %reg = %{$self->class_registrations};
$reg{$name} = $to_register;
- $class->class_registrations(\%reg);
+ $self->class_registrations(\%reg);
+ $to_register->result_source->schema($self);
}
=head2 registered_classes
sub source {
my ($self, $class) = @_;
- return $self->class_registrations->{$class}->result_source;
+ return $self->class_registrations->{$class}->result_source
+ if $self->class_registrations->{$class};
}
=head2 resultset