# {verb, args} = args;

(do{
	my @__tmpL = @{$args};
	$verb = shift;
	throw MOO::E_ARGS if not defined $verb;
	$args = shift;
	throw MOO::E_ARGS if not defined $args;
	throw MOO::E_ARGS if $#__tmpL;
	($verb, $args)
});