#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Verb;
run sub {
	my $this=shift;
	%_=@_;
	
	if (! $_{avatar}->debugging) {
		fail "You do not have debugging turned on.";
	}
	
	my ($method, $type, $field) = split(' ', $_{quote}, 3);
		
	my $ret = $this->add_expression(
		action => "clear",
		object => $_{direct_object},
		method => $method,
		type => $type,
		field => $field,
	);

	if ($ret) {
                $_{session}->page("Breakpoints:", $this->format_expressions("breakpoint"));
	}
	else {
		fail "No matching breakpoints.";
	}
}
