#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	if ($this->weapon) {
		$this->weapon->unwield || return;
	}
	return $this->weapon($_{object});
}
