has_attach.pm

来自「source of perl for linux application,」· PM 代码 · 共 11 行

package HAS_ATTACH;

sub STORABLE_attach {
  ++$attached_count;
  return bless [], 'HAS_ATTACH';
}

++$loaded_count;

1;