#!/usr/bin/perl
# The names of thingsets are very rarely used; just in the object browser.
# So, I can afford this function, which makes up a name based on the
# directory name.
#use Mooix::Thing;
run sub {
	my $this=shift;
	my $id=$this->id;
	my ($basename)=$id=~m/.*\/([^\/]+)\/?$/;
	return $basename;
}
