1 2 3 4 5 6 7 8 9 10
package HAS_ATTACH; sub STORABLE_attach { ++$attached_count; return bless [], 'HAS_ATTACH'; } ++$loaded_count; 1;