#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;

	# Call the super method to drop it.
	return unless $this->super(@_);

	if (rand > 0.5) {
		$this->damage(1);
	}
	return $this;
}
