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

[Lee Standen]

There's a nice snippet in the Perl Cookbook regarding this:

@colors = qw(red blue green yellow orange purple violet);
for my $name (@colors) {
     no strict 'refs';
     *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}



Mike Friedman wrote:
> On 10/30/06, A. Pagaltzis <pagaltzis at gmx.de> wrote:
>> This ain't Java.
>>
>>     my @table_class = qw( MyTable MyTable2 );
>>
>>     for my $t ( @table_class ) {
>>         *$t = sub { $_[0]->resultset( $t ) };
>>     }
>>
> 
> You have to turn strict references off to do that, of course. (You
> _DO_ have strict on, right? :) )
> 
> This is basically what I ended up doing in my schema class, by looping
> over __PACKAGE__->sources.
> 
> I also exported the methods, as per Dan's suggestion, so I can use
> them as mixins in my webapp object.
> 
> Thanks for all the help and discussion, everyone. I think I've got a
> handle on things now.
> 
> 
> 
> Mike
> 
> _______________________________________________
> 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/
>