# 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_05';
+$VERSION = '0.05001';
+
+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;