[Dbix-class] Re: Use of ->resultset mandatory?

[A. Pagaltzis]

* Dan Horne <[EMAIL PROTECTED]> [2006-10-30 23:05]:
> sub rs {
>     my $self = shift;
>     my $table_object = shift;
>     return $self->Schema->resultset($table_object);
> }
> 
> sub MyTable {
>     my $self = shift;
>     return $self->rs('MyTable');
> }
> sub MyTable2 {
>     my $self = shift;
>     return $self->rs('MyTable2');
> }

This ain’t Java.

    my @table_class = qw( MyTable MyTable2 );

    for my $t ( @table_class ) {
        *$t = sub { $_[0]->resultset( $t ) };
    }

-- 
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hacker;
#Aristotle

_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
Searchable Archive: http://www.mail-archive.com/dbix-class@lists.rawmode.org/