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