- my $task = new ZOOM::IRSpy::Task::Search($query,
- $this, $udata, $options, %cb);
- $this->add_task($task);
+ { use Carp; confess "Odd-sized hash!" if @_ % 2; }
+ #warn "calling $this->irspy_search(", join(", ", @_), ")\n";
+ $this->add_task(new ZOOM::IRSpy::Task::Search
+ ($qtype, $qstr, $this, $udata, $options, %cb));
+}
+
+
+# Wrapper for backwards compatibility
+sub irspy_search_pqf {
+ my $this = shift();
+ return $this->irspy_search("pqf", @_);