Hello, Base classes for your schema is out of scope of load_namespaces() tasks. Just implement needed for you hierarchy, with base classes out of your Result and ResultSet namespaces, and that's all. Something like this:
My::Schema::Base::Result (descendant of DBIx::Class::Core) |-My::Schema::Result::Books \My::Schema::Result::Authors My::Schema::Base::ResultSet (descendant of DBIx::Class::ResultSet) |-My::Schema::ResultSet::Books \My::Schema::ResultSet::Authors Seems this is what you want, but I think this is not what you need. If you want to write to audit log, then you should look to DBIx::Class::Journal or DBIx::Class::QueryLog. HTH 2010/11/1 Mark Hedges <[email protected]>: > > Is there a way to call My::Schema->load_namespaces() to add > a base class to every ResultSet, without having to spell out > each ResultSet package just to do 'use base'? > > I overloaded delete(), insert() and update() in my Row base > class to also insert an audit log entry for a handful of > tables that need it. > > However, delete() in ResultSet does not call the Row > methods, and it is pretty complicated for subclassing to > figure out audit entries... basically my subclass would > have to replicate all the logic in ResultSet::delete() to > figure out what to audit. > > So, what I want to do is throw an exception from > ResultSet::delete() if $self->result_source->table is one of > the small number of audited tables. > > Is there a way to add a base class to every ResultSet in the > first place? If not, it would be nice. > > Thanks for the info. > > Mark > > > _______________________________________________ > List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class > IRC: irc.perl.org#dbix-class > SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/ > Searchable Archive: http://www.grokbase.com/group/[email protected] > -- Sincerely yours, Oleg Kostyuk (CUB-UANIC) _______________________________________________ List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class IRC: irc.perl.org#dbix-class SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/ Searchable Archive: http://www.grokbase.com/group/[email protected]
