No, i can't use that. i cannot change user application. This will be just a
loadable component.
2007/4/27, Jess Robinson <[EMAIL PROTECTED]>:
On Fri, 27 Apr 2007, Oleg Pronin wrote:
> Could you please give more details :)
>
> 2007/4/27, Jess Robinson <[EMAIL PROTECTED]>:
>>
>>
>>
>>
>> On Thu, 26 Apr 2007, Oleg Pronin wrote:
>>
>> > Hello!
>> >
>> > I want to create custom resultset class that will allow caching (in
>> > memcached) functionality.
>> >
>> > For example,
>> > @users = $rs->search(undef, {order_by => 'rating', rows => 10,
memcache
>> =>
>> > 60});
>> >
>> > This will give stored in memcached and automatically updated every
60
>> > seconds top10 users list.
>> >
>> > To do that i need every resultsource to use my resultset class.
>> > Cookbook says i've got to
>> > $source->resultset_class('My::ResultSet::Class');
>> > But i dont want to write it in every result source!
>> >
>> > Is there a good way to set my custom resultset to all registered
result
>> > sources?
>> >
>>
>> Yes, its a perl feature called a "base class" ;)
>>
>> Jess
>>
package My::DBIC::Base;
use base 'DBIx::Class';
__PACKAGE__->load_components('Core');
__PACKAGE__->table('');
__PACKAGE__->resultset_class('My::ResultSet');
1;
...
package My::TableClass;
use base 'My::DBIC::Base';
__PACKAGE__->table('mytable');
1;
-- standard perl inheritance, nothing more exciting than that.
Jess
_______________________________________________
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/[email protected]/
_______________________________________________
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/[email protected]/
