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

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

	# Throwing a fragile will always crack or break it
	$this->damage(1);

	return;
}
