#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	
	# Make sure that this command is not spoofed, just in case.
        if ($_{avatar} != $this) {
		fail "No!"; 
	}
	
	# Verb.
	@params=();
	push @params, (field => $_{field}) if exists $_{field};
	# The interface info can be long, so page it.
	$_{session}->page($_{direct_object}->getusage(@params));
}
