File Coverage

lib/CGI/OptimalQuery/InteractiveQuery2Tools.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	36	44.4

package CGI::OptimalQuery::InteractiveQuery2Tools;

use strict;
use warnings;
no warnings qw( uninitialized );
use base 'CGI::OptimalQuery::Base';

sub output {
  my $o = shift;

  # if request to open tool panel, execute tool on_open function
  if ($$o{q}->param('tool') ne '') {
    my $openedtool = $$o{q}->param('tool');
    my $tool = $$o{schema}{tools}{$openedtool};
    if (! $tool || ! $$tool{on_open}) {
      $$o{output_handler}->($$o{httpHeader}->('text/html')."\ncould not find tool");
    } else {
      my $buf = $$tool{on_open}->($o);
      $$o{output_handler}->($$o{httpHeader}->('text/html')."\n$buf") if $buf;
    }
  }

  # else noop, trust that a tool on_init function has already responded

  return undef;
}

1;