#untested
sub handle_action {
  my ($self,$action,$value)=@_;

  my $obj=eval "
                 use Some::Class::$action; 
                 Some::Class::$action->new()
               "; #eval returns the last value evaluated

  return $self->raiserror($action,$value,$@)
       unless $obj->is("Some::Class::Proto");

  $obj->exec($value);
}