[Dbix-class] How to inject more then one ResultSetClass in one ResultSet?

[Jonas Alves]

On 30/10/2007, Jonathan Rockway <jon at jrock.us> wrote:
> Jonas Alves wrote:
> > Hi,
> >
> > I want my dbic components to be able to extend the ResultSet by adding
> > base classes when they are loaded.
>
> How about:
>
>    package MyApp::ResultSet::FooAndBar
>    use base qw/MyApp::ResultSet::Foo MyApp::ResultSet::Bar/;
>    1;
>
> If you want something more dynamic:
>
>    package MyApp::RS::Base;
>    use Moose;
>    extends 'DBIx::Class::ResultSet';
>    1;
>
>    package MyApp::RS::Role::Foo;
>    use Moose::Role;
>    sub foo { }
>    1;
>
>    <same idea for bar>
>
> Then you can say:
>
>    __PACKAGE__->resultset_class('MyApp::RS::Base');
>    __PACKAGE__->resultset_class->meta->apply_role('MyApp::RS::Role::Foo');
>
> Have I tested any of this?  No.  YMMV.
>
> (Dynamically building classes at runtime is probably a Bad Idea anyway.
> I suggest just going with the inheritance method shown first; just
> create a separate RS class for each case where you need one.)
>
> Regards,
> Jonathan Rockway
>

Hi Jonathan,
I really like your Moose approach, but i would like  a solution that
just require the user to load_component my  extensions and with that
get the ResultSet methods for free.
What I  ended up doing was add this two methods to my extensions:

sub table {
    my ($self, at rest) = @_;
    my $ret = $self->next::method(@rest);
    $self->_register_rs_class if @rest;
    return $ret;
}

sub _register_rs_class {
    my $self = shift;
    my $source = eval { $self->result_source_instance }
       || $self->result_source;
    $source->resultset_class->load_components('+MyDBIC::ResultSet::Foo');
}

Thanks anyway,
-- 
Jonas