[perl5.git] / dist / Storable / t / HAS_ATTACH.pm

package HAS_ATTACH;

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

++$loaded_count;

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