#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my $dir=$this->id;
	my @ret;
	opendir(DIR, $dir);
	while (defined ($file = readdir(DIR))) {
		next unless -d "$dir/$file" && -l "$dir/$file" &&
		            $file ne 'parent' && $file ne 'owner';
		push @ret, $file;
	}
	return @ret;
}
