X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass.pm;h=45ec142423a7b4267b4e6310495dd114a9c49cee;hb=1346e22d4899edf837c77312259c3ebaaf71f602;hp=58d84183a0a73ca90b4fd9966ae129fc552dd185;hpb=ad3d2d7c1918602f7bf2bf6fbadd97c890626d78;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 58d8418..45ec142 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -13,7 +13,18 @@ sub component_base_class { 'DBIx::Class' } # i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports # brain damage and presumably various other packaging systems too -$VERSION = '0.04999_03'; +$VERSION = '0.05999_04'; + +sub MODIFY_CODE_ATTRIBUTES { + my ($class,$code,@attrs) = @_; + unless ($class->can('_attr_cache')) { + $class->mk_classdata('_attr_cache'); + $class->_attr_cache({}); + } + my $cache = $class->_attr_cache; + $class->_attr_cache->{$code} = [@attrs]; + return (); +} 1; @@ -83,23 +94,27 @@ manual below. =head1 SEE ALSO -=head2 L - DBIC Core Classes +=over 4 -=head2 L - User's manual +=item L - DBIC Core Classes -=head2 L - L Compat layer +=item L - User's manual -=head2 L - database-level methods +=item L - L Compat layer -=head2 L - table-level methods +=item L -=head2 L - row-level methods +=item L -=head2 L - primary key methods +=item L -=head2 L - search result-set methods +=item L - row-level methods -=head2 L - relationships between tables +=item L - primary key methods + +=item L - relationships between tables + +=back =head1 AUTHOR @@ -133,6 +148,32 @@ Will Hawes Todd Lipcon +Daniel Westermann-Clark + +Alexander Hartmaier + +Zbigniew Lukasiak + +Nigel Metheringham + +Jesper Krogh + +Brandon Black + +Christopher H. Laco + +Scotty Allen + +sc_ + +Robert Sedlacek + +Justin Guenther + +Daisuke Murase + +Scott McWhirter (konobi) + =head1 LICENSE You may distribute this code under the same terms as Perl itself.