#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $desc=$_{quote};
	if ($desc !~ /[^\s]/) {
		fail "That's not a valid description.";
	}

	eval { $this->description($desc) };
	if ($@) {
		fail "You can't change the description of that.";
	}

	$_{session}->write("Description set.");
}
