+ })};
+}
+if ($format =~ /return/) {
+ $output= sub { return { Error => '', Results => \@results }; };
+ $output_wrong= sub { return { Error => $_[0] }; };
+}
+if ($format =~ /dump/) {
+ $r->content_type('text/plain');
+ $output_wrong= sub { print Dumper(\@_); };
+ $output= sub { print Dumper(\@results, $canontext); };
+}